[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. UnPazz

    UnPazz Elder - Старейшина

    Joined:
    30 Aug 2008
    Messages:
    95
    Likes Received:
    43
    Reputations:
    6
    Попробуй Free Pascal 2.2
     
  2. _nic

    _nic Elder - Старейшина

    Joined:
    5 May 2006
    Messages:
    651
    Likes Received:
    54
    Reputations:
    3
    Как отсортировать итемы в ListBox по первым символам в название?То есть если цифры то от 0 до максимального,или если буквы то по алфавиту.
     
  3. mfcn

    mfcn Elder - Старейшина

    Joined:
    2 Mar 2007
    Messages:
    42
    Likes Received:
    11
    Reputations:
    0
    ListBox1.Sorted:=true;
    Можно предварительно сорировать стоки, только не в TStrings (хотя не знаю, может у версий позднее 5-го Delphi уже можно), а совместимый с ним TStringList методом StringList1.Sort или изменив свойство StringList1.Sorted:=true;
     
  4. o_OBallers

    o_OBallers Banned

    Joined:
    11 Oct 2007
    Messages:
    23
    Likes Received:
    24
    Reputations:
    0
    Такого, учебника нету, сам в своё время обыскался, бери английский словарь, вводи например idHTTP1. вылезет автозавершение, смотри что там есть, переводи, домысливай, эксперементируй, давай больше импровизации. Также пользуйся google и delphiworld. Я сам пару лет назад изучал так indy.

    Дело в таблице символов там нету !@#$%^&*()
     
    1 person likes this.
  5. Karapuziko

    Karapuziko Elder - Старейшина

    Joined:
    20 Jan 2008
    Messages:
    32
    Likes Received:
    14
    Reputations:
    3
    Как сделать что бы в Делфи в прогах ошибки не вылетали а просто игнорировались?
     
  6. Karapuziko

    Karapuziko Elder - Старейшина

    Joined:
    20 Jan 2008
    Messages:
    32
    Likes Received:
    14
    Reputations:
    3
    а ты сам не знаешь? помоги если знаешь...
     
  7. bons

    bons Elder - Старейшина

    Joined:
    20 Dec 2007
    Messages:
    286
    Likes Received:
    121
    Reputations:
    21
    вот пример обработки ошибки выполнения функции делфи

    Code:
     
     try
      strtoint('xx');
     except
      showmessage('error');
     end
    
     
  8. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    мда....
     
    3 people like this.
  9. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    заключить потенциально "опасный" код в блок try..except..end;
    в блоке обработки except..end; ничего не писать
     
  10. cremator (c)

    cremator (c) Elder - Старейшина

    Joined:
    20 Jun 2008
    Messages:
    258
    Likes Received:
    72
    Reputations:
    0
    Мне надо реализовать в проге чтобы при нажатие определенной кнопки посылался запрос в виде http://server.ru/index.php?var=value и потом ждать ответ от сервера и записать его в какую нибудь переменную..
    если не трудно поподробнее напишите пожалуйста))
     
  11. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    как простой вариант юзай для дельфы модуль wininet
    и можно замутить так:
    функции даешь путь полный типа http://site.com/script.php?var=value
    и буфер куда должен ответ приняться
    Code:
    procedure Download(url:pansichar;var ress:pchar); 
    var
     hSession, hURL: pointer;// для скачевания
     Buffer: array[0..1023] of char; // буфер
     BufferLen: DWORD;
     x:integer;
    begin
    hSession:=InternetOpen('svchost.exe', 1, nil, nil, 0); // открытие сессии
    if hSession=nil then exit;
    hURL:=InternetOpenURL(hSession, URL, nil, 0, $04000000, 0); // открытие удаленного файла
    if hURL=nil then exit;
    lstrcpy(ress,#0);
    repeat
     for x:=0 to 1023 do buffer[x]:=#0; // тупой метод очистки бефера. но для моих целей пойдет
     InternetReadFile(hURL, @Buffer[0], SizeOf(Buffer), BufferLen); // считывание удаленного файла в буфер
     lstrcat(ress,buffer);
    until BufferLen=0; // если буфер пуст, то файл уже скачался
    InternetCloseHandle(hURL); // закрыть удаленный файл
    InternetCloseHandle(hSession); // закрыть сессию
    end;
    
    
     
    #2111 slesh, 26 Sep 2008
    Last edited: 26 Sep 2008
  12. Twiddle

    Twiddle Elder - Старейшина

    Joined:
    6 Sep 2006
    Messages:
    13
    Likes Received:
    9
    Reputations:
    0
    ачатовцы, помогите, уже 5 дней ломаю голову. подскажите как сделать глобальный хук, что бы при нажатии клавиш (ctrl+alt+shift) убивался winamp.exe к примеру. ЗЫ: моя прога может в этот момент быть не активна а активин сам винамп.
    Заранее благодарен... Очень нужно...
     
  13. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Если вкратце то есть 2 способа, первый - пишем драйвер который хукает что тебе нужно и второй, это пишем длл-ку которую внедряем во все процессы и перехватываем определенные действия....
     
    1 person likes this.
  14. Twiddle

    Twiddle Elder - Старейшина

    Joined:
    6 Sep 2006
    Messages:
    13
    Likes Received:
    9
    Reputations:
    0
    про драйвер слышу в первый раз. Так хотел дллку но у самого не получислось - поэтому прошу помощи
     
  15. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    http://wasm.ru/article.php?article=apihook_1
     
    2 people like this.
  16. cremator (c)

    cremator (c) Elder - Старейшина

    Joined:
    20 Jun 2008
    Messages:
    258
    Likes Received:
    72
    Reputations:
    0
    мне надо определить тип переменной в процессе работы проги, текстовый он или числовой. есть такой оператор?
    и ещё даже когда я помещаю потенциально "опасный" код в блок try ... except on EConvertError do ... end; то у меня всё равно вылазиет ошибка конвертации!
     
  17. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Скорее всего у тебя вылазиет ошибка под отладчиком, после компиляции такого быть не должно...
     
  18. eNGi

    eNGi New Member

    Joined:
    26 Sep 2008
    Messages:
    5
    Likes Received:
    2
    Reputations:
    0
    Здравствуйте! Есть вопросик программисты, посоветуйте plz.
    Исходные данные:
    имеется некая работающая прога, для которой необходимо отслеживать факт изменения картинки на экране (будет реализовано скорее всего через несколько последовательных вызовов GetPixel), считаем, что "картинка" меняется со случайными интервалами во времени.
    Для конкретизирования примера пусть необходимо отслеживать наличие конкретной кнопки (изображения) в определенном месте браузера (допустим Explorer).
    Вопрос:
    как лучше отслеживать изменение картинки?
    {грузить систему проверками по таймеру не хочется}
     
  19. Larionich

    Larionich Member

    Joined:
    21 Sep 2008
    Messages:
    15
    Likes Received:
    5
    Reputations:
    0
    eNGi, да, действительно, ты правильно мыслишь. Разумно нужно отказаться от вызовов GetPixel() (Если изображение не больше 320х240, а лучше и еще меньше). Чтобы разобраться прочти, работёнка тебе продстоит большая, написано много
    http://forum.sources.ru/index.php?showtopic=240312&hl=
    http://www.delphimaster.ru/articles/pixels/index.html
    Вариант2. Использовать неуправляемую память куда будут помещены данные изображения, то работать всё будет быстро (в сети сам найдешь по этомой теме информацию поисковиком).
    На С# же мелкомягкие предусмотрели функции System.Drawing.Imaging.BitmapData.Scan0() и System.Runtime.InteropServices.Marshal.Copy(), скорость использования которых выше, чем вызов GetPixel()и SetPixel().
     
  20. KIR@PRO

    KIR@PRO from Exception

    Joined:
    26 Dec 2007
    Messages:
    826
    Likes Received:
    291
    Reputations:
    359
    может ктонибудь дать готовый пример Icq реализованный на компонентах и желательно (хотелось бы разобрать) реализацию на сокетах без компонентов.

    желательно чтоб в примерах были все функции))

    Зарание благодарю!
    p.s. за помощь не обижу)
     
    _________________________
    #2120 KIR@PRO, 28 Sep 2008
    Last edited: 28 Sep 2008
Thread Status:
Not open for further replies.