Class THttpThreadForm (unit HttpThr1)

Inherits from

TForm

Constructors



Functions

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);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

Events

Variables

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;



Constructors


Functions


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);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


Events


Variables


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;