Class THttpThreadForm (unit HttpThr1) |
Inherits from
TForm
procedure DoItButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ProcessResults(ThreadNumber: Integer; Success : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} // To be called by each thread as it completes (using Synchronize !
procedure CreateThread(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetThreadState(Which : Integer; State: TThreadState);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DoItButton : TButton;
Label1 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
ProgressListBox : TListBox;
ProxyEdit : TEdit;
ResultsMemo : TMemo;
Thread0Label : TLabel;
Thread1Label : TLabel;
Thread2Label : TLabel;
Thread3Label : TLabel;
Thread4Label : TLabel;
Thread5Label : TLabel;
URLEdit : TEdit;
FIniFileName : String;
FInitialized : Boolean;
procedure DoItButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ProcessResults(ThreadNumber: Integer; Success : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} // To be called by each thread as it completes (using Synchronize !
procedure CreateThread(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetThreadState(Which : Integer; State: TThreadState);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DoItButton : TButton;
Label1 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
ProgressListBox : TListBox;
ProxyEdit : TEdit;
ResultsMemo : TMemo;
Thread0Label : TLabel;
Thread1Label : TLabel;
Thread2Label : TLabel;
Thread3Label : TLabel;
Thread4Label : TLabel;
Thread5Label : TLabel;
URLEdit : TEdit;
FIniFileName : String;
FInitialized : Boolean;