Class TFtpReceiveForm (unit Ftptst1) |
Inherits from
TForm
procedure AbortAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppendAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppendFileAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CDupAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ClearButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConnectAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CwdAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DeleAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DeleteAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DirAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DirectoryAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Sender: TObject; var Msg : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DoQuoteAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExitButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FileSizeAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1Progress(Sender: TObject; Count: Longint;
var Abort: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1RequestDone(Sender: TObject; RqType: TFtpRequest;
Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1SessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1SessionConnected(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1StateChange(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure GetAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ListAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LsAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MkdAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MkdirAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OpenAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PassAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PutAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PwdAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure QuitAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure QuoteAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ReceiveAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RenameAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RenAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RestartGetAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RestGetAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RmdAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RmdirAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SizeAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SystAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SystemAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TransmitAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TypeSetAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UserAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisplayFile(FileName : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteCmd(SyncCmd : TSyncCmd; ASyncCmd : TAsyncCmd);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AbortAsyncButton : TButton;
AppendAsyncButton : TButton;
AppendFileAsyncButton : TButton;
cbBinary : TCheckBox;
cbDisplay : TCheckBox;
CDupAsyncButton : TButton;
ClearButton : TButton;
ConnectAsyncButton : TButton;
CwdAsyncButton : TButton;
DeleAsyncButton : TButton;
DeleteAsyncButton : TButton;
DirAsyncButton : TButton;
DirectoryAsyncButton : TButton;
DisplayMemo : TMemo;
DoQuoteAsyncButton : TButton;
ExitButton : TButton;
FileSizeAsyncButton : TButton;
FtpClient1 : TFtpClient;
GetAsyncButton : TButton;
HostDirEdit : TEdit;
HostFileEdit : TEdit;
HostNameEdit : TEdit;
InfoLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
ListAsyncButton : TButton;
LocalFileEdit : TEdit;
LsAsyncButton : TButton;
MkdAsyncButton : TButton;
MkdirAsyncButton : TButton;
OpenAsyncButton : TButton;
Panel1 : TPanel;
Panel2 : TPanel;
PassAsyncButton : TButton;
PassiveCheckBox : TCheckBox;
PassWordEdit : TEdit;
PortEdit : TEdit;
PutAsyncButton : TButton;
PwdAsyncButton : TButton;
QuitAsyncButton : TButton;
QuoteAsyncButton : TButton;
ReceiveAsyncButton : TButton;
RenameAsyncButton : TButton;
RenAsyncButton : TButton;
RestartGetAsyncButton : TButton;
RestGetAsyncButton : TButton;
RmdAsyncButton : TButton;
RmdirAsyncButton : TButton;
SizeAsyncButton : TButton;
StateLabel : TLabel;
SyncCheckBox : TCheckBox;
SystAsyncButton : TButton;
SystemAsyncButton : TButton;
TransmitAsyncButton : TButton;
TypeSetAsyncButton : TButton;
UserAsyncButton : TButton;
UserNameEdit : TEdit;
FIniFileName : String;
FInitialized : Boolean;
procedure AbortAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppendAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppendFileAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CDupAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ClearButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConnectAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CwdAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DeleAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DeleteAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DirAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DirectoryAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Sender: TObject; var Msg : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DoQuoteAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExitButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FileSizeAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1Progress(Sender: TObject; Count: Longint;
var Abort: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1RequestDone(Sender: TObject; RqType: TFtpRequest;
Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1SessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1SessionConnected(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FtpClient1StateChange(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure GetAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ListAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LsAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MkdAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MkdirAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OpenAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PassAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PutAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PwdAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure QuitAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure QuoteAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ReceiveAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RenameAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RenAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RestartGetAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RestGetAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RmdAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RmdirAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SizeAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SystAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SystemAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TransmitAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TypeSetAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UserAsyncButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisplayFile(FileName : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteCmd(SyncCmd : TSyncCmd; ASyncCmd : TAsyncCmd);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AbortAsyncButton : TButton;
AppendAsyncButton : TButton;
AppendFileAsyncButton : TButton;
cbBinary : TCheckBox;
cbDisplay : TCheckBox;
CDupAsyncButton : TButton;
ClearButton : TButton;
ConnectAsyncButton : TButton;
CwdAsyncButton : TButton;
DeleAsyncButton : TButton;
DeleteAsyncButton : TButton;
DirAsyncButton : TButton;
DirectoryAsyncButton : TButton;
DisplayMemo : TMemo;
DoQuoteAsyncButton : TButton;
ExitButton : TButton;
FileSizeAsyncButton : TButton;
FtpClient1 : TFtpClient;
GetAsyncButton : TButton;
HostDirEdit : TEdit;
HostFileEdit : TEdit;
HostNameEdit : TEdit;
InfoLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
ListAsyncButton : TButton;
LocalFileEdit : TEdit;
LsAsyncButton : TButton;
MkdAsyncButton : TButton;
MkdirAsyncButton : TButton;
OpenAsyncButton : TButton;
Panel1 : TPanel;
Panel2 : TPanel;
PassAsyncButton : TButton;
PassiveCheckBox : TCheckBox;
PassWordEdit : TEdit;
PortEdit : TEdit;
PutAsyncButton : TButton;
PwdAsyncButton : TButton;
QuitAsyncButton : TButton;
QuoteAsyncButton : TButton;
ReceiveAsyncButton : TButton;
RenameAsyncButton : TButton;
RenAsyncButton : TButton;
RestartGetAsyncButton : TButton;
RestGetAsyncButton : TButton;
RmdAsyncButton : TButton;
RmdirAsyncButton : TButton;
SizeAsyncButton : TButton;
StateLabel : TLabel;
SyncCheckBox : TCheckBox;
SystAsyncButton : TButton;
SystemAsyncButton : TButton;
TransmitAsyncButton : TButton;
TypeSetAsyncButton : TButton;
UserAsyncButton : TButton;
UserNameEdit : TEdit;
FIniFileName : String;
FInitialized : Boolean;