TIdSSLContext

type TIdSSLContext = class(TObject)

protected

  fMethod: TIdSSLVersion;

  fSSLVersions: TIdSSLVersions;

  fMode: TIdSSLMode;

  fsRootCertFile: string;

  fsCertFile: string;

  fsKeyFile: string;

  fsDHParamsFile: string;

  fVerifyDepth: Integer;

  fVerifyMode: TIdSSLVerifyModeSet;

  fVerifyDirs: string;

  fCipherList: string;

  fContext: PSSL_CTX;

  fStatusInfoOn: Boolean;

  fVerifyOn: Boolean;

  fSessionId: Integer;

  fCtxMode: TIdSSLCtxMode;

  procedure DestroyContext;

  function SetSSLMethod;

  procedure SetVerifyMode();

  function GetVerifyMode;

  procedure InitContext();

public

  Parent: TObject;

  constructor Create;

  destructor Destroy; override;

  function Clone;

  function LoadRootCert;

  function LoadCert;

  function LoadKey;

  function LoadDHParams;

  property StatusInfoOn: Boolean; [rw]

  property VerifyOn: Boolean; [rw]

  property SSLVersions: TIdSSLVersions; [rw]

  property Method: TIdSSLVersion; [rw]

  property Mode: TIdSSLMode; [rw]

  property RootCertFile: string; [rw]

  property CertFile: string; [rw]

  property CipherList: string; [rw]

  property KeyFile: string; [rw]

  property DHParamsFile: string; [rw]

  property VerifyDirs: string; [rw]

  property VerifyMode: TIdSSLVerifyModeSet; [rw]

  property VerifyDepth: Integer; [rw]

end;

TIdSSLContext

TObject