Выкладываю сырцы свою старой утилиты - многопоточный UniversalBIDs чекер.
У нас в проекте всего 2 unit. Один для многопоточной обработки. И главный - для отображения потоков. Кто помнит, можно было определять цену бида для 3х ppc - Umax, Klick, Peack.
Я выложу как обычно код и дам небольшие комментарии.
Файл проекта.
[code lang='delphi']program UniversalBIDs;
uses
Forms,
Main in ‘Main.pas’ {Form1},
threadHTTP in ‘ThreadHTTP.pas’;
{$R *.res}
begin
Application.Initialize;
Application.Title := ‘UniversalBIDs’;
Application.CreateForm(TForm1, Form1);
Application.Run;
end. [/code]
продолжение сырцов для многопоточного UniversalBIDs чекер
