Class THTTPThread (unit HttpThr2) |
Inherits from
TThread
procedure Execute;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Setup(i: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DocBegin(Sender : TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DocData(Sender : TObject; Buffer : Pointer; Len : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DocEnd(Sender : TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Progress(Msg : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ShowProgress;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UpdateStatus;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FHttpCli : THTTPCli;
FProxy : String;
FThreadNumber : Integer;
FURL : String;
Success : Boolean;
FProgress : String;
procedure Execute;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Setup(i: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DocBegin(Sender : TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DocData(Sender : TObject; Buffer : Pointer; Len : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DocEnd(Sender : TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Progress(Msg : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ShowProgress;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UpdateStatus;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FHttpCli : THTTPCli;
FProxy : String;
FThreadNumber : Integer;
FURL : String;
Success : Boolean;
FProgress : String;