Class TFTPForm (unit main)

Inherits from

TForm

Constructors



Functions

procedure AboutBtnClick(Sender: TObject);


procedure AboutItemClick(Sender: TObject);

don't change background color behind text!

procedure AsciiBtnClick(Sender: TObject);


procedure AsciiModeItemClick(Sender: TObject);


procedure BinaryBtnClick(Sender: TObject);


procedure BinaryModeItemClick(Sender: TObject);


procedure ConnectBtnClick(Sender: TObject);


procedure ConnectItemClick(Sender: TObject);


procedure DeleteBtnClick(Sender: TObject);


procedure DisconnectBtnClick(Sender: TObject);


procedure DisconnectItemClick(Sender: TObject);


procedure DownloadBtnClick(Sender: TObject);


procedure ExitItemClick(Sender: TObject);


procedure FilesChange(Sender: TObject; Item: TListItem; Change: TItemChange);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FTPConnected(Sender: TObject; Success: Boolean);


procedure FTPDirectoryRefreshed(Sender: TObject; Success: Boolean);


procedure FTPDirectoryStatus(Sender: TObject; AFilename: string);


procedure FTPDisconnected(Sender: TObject);


procedure FTPGotLine(Sender: TObject; ALine: string);


procedure FTPRetrieveFinished(Sender: TObject; Success: Boolean; BytesTransferred: Longint);


procedure FTPRetrieveStatus(Sender: TObject; BytesTransferred, BytesRemaining: Longint);


procedure FTPSendFinished(Sender: TObject; Success: boolean; BytesTransferred: longint);


procedure FTPSendStatus(Sender: TObject; BytesTransferred, BytesRemaining: Longint);


procedure Local8BtnClick(Sender: TObject);


procedure Local8ModeItemClick(Sender: TObject);


procedure LocalDirKeyPress(Sender: TObject; var Key: Char);


procedure LocalEnter(Sender: TObject);

check for dir exist here.

procedure LocalFilesCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);


procedure LocalFilesDblClick(Sender: TObject);


procedure LocalFilesDeleteClick(Sender: TObject);


procedure LocalFilesPopupMenuPopup(Sender: TObject);


procedure LocalFilesPropertiesClick(Sender: TObject);


procedure LocalFilesRefreshClick(Sender: TObject);


procedure LocalFilesUploadClick(Sender: TObject);


procedure LocalMaskKeyPress(Sender: TObject; var Key: Char);

Screen.

procedure MakeDirBtnClick(Sender: TObject);


procedure PropertiesBtnClick(Sender: TObject);


procedure RefreshBtnClick(Sender: TObject);


procedure RemoteDirKeyPress(Sender: TObject; var Key: Char);


procedure RemoteEnter(Sender: TObject);


procedure RemoteFilesCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);


procedure RemoteFilesCreateDirClick(Sender: TObject);


procedure RemoteFilesDblClick(Sender: TObject);

Don't know what it is.

procedure RemoteFilesDeleteClick(Sender: TObject);


procedure RemoteFilesDownloadClick(Sender: TObject);


procedure RemoteFilesPopupMenuPopup(Sender: TObject);


procedure RemoteFilesRefreshClick(Sender: TObject);


procedure RemoteFilesRenameClick(Sender: TObject);


procedure RemoteMaskKeyPress(Sender: TObject; var Key: Char);


procedure RenameBtnClick(Sender: TObject);


procedure SiteMenuClick(Sender: TObject);


procedure StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);


procedure UploadBtnClick(Sender: TObject);


procedure ChangeLocalDir(NewDir: string);

not all hosts consider '.

procedure ChangeRemoteDir(NewDir: string);


procedure DownloadFile(const Filename: string);


function ItemType(const Item: TListItem): integer;


procedure SetFTPStatusText(const Text: string);


procedure SetStatusProgress(Val: TPercentRange);


procedure SetStatusText(const Text: string);


procedure SetTransferMode;


procedure ShowHint(Sender: TObject);


procedure UpdateButtons(LocalActive: boolean);


procedure UploadFile(const Filename: string);

if BinaryModeItem.

Properties

property FTPStatusText : string


property StatusProgress : TPercentRange


property StatusText : string


Events

Variables

AboutBtn : TSpeedButton;


