Class THttpGetForm (unit HttpGet1) |
Inherits from
TForm
procedure AbortButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure GetButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HttpCli1DocData(Sender: TObject; Buffer: Pointer;
Len: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HttpCli1HeaderData(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AbortButton : TButton;
FileNameEdit : TEdit;
GetButton : TButton;
HttpCli1 : THttpCli;
InfoLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
ProxyHostEdit : TEdit;
ProxyPortEdit : TEdit;
URLEdit : TEdit;
FIniFileName : String;
FInitialized : Boolean;
Déclarations privées
procedure AbortButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure GetButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HttpCli1DocData(Sender: TObject; Buffer: Pointer;
Len: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HttpCli1HeaderData(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AbortButton : TButton;
FileNameEdit : TEdit;
GetButton : TButton;
HttpCli1 : THttpCli;
InfoLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
ProxyHostEdit : TEdit;
ProxyPortEdit : TEdit;
URLEdit : TEdit;
FIniFileName : String;
FInitialized : Boolean;
Déclarations privées