Class TFTPForm (unit Ftp)

Inherits from

TForm

Constructors



Functions

procedure CancelMNUClick(Sender: TObject);


procedure ChDirMNUClick(Sender: TObject);


procedure ConnectMNUClick(Sender: TObject);

continuation ?

procedure DeleteMNUClick(Sender: TObject);


procedure DirMNUClick(Sender: TObject);


procedure DirSepMNUClick(Sender: TObject);


procedure EditorMNUClick(Sender: TObject);


procedure EnableDisableMenus;


procedure ExitMNUClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure GetMNUClick(Sender: TObject);


procedure HelpMNUClick(Sender: TObject);


procedure MkDirMNUClick(Sender: TObject);


procedure ParentMNUClick(Sender: TObject);


procedure PutMNUClick(Sender: TObject);


procedure PwdMNUClick(Sender: TObject);


procedure QuitMNUClick(Sender: TObject);


procedure QuoteMNUClick(Sender: TObject);


procedure RenameMNUClick(Sender: TObject);


procedure RmDirMNUClick(Sender: TObject);


procedure Sockets1ErrorOccurred(Sender: TObject; Socket: integer; Error: Integer; Msg: String);


procedure ViewMNUClick(Sender: TObject);


procedure ViewSepMNUClick(Sender: TObject);


procedure CancelGauge;


function command(fmt: string; const args: array of const): integer;


procedure DoAddLine(Buff: string);


function DoDirList(cmd: string;const args: array of const): integer;


procedure DoPrintf(line: string; const args: array of const);


function GetFTPListenPort: integer;

infinite timeout

function getreply(cmdstring: string): integer;


function GetTotalRetrieveSize: longint;


procedure ImBusy;


procedure ImFree;


function ReadDisplayLine: integer;


procedure RetrieveFile(cmd: string;LocalName: string; rtype: string);


function TimedOut: Boolean;


procedure UpdateGauge(BytesWritten,TotalTransferSize: longint);


Properties

Events

Variables

CancelMNU : TMenuItem;


ChDirMNU : TMenuItem;


ConnectMNU : TMenuItem;


DeleteMNU : TMenuItem;


DirCommandMNU : TMenuItem;


DirMNU : TMenuItem;


DirSepMNU : TMenuItem;


EditorMNU : TMenuItem;


ExitMNU : TMenuItem;


FileMNU : TMenuItem;


FileTransMNU : TMenuItem;


GetMNU : TMenuItem;


HelpMNU : TMenuItem;


MainMenu1 : TMainMenu;


Memo1 : TMemo;


MiscCommMNU : TMenuItem;


MkDirMNU : TMenuItem;


N1 : TMenuItem;


OptionsMNU : TMenuItem;


ParentMNU : TMenuItem;


PutMNU : TMenuItem;


PwdMNU : TMenuItem;


QuitMNU : TMenuItem;


QuoteMNU : TMenuItem;


RenameMNU : TMenuItem;


RmDirMNU : TMenuItem;


Sockets1 : TSockets;


Sockets2 : TSockets;


ViewMNU : TMenuItem;


ViewSepMNU : TMenuItem;



Constructors


Functions


procedure CancelMNUClick(Sender: TObject);


procedure ChDirMNUClick(Sender: TObject);


procedure ConnectMNUClick(Sender: TObject);

continuation ?


procedure DeleteMNUClick(Sender: TObject);


procedure DirMNUClick(Sender: TObject);


procedure DirSepMNUClick(Sender: TObject);


procedure EditorMNUClick(Sender: TObject);


procedure EnableDisableMenus;


procedure ExitMNUClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure GetMNUClick(Sender: TObject);


procedure HelpMNUClick(Sender: TObject);


procedure MkDirMNUClick(Sender: TObject);


procedure ParentMNUClick(Sender: TObject);


procedure PutMNUClick(Sender: TObject);


procedure PwdMNUClick(Sender: TObject);


procedure QuitMNUClick(Sender: TObject);


procedure QuoteMNUClick(Sender: TObject);


procedure RenameMNUClick(Sender: TObject);


procedure RmDirMNUClick(Sender: TObject);


procedure Sockets1ErrorOccurred(Sender: TObject; Socket: integer; Error: Integer; Msg: String);


procedure ViewMNUClick(Sender: TObject);


procedure ViewSepMNUClick(Sender: TObject);


procedure CancelGauge;


function command(fmt: string; const args: array of const): integer;


procedure DoAddLine(Buff: string);


function DoDirList(cmd: string;const args: array of const): integer;


procedure DoPrintf(line: string; const args: array of const);


function GetFTPListenPort: integer;

infinite timeout


function getreply(cmdstring: string): integer;


function GetTotalRetrieveSize: longint;


procedure ImBusy;


procedure ImFree;


function ReadDisplayLine: integer;


procedure RetrieveFile(cmd: string;LocalName: string; rtype: string);


function TimedOut: Boolean;


procedure UpdateGauge(BytesWritten,TotalTransferSize: longint);


Properties


Events


Variables


CancelMNU : TMenuItem;


ChDirMNU : TMenuItem;


ConnectMNU : TMenuItem;


DeleteMNU : TMenuItem;


DirCommandMNU : TMenuItem;


DirMNU : TMenuItem;


DirSepMNU : TMenuItem;


EditorMNU : TMenuItem;


ExitMNU : TMenuItem;


FileMNU : TMenuItem;


FileTransMNU : TMenuItem;


GetMNU : TMenuItem;


HelpMNU : TMenuItem;


MainMenu1 : TMainMenu;


Memo1 : TMemo;


MiscCommMNU : TMenuItem;


MkDirMNU : TMenuItem;


N1 : TMenuItem;


OptionsMNU : TMenuItem;


ParentMNU : TMenuItem;


PutMNU : TMenuItem;


PwdMNU : TMenuItem;


QuitMNU : TMenuItem;


QuoteMNU : TMenuItem;


RenameMNU : TMenuItem;


RmDirMNU : TMenuItem;


Sockets1 : TSockets;


Sockets2 : TSockets;


ViewMNU : TMenuItem;


ViewSepMNU : TMenuItem;