AboutItem : TMenuItem;


AsciiBtn : TSpeedButton;


AsciiModeItem : TMenuItem;


BinaryBtn : TSpeedButton;


BinaryModeItem : TMenuItem;


ConnectBtn : TSpeedButton;


ConnectItem : TMenuItem;


DeleteBtn : TSpeedButton;


DisconnectBtn : TSpeedButton;


DisconnectItem : TMenuItem;


DownloadBtn : TSpeedButton;


ExitItem : TMenuItem;


FTP : TFTP4W;


HelpMenu : TMenuItem;


Local8Btn : TSpeedButton;


Local8ModeItem : TMenuItem;


LocalDir : TComboBox;


LocalFiles : TListView;


LocalFilesDelete : TMenuItem;


LocalFilesPopupMenu : TPopupMenu;


LocalFilesProperties : TMenuItem;


LocalFilesRefresh : TMenuItem;


LocalFilesUpload : TMenuItem;


LocalHeader : TPanel;


LocalMask : TComboBox;


LocalPanel : TPanel;


Log : TMemo;


MainMenu1 : TMainMenu;


MakeDirBtn : TSpeedButton;


N1 : TMenuItem;


N2 : TMenuItem;


PropertiesBtn : TSpeedButton;


RefreshBtn : TSpeedButton;


RemoteDir : TComboBox;


RemoteFiles : TListView;


RemoteFilesCreateDir : TMenuItem;


RemoteFilesDelete : TMenuItem;


RemoteFilesDownload : TMenuItem;


RemoteFilesPopupMenu : TPopupMenu;


RemoteFilesRefresh : TMenuItem;


RemoteFilesRename : TMenuItem;


RemoteHeader : TPanel;


RemoteMask : TComboBox;


RemotePanel : TPanel;


RenameBtn : TSpeedButton;


SiteMenu : TMenuItem;


SmallImages : TImageList;


StatusBar : TStatusBar;


Toolbar : TPanel;


TransferModeItem : TMenuItem;


UploadBtn : TSpeedButton;


FCurrentLocalDir : string;


FStatusProgress : TPercentRange;



Constructors


Functions


procedure AboutBtnClick(Sender: TObject);


procedure AboutItemClick(Sender: TObject);

don't change background color behind text!


procedure AsciiBtnClick(Sender: TObject);


procedure AsciiModeItemClick(Sender: TObject);


procedure BinaryBtnClick(Sender: TObject);


procedure BinaryModeItemClick(Sender: TObject);


procedure ConnectBtnClick(Sender: TObject);


procedure ConnectItemClick(Sender: TObject);


procedure DeleteBtnClick(Sender: TObject);


procedure DisconnectBtnClick(Sender: TObject);


procedure DisconnectItemClick(Sender: TObject);


procedure DownloadBtnClick(Sender: TObject);


procedure ExitItemClick(Sender: TObject);


procedure FilesChange(Sender: TObject; Item: TListItem; Change: TItemChange);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FTPConnected(Sender: TObject; Success: Boolean);


procedure FTPDirectoryRefreshed(Sender: TObject; Success: Boolean);


procedure FTPDirectoryStatus(Sender: TObject; AFilename: string);


procedure FTPDisconnected(Sender: TObject);


procedure FTPGotLine(Sender: TObject; ALine: string);


procedure FTPRetrieveFinished(Sender: TObject; Success: Boolean; BytesTransferred: Longint);


procedure FTPRetrieveStatus(Sender: TObject; BytesTransferred, BytesRemaining: Longint);


procedure FTPSendFinished(Sender: TObject; Success: boolean; BytesTransferred: longint);


procedure FTPSendStatus(Sender: TObject; BytesTransferred, BytesRemaining: Longint);


procedure Local8BtnClick(Sender: TObject);


procedure Local8ModeItemClick(Sender: TObject);


procedure LocalDirKeyPress(Sender: TObject; var Key: Char);


procedure LocalEnter(Sender: TObject);

check for dir exist here.


procedure LocalFilesCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);


procedure LocalFilesDblClick(Sender: TObject);


procedure LocalFilesDeleteClick(Sender: TObject);


procedure LocalFilesPopupMenuPopup(Sender: TObject);


