TIdSSLOptions

type TIdSSLOptions = class(TPersistent)

protected

  fsRootCertFile: string;

  fsCertFile: string;

  fsKeyFile: string;

  fsDHParamsFile: string;

  fMethod: TIdSSLVersion;

  fSSLVersions: TIdSSLVersions;

  fMode: TIdSSLMode;

  fVerifyDepth: Integer;

  fVerifyMode: TIdSSLVerifyModeSet;

  fVerifyDirs: string;

  fCipherList: string;

  procedure AssignTo(); override;

  procedure SetSSLVersions();

  procedure SetMethod();

public

  constructor Create;

published

  property RootCertFile: string; [rw]

  property CertFile: string; [rw]

  property KeyFile: string; [rw]

  property DHParamsFile: string; [rw]

  property Method: TIdSSLVersion; [rw]

  property SSLVersions: TIdSSLVersions; [rw]

  property Mode: TIdSSLMode; [rw]

  property VerifyMode: TIdSSLVerifyModeSet; [rw]

  property VerifyDepth: Integer; [rw]

  property VerifyDirs: string; [rw]

  property CipherList: string; [rw]

end;

TIdSSLOptions

TObject