Class TMainFrm (unit Main)

Inherits from

TForm

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.

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;



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;