TLFTP

type TLFTP = class(TLComponent)

protected

  FControl: TLTelnetClient;

  FData: TLTcp;

  FSending: Boolean;

  FTransferMethod: TLFTPTransferMethod;

  function GetConnected; virtual;

  function GetTimeout;

  procedure SetTimeout();

  function GetSocketClass;

  procedure SetSocketClass();

public

  constructor Create(); override;

  destructor Destroy; override;

  function Get(); virtual; abstract;

  function GetMessage(); virtual; abstract;

  function Send(); virtual; abstract;

  function SendMessage(); virtual; abstract;

  property Connected: Boolean; [r]

  property Timeout: Integer; [rw]

  property SocketClass: TLSocketClass; [rw]

  property ControlConnection: TLTelnetClient; [r]

  property DataConnection: TLTCP; [r]

  property TransferMethod: TLFTPTransferMethod; [rw]

end;

TLFTP

TLComponent

TObject