📄 ftpcli.pas
字号:
function GetSocksUserCode: String;
procedure SetPassive(NewValue: Boolean);
procedure WndProc(var MsgRec: TMessage); virtual;
function FtpCliAllocateHWnd(Method: TWndMethod): HWND; virtual;
procedure FtpCliDeallocateHWnd(WHandle: Cardinal); virtual;
procedure HandleBackGroundException(E: Exception); virtual;
procedure WMFtpRequestDone(var msg: TMessage);
message WM_FTP_REQUEST_DONE;
procedure WMFtpSendData(var msg: TMessage);
message WM_FTP_SENDDATA;
procedure DestroyLocalStream;
procedure SetLocalStream (Stream:TStream);
procedure SetLocalFileName (FileName:String);
procedure SetDataPortRangeStart (NewValue:DWord); {JT}
procedure SetDataPortRangeEnd (NewValue:DWord); {JT}
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure OpenAsync; virtual;
procedure UserAsync; virtual;
procedure PassAsync; virtual;
procedure AcctAsync; virtual;
procedure ConnectAsync; virtual;
procedure QuitAsync; virtual;
procedure AbortAsync; virtual;
procedure GetAsync; virtual;
procedure ExecGetAsync; virtual;
procedure ReceiveAsync; virtual;
procedure PutAsync; virtual;
procedure ExecPutAsync; virtual;
procedure TransmitAsync; virtual;
procedure AppendAsync; virtual;
procedure ExecAppendAsync; virtual;
procedure AppendFileAsync; virtual;
procedure ExecDirAsync; virtual;
procedure DirAsync; virtual;
procedure ExecLsAsync; virtual;
procedure LsAsync; virtual;
procedure TypeSetAsync; virtual;
procedure TypeBinaryAsync; virtual;
procedure TypeAsciiAsync; virtual;
procedure PwdAsync; virtual;
procedure CwdAsync; virtual;
procedure CDupAsync; virtual;
procedure DirectoryAsync; virtual;
procedure ListAsync; virtual;
procedure SystAsync; virtual;
procedure SystemAsync; virtual;
procedure SizeAsync; virtual;
procedure FileSizeAsync; virtual;
procedure MkdAsync; virtual;
procedure MkdirAsync; virtual;
procedure RmdAsync; virtual;
procedure RmdirAsync; virtual;
procedure DeleAsync; virtual;
procedure DeleteAsync; virtual;
procedure RenFromAsync; virtual;
procedure RenToAsync; virtual;
procedure RenAsync; virtual;
procedure RenameAsync; virtual;
procedure QuoteAsync; virtual;
procedure DoQuoteAsync; virtual;
procedure AbortXferAsync; virtual;
procedure RestAsync; virtual;
procedure RestGetAsync; virtual;
procedure RestartGetAsync; virtual;
procedure RestPutAsync; virtual;
procedure RestartPutAsync; virtual;
procedure ExecMlsdAsync; virtual; { V2.90 }
procedure MlsdAsync; virtual; { V2.90 machine list directory }
procedure MlstAsync; virtual; { V2.90 machine list file }
procedure FeatAsync; virtual; { V2.90 supported extensions }
procedure MdtmAsync; virtual; { V2.90 get file modification time }
procedure MdtmyyAsync; virtual; { V2.90 set file modification time }
procedure AuthSslAsync; virtual;
procedure AuthenticateSslAsync; virtual;
procedure MfmtAsync; virtual; { V2.94 modify file modification time }
procedure Md5Async; virtual; { V2.94 md5 hash sum }
property Handle : HWND read FWindowHandle;
property LastResponse : String read FLastResponse;
property LastMultiResponse : String read FLastMultiResponse; { V2.90 multiple lines }
property ErrorMessage : String read FErrorMessage;
property DnsResult : String read FDnsResult;
property SizeResult : LongInt read FSizeResult;
property DirResult : String read FDirResult;
property ControlSocket : TWSocket read FControlSocket;
property DataSocket : TWSocket read FDataSocket;
property Connected : Boolean read GetConnected;
property StatusCode : LongInt read FStatusCode;
property ByteCount : LongInt read FByteCount;
property State : TFtpState read FState;
property RequestType : TFtpRequest read FRequestType;
property MLSTFacts : String read FMLSTFacts; { V2.90 specific new list stuff supported }
property RemFacts : String read FRemFacts; { V2.90 facts about remote file }
property SupportedExtensions : TFtpExtensions read FSupportedExtensions; { V2.94 which supported features }
property RemFileDT : TDateTime read FRemFileDT { V2.90 date/time for MdtmAsync }
write FRemFileDT; { and MdtmYYYYAsync; }
property Md5Result : String read FMd5Result; { V2.94 MD5 sum }
property Options : TFtpOptions read FOptions
write FOptions;
property LocalStream : TStream read FLocalStream
write SetLocalStream;
property ResumeAt : LongInt read FResumeAt
write FResumeAt;
property HostName : String read FHostName
write FHostName;
property Port : String read FPort
write FPort;
property DataPortRangeStart : DWORD read FDataPortRangeStart
write SetDataPortRangeStart; {JT}
property DataPortRangeEnd : DWORD read FDataPortRangeEnd
write SetDataPortRangeEnd; {JT}
property LocalAddr : String read FLocalAddr
write FLocalAddr; {bb}
property UserName : String read FUserName
write FUserName;
property PassWord : String read FPassWord
write FPassWord;
property HostDirName : String read FHostDirName
write FHostDirName;
property HostFileName : String read FHostFileName
write FHostFileName;
property LocalFileName : String read FLocalFileName
write SetLocalFileName;
property DisplayFileFlag : Boolean read FDisplayFileFlag
write FDisplayFileFlag;
property Binary : Boolean read GetBinary
write SetBinary;
property Passive : Boolean read FPassive
write SetPassive;
property ShareMode : TFtpShareMode read GetShareMode
write SetShareMode;
property DisplayFileMode : TFtpDisplayFileMode read GetDisplayFileMode
write SetDisplayFileMode;
property ConnectionType : TFtpConnectionType read GetConnectionType
write SetConnectionType;
property ProxyServer : String read FProxyServer
write FProxyServer;
property ProxyPort : String read FProxyPort
write FProxyPort;
property SocksPassword : String read GetSocksPassword
write SetSocksPassword;
property SocksPort : String read GetSocksPort
write SetSocksPort;
property SocksServer : String read GetSocksServer
write SetSocksServer;
property SocksUserCode : String read GetSocksUserCode
write SetSocksUserCode;
property Account : String read FAccount
write FAccount;
property OnDisplay : TFtpDisplay read FOnDisplay
write FOnDisplay;
property OnDisplayFile : TFtpDisplay read FOnDisplayFile
write FOnDisplayFile;
property OnError : TFTPDisplay read FOnError
write FOnError;
property OnCommand : TFtpCommand read FOnCommand
write FOnCommand;
property OnResponse : TNotifyEvent read FOnResponse
write FOnResponse;
property OnProgress : TFtpProgress read FOnProgress
write FOnProgress;
property OnSessionConnected : TSessionConnected read FOnSessionConnected
write FOnSessionConnected;
property OnSessionClosed : TSessionClosed read FOnSessionClosed
write FOnSessionClosed;
property OnRequestDone : TFtpRequestDone read FOnRequestDone
write FOnRequestDone;
property OnStateChange : TNotifyEvent read FOnStateChange
write FOnStateChange;
property OnReadyToTransmit : TFtpReadyToTransmit read FOnReadyToTransmit
write FOnReadyToTransmit;
property OnBgException : TBgExceptionEvent read FOnBgException
write FOnBgException;
end;
TFtpClient = class(TCustomFtpCli)
protected
FTimeout : Integer; { Given in seconds }
FTimeStop : LongInt; { Milli-seconds }
FMultiThreaded : Boolean;
FTerminated : Boolean;
FOnMessagePump : TNotifyEvent;
function Progress : Boolean; override;
function Synchronize(Proc : TFtpNextProc) : Boolean; virtual;
function WaitUntilReady : Boolean; virtual;
public
constructor Create(AOwner: TComponent); override;
procedure MessagePump;
function Open : Boolean;
function User : Boolean;
function Pass : Boolean;
function acct : Boolean;
function Connect : Boolean;
function Cwd : Boolean;
function Pwd : Boolean;
function CDup : Boolean;
function TypeSet : Boolean;
function TypeBinary : Boolean;
function TypeAscii : Boolean;
function Get : Boolean;
function Put : Boolean;
function RestPut : Boolean;
function RestartPut : Boolean;
function Quit : Boolean;
function Abort : Boolean;
function Receive : Boolean;
function Transmit : Boolean;
function Append : Boolean;
function AppendFile : Boolean;
function Dir : Boolean;
function Directory : Boolean;
function Ls : Boolean;
function List : Boolean;
function Mkd : Boolean;
function Mkdir : Boolean;
function Ren : Boolean;
function Rename : Boolean;
function Dele : Boolean;
function Delete : Boolean;
function Rmd : Boolean;
function Rmdir : Boolean;
function Syst : Boolean;
function System : Boolean;
function Size : Boolean;
function FileSize : Boolean;
function Quote : Boolean;
function DoQuote : Boolean;
function AbortXfer : Boolean;
function RestGet : Boolean;
function RestartGet : Boolean;
function Mlsd : Boolean; { V2.90 machine list directory }
function Mlst : Boolean; { V2.90 machine list file }
function Feat : Boolean; { V2.90 supported extensions }
function Mdtm : Boolean; { V2.90 get file modification time }
function Mdtmyy : Boolean; { V2.90 set file modification time }
function AuthSsl : Boolean;
function AuthenticateSsl : Boolean;
function Mfmt : Boolean; { V2.94 modify file modification time }
function Md5 : Boolean; { V2.94 get MD5 hash sum }
{$IFDEF NOFORMS}
property Terminated : Boolean read FTerminated
write FTerminated;
{$ENDIF}
property OnMessagePump : TNotifyEvent read FOnMessagePump
write FOnMessagePump;
published
property Timeout : Integer read FTimeout write FTimeout;
property MultiThreaded : Boolean read FMultiThreaded write FMultiThreaded;
property HostName;
property Port;
property DataPortRangeStart; {JT}
property DataPortRangeEnd; {JT}
property LocalAddr; {bb}
property UserName;
property PassWord;
property HostDirName;
property HostFileName;
property LocalFileName;
property DisplayFileFlag;
property Binary;
property ErrorMessage;
property ShareMode;
property Options;
property ConnectionType;
property ProxyServer;
property SocksPassword;
property SocksPort;
property SocksServer;
property SocksUserCode;
property Account;
property OnDisplay;
property OnDisplayFile;
property OnCommand;
property OnError;
property OnResponse;
property OnProgress;
property OnSessionConnected;
property OnSessionClosed;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -