Class TFTPForm (unit main) |
Inherits from
TForm
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.
property FTPStatusText : string
property StatusProgress : TPercentRange
property StatusText : string
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;
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
property FTPStatusText : string
property StatusProgress : TPercentRange
property StatusText : string
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;