Class TFtpReceiveForm (unit Ftptst1)

Inherits from

TForm

Constructors



Functions

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

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

Properties

Events

Variables

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;



Constructors


Functions


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

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


Properties


Events


Variables


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;