procedure LocalFilesPropertiesClick(Sender: TObject);


procedure LocalFilesRefreshClick(Sender: TObject);


procedure LocalFilesUploadClick(Sender: TObject);


procedure LocalMaskKeyPress(Sender: TObject; var Key: Char);

Screen.Cursor := crHourglass;


procedure MakeDirBtnClick(Sender: TObject);


procedure PropertiesBtnClick(Sender: TObject);


procedure RefreshBtnClick(Sender: TObject);


procedure RemoteDirKeyPress(Sender: TObject; var Key: Char);


procedure RemoteEnter(Sender: TObject);


procedure RemoteFilesCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);


procedure RemoteFilesCreateDirClick(Sender: TObject);


procedure RemoteFilesDblClick(Sender: TObject);

Don't know what it is.


procedure RemoteFilesDeleteClick(Sender: TObject);


procedure RemoteFilesDownloadClick(Sender: TObject);


procedure RemoteFilesPopupMenuPopup(Sender: TObject);


procedure RemoteFilesRefreshClick(Sender: TObject);


procedure RemoteFilesRenameClick(Sender: TObject);


procedure RemoteMaskKeyPress(Sender: TObject; var Key: Char);


procedure RenameBtnClick(Sender: TObject);


procedure SiteMenuClick(Sender: TObject);


procedure StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);


procedure UploadBtnClick(Sender: TObject);


procedure ChangeLocalDir(NewDir: string);

not all hosts consider '..' to be parent directory


procedure ChangeRemoteDir(NewDir: string);


procedure DownloadFile(const Filename: string);


function ItemType(const Item: TListItem): integer;


procedure SetFTPStatusText(const Text: string);


procedure SetStatusProgress(Val: TPercentRange);


procedure SetStatusText(const Text: string);


procedure SetTransferMode;


procedure ShowHint(Sender: TObject);


procedure UpdateButtons(LocalActive: boolean);


procedure UploadFile(const Filename: string);

if BinaryModeItem.Checked then


Properties


property FTPStatusText : string


property StatusProgress : TPercentRange


property StatusText : string


Events


Variables


AboutBtn : TSpeedButton;


AboutItem : TMenuItem;


AsciiBtn : TSpeedButton;


AsciiModeItem : TMenuItem;


BinaryBtn : TSpeedButton;


BinaryModeItem : TMenuItem;


ConnectBtn : TSpeedButton;


ConnectItem : TMenuItem;


DeleteBtn : TSpeedButton;


DisconnectBtn : TSpeedButton;


DisconnectItem : TMenuItem;


DownloadBtn : TSpeedButton;


ExitItem : TMenuItem;


FTP : TFTP4W;


HelpMenu : TMenuItem;


Local8Btn : TSpeedButton;


Local8ModeItem : TMenuItem;


LocalDir : TComboBox;


LocalFiles : TListView;


LocalFilesDelete : TMenuItem;


LocalFilesPopupMenu : TPopupMenu;


LocalFilesProperties : TMenuItem;


LocalFilesRefresh : TMenuItem;


LocalFilesUpload : TMenuItem;


LocalHeader : TPanel;


LocalMask : TComboBox;


LocalPanel : TPanel;


Log : TMemo;


MainMenu1 : TMainMenu;


MakeDirBtn : TSpeedButton;


N1 : TMenuItem;


N2 : TMenuItem;


PropertiesBtn : TSpeedButton;


RefreshBtn : TSpeedButton;


RemoteDir : TComboBox;


RemoteFiles : TListView;


RemoteFilesCreateDir : TMenuItem;


RemoteFilesDelete : TMenuItem;


RemoteFilesDownload : TMenuItem;


RemoteFilesPopupMenu : TPopupMenu;


RemoteFilesRefresh : TMenuItem;


RemoteFilesRename : TMenuItem;


RemoteHeader : TPanel;


RemoteMask : TComboBox;


RemotePanel : TPanel;


RenameBtn : TSpeedButton;


SiteMenu : TMenuItem;


SmallImages : TImageList;


StatusBar : TStatusBar;


Toolbar : TPanel;


TransferModeItem : TMenuItem;


UploadBtn : TSpeedButton;


FCurrentLocalDir : string;


FStatusProgress : TPercentRange;