TIdFSP

type TIdFSP = class(TIdUDPClient)

protected

  FConEstablished: Boolean;

  FSequence: Word;

  FKey: Word;

  FSystemDesc: string;

  FSystemServerLogs: Boolean;

  FSystemReadOnly: Boolean;

  FSystemReverseLookupRequired: Boolean;

  FSystemPrivateMode: Boolean;

  FSystemAcceptsExtraData: Boolean;

  FThruputControl: Boolean;

  FServerMaxThruPut: UInt32;

  FServerMaxPacketSize: Word;

  FClientMaxPacketSize: Word;

  FDirectoryListing: TIdFSPListItems;

  FDirInfo: TIdFSPDirInfo;

  FStatInfo: TIdFSPStatInfo;

  FOnRecv: TIdFSPLogEvent;

  FOnSend: TIdFSPLogEvent;

  FAbortFlag: TIdThreadSafeBoolean;

  FInCmd: TIdThreadSafeBoolean;

  procedure SendCmdOnce();

  procedure SendCmd();

  procedure ParseDirInfo();

  procedure InitComponent; override;

  function MaxBufferSize;

  function PrefPayloadSize;

  procedure SetClientMaxPacketSize();

public

  destructor Destroy; override;

  procedure Connect; override;

  procedure Disconnect; override;

  procedure Version;

  procedure AbortCmd;

  procedure Delete();

  procedure RemoveDir();

  procedure Rename();

  procedure MakeDir();

  procedure List();

  procedure GetDirInfo();

  procedure GetStatInfo();

  procedure Get();

  procedure Put();

  property SystemDesc: string; [r]

  property SystemServerLogs: Boolean; [r]

  property SystemReadOnly: Boolean; [r]

  property SystemReverseLookupRequired: Boolean; [r]

  property SystemPrivateMode: Boolean; [r]

  property SystemAcceptsExtraData: Boolean; [r]

  property ThruputControl: Boolean; [r]

  property ServerMaxThruPut: UInt32; [r]

  property ServerMaxPacketSize: Word; [r]

  property ClientMaxPacketSize: Word; [rw]

  property DirectoryListing: TIdFSPListItems; [r]

  property DirInfo: TIdFSPDirInfo; [r]

  property StatInfo: TIdFSPStatInfo; [r]

published

  property Port: TIdPort;

  property OnWork: TWorkEvent;

  property OnWorkBegin: TWorkBeginEvent;

  property OnWorkEnd: TWorkEndEvent;

  property OnRecv: TIdFSPLogEvent; [rw]

  property OnSend: TIdFSPLogEvent; [rw]

end;

TIdFSP

TIdUDPClient

TIdUDPBase

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject