TIdProxyConnectionInfo

type TIdProxyConnectionInfo = class(TPersistent)

protected

  FAuthentication: TIdAuthentication;

  FPassword: string;

  FPort: Integer;

  FServer: string;

  FUsername: string;

  FBasicByDefault: Boolean;

  procedure AssignTo(); override;

  procedure SetProxyPort();

  procedure SetProxyServer();

public

  procedure AfterConstruction; override;

  constructor Create;

  procedure Clear;

  destructor Destroy; override;

  procedure SetHeaders();

  property Authentication: TIdAuthentication; [rw]

published

  property BasicAuthentication: Boolean; [rw]

  property ProxyPassword: string; [rw]

  property ProxyPort: Integer; [rw]

  property ProxyServer: string; [rw]

  property ProxyUsername: string; [rw]

end;

TIdProxyConnectionInfo

TObject