TFTPSend

type TFTPSend = class(TSynaClient)

protected

  FOnStatus: TFTPStatus;

  FSock: TTCPBlockSocket;

  FDSock: TTCPBlockSocket;

  FResultCode: Integer;

  FResultString: String;

  FFullResult: TStringList;

  FAccount: String;

  FFWHost: String;

  FFWPort: String;

  FFWUsername: String;

  FFWPassword: String;

  FFWMode: Integer;

  FDataStream: TMemoryStream;

  FDataIP: String;

  FDataPort: String;

  FDirectFile: Boolean;

  FDirectFileName: String;

  FCanResume: Boolean;

  FPassiveMode: Boolean;

  FForceDefaultPort: Boolean;

  FForceOldPort: Boolean;

  FFtpList: TFTPList;

  FBinaryMode: Boolean;

  FAutoTLS: Boolean;

  FIsTLS: Boolean;

  FIsDataTLS: Boolean;

  FTLSonData: Boolean;

  FFullSSL: Boolean;

  function Auth(); virtual;

  function Connect; virtual;

  function InternalStor(); virtual;

  function DataSocket; virtual;

  function AcceptDataSocket; virtual;

  procedure DoStatus(); virtual;

public

  CustomLogon: TLogonActions;

  constructor Create;

  destructor Destroy; override;

  function ReadResult; virtual;

  procedure ParseRemote(); virtual;

  procedure ParseRemoteEPSV(); virtual;

  function FTPCommand(); virtual;

  function Login; virtual;

  function Logout; virtual;

  procedure Abort; virtual;

  function List(); virtual;

  function RetrieveFile(); virtual;

  function StoreFile(); virtual;

  function StoreUniqueFile; virtual;

  function AppendFile(); virtual;

  function RenameFile(); virtual;

  function DeleteFile(); virtual;

  function FileSize(); virtual;

  function NoOp; virtual;

  function ChangeWorkingDir(); virtual;

  function ChangeToRootDir; virtual;

  function DeleteDir(); virtual;

  function CreateDir(); virtual;

  function GetCurrentDir; virtual;

  function DataRead(); virtual;

  function DataWrite(); virtual;

published

  property ResultCode: Integer; [r]

  property ResultString: String; [r]

  property FullResult: TStringList; [r]

  property Account: String; [rw]

  property FWHost: String; [rw]

  property FWPort: String; [rw]

  property FWUsername: String; [rw]

  property FWPassword: String; [rw]

  property FWMode: Integer; [rw]

  property Sock: TTCPBlockSocket; [r]

  property DSock: TTCPBlockSocket; [r]

  property DataStream: TMemoryStream; [r]

  property DataIP: String; [r]

  property DataPort: String; [r]

  property DirectFile: Boolean; [rw]

  property DirectFileName: String; [rw]

  property CanResume: Boolean; [r]

  property PassiveMode: Boolean; [rw]

  property ForceDefaultPort: Boolean; [rw]

  property ForceOldPort: Boolean; [rw]

  property OnStatus: TFTPStatus; [rw]

  property FtpList: TFTPList; [r]

  property BinaryMode: Boolean; [rw]

  property AutoTLS: Boolean; [rw]

  property FullSSL: Boolean; [rw]

  property IsTLS: Boolean; [r]

  property IsDataTLS: Boolean; [r]

  property TLSonData: Boolean; [rw]

end;

TFTPSend

TSynaClient

TObject