TOpenSSLSocketHandler

type TOpenSSLSocketHandler = class(TSSLSocketHandler)

protected

  procedure SetSSLLastErrorString();

  function FetchErrorInfo;

  function CheckSSL();

  function CreateSSLContext(); virtual;

  function InitContext(); virtual;

  function DoneContext; virtual;

  function InitSslKeys; virtual;

  function GetLastSSLErrorString; override;

  function GetLastSSLErrorCode; override;

public

  constructor create; override;

  destructor destroy; override;

  function CreateCertGenerator; override;

  function Connect; override;

  function Close; override;

  function Accept; override;

  function Shutdown(); override;

  function Send(); override;

  function Recv(); override;

  function BytesAvailable; override;

  function SSLLastError;

  property SSLLastErrorString: string; [rw]

  property SSL: TSSL; [r]

end;

TOpenSSLSocketHandler

TObject