TLFTPClient

type TLFTPClient = class(TLFTP,ILClient)

protected

  FStatus: TLFTPStatusFront;

  FCommandFront: TLFTPStatusFront;

  FStoreFile: TFileStream;

  FExpectedBinary: Boolean;

  FPipeLine: Boolean;

  FPassword: string;

  FPWD: string;

  FStatusFlags: array [TLFTPStatus] of Boolean;

  FOnError: TLSocketErrorEvent;

  FOnReceive: TLSocketEvent;

  FOnSent: TLSocketProgressEvent;

  FOnControl: TLSocketEvent;

  FOnConnect: TLSocketEvent;

  FOnSuccess: TLFTPClientStatusEvent;

  FOnFailure: TLFTPClientStatusEvent;

  FChunkSize: Word;

  FLastPort: Word;

  FStartPort: Word;

  FStatusSet: TLFTPStatusSet;

  FSL: TStringList;

  procedure OnRe();

  procedure OnDs();

  procedure OnSe();

  procedure OnEr();

  procedure OnControlEr();

  procedure OnControlRe();

  procedure OnControlCo();

  procedure OnControlDs();

  procedure StopSending;

  procedure ClearStatusFlags;

  function GetCurrentStatus;

  function GetTransfer;

  function GetEcho;

  procedure SetEcho();

  procedure ParsePWD();

  function GetConnected; override;

  function GetBinary;

  procedure SetBinary();

  function CanContinue();

  function CleanInput();

  procedure SetStartPor();

  procedure EvaluateFeatures;

  procedure EvaluateAnswer();

  procedure PasvPort;

  function User();

  function Password();

  procedure SendChunk();

  procedure ExecuteFrontCommand;

public

  constructor Create(); override;

  destructor Destroy; override;

  function Get(); override;

  function GetMessage(); override;

  function Send(); override;

  function SendMessage(); override;

  function Connect();

  function Authenticate();

  function GetData();

  function GetDataMessage;

  function Retrieve();

  function Put(); virtual;

  function ChangeDirectory();

  function MakeDirectory();

  function RemoveDirectory();

  function DeleteFile();

  function Rename();

  procedure List();

  procedure Nlst();

  procedure SystemInfo;

  procedure ListFeatures;

  procedure PresentWorkingDirectory;

  procedure Help();

  procedure Quit;

  procedure Disconnect(); override;

  procedure CallAction; override;

  property StatusSet: TLFTPStatusSet; [rw]

  property ChunkSize: Word; [rw]

  property Binary: Boolean; [rw]

  property PipeLine: Boolean; [rw]

  property Echo: Boolean; [rw]

  property StartPort: Word; [rw]

  property Transfer: Boolean; [r]

  property CurrentStatus: TLFTPStatus; [r]

  property PresentWorkingDirectoryString: string; [r]

  property OnError: TLSocketErrorEvent; [rw]

  property OnConnect: TLSocketEvent; [rw]

  property OnSent: TLSocketProgressEvent; [rw]

  property OnReceive: TLSocketEvent; [rw]

  property OnControl: TLSocketEvent; [rw]

  property OnSuccess: TLFTPClientStatusEvent; [rw]

  property OnFailure: TLFTPClientStatusEvent; [rw]

end;

TLFTPClient

TLFTP,ILClient

TLComponent,ILDirect

TObject,ILComponent