Class TMainFrm (unit Main) |
Inherits from
TForm
procedure ListBtnClick(Sender: TObject);
indicate if successful or not
procedure LoginBtnClick(Sender: TObject);
procedure LogoutBtnClick(Sender: TObject);
indicate success or failure
procedure RetrieveBtnClick(Sender: TObject);
fill list box with directory listing passed back in listdir.
procedure SendBtnClick(Sender: TObject);
indicate success or failure
function StripFileName(FileStr : string) : string;
strip file name from end of string passed back by Ftp server
DirList : TListBox;
FileEdit : TEdit;
IpAddrEdit : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
ListBtn : TButton;
LoginBtn : TButton;
LogoutBtn : TButton;
PassEdit : TEdit;
RetrieveBtn : TButton;
SendBtn : TButton;
UserEdit : TEdit;
procedure ListBtnClick(Sender: TObject);
indicate if successful or not
procedure LoginBtnClick(Sender: TObject);
procedure LogoutBtnClick(Sender: TObject);
indicate success or failure
procedure RetrieveBtnClick(Sender: TObject);
fill list box with directory listing passed back in listdir.txt
procedure SendBtnClick(Sender: TObject);
indicate success or failure
function StripFileName(FileStr : string) : string;
strip file name from end of string passed back by Ftp server
DirList : TListBox;
FileEdit : TEdit;
IpAddrEdit : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
ListBtn : TButton;
LoginBtn : TButton;
LogoutBtn : TButton;
PassEdit : TEdit;
RetrieveBtn : TButton;
SendBtn : TButton;
UserEdit : TEdit;