TIdFTPClientIdentifier

type TIdFTPClientIdentifier = class(TPersistent)

protected

  FClientName: string;

  FClientVersion: string;

  FClientVendor: string;

  FPlatformDescription: string;

  FExtraFacts: TStrings;

  function GetCLNTParams;

  function GetCSIDParams;

  procedure SetClientName();

  procedure SetClientVersion();

  procedure SetClientVendor();

  procedure SetPlatformDescription();

  procedure SetExtraFacts();

  procedure SetCLNTParams();

  procedure SetCSIDParams();

public

  constructor Create;

  destructor Destroy; override;

  procedure Assign(); override;

  property CLNTParams: string; [rw]

  property CSIDParams: string; [rw]

published

  property ClientName: string; [rw]

  property ClientVersion: string; [rw]

  property ClientVendor: string; [rw]

  property PlatformDescription: string; [rw]

  property ExtraFacts: TStrings; [rw]

end;

TIdFTPClientIdentifier

TObject