| Class TMainFrm (unit Main) |
TForm
| Constructors |
| Functions |
procedure ListBtnClick(Sender: TObject);
procedure LoginBtnClick(Sender: TObject);
procedure LogoutBtnClick(Sender: TObject);
procedure RetrieveBtnClick(Sender: TObject);
procedure SendBtnClick(Sender: TObject);
function StripFileName(FileStr : string) : string;| Properties |
| Events |
| Variables |
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;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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;