TGNUTLSSocketHandler

type TGNUTLSSocketHandler = class(TSSLSocketHandler)

protected

  function LoadCertificate();

  procedure FreeCredentials;

  procedure FreeSession;

  function DoHandShake;

  function GetCipherListString; virtual;

  function FetchErrorInfo;

  function Check();

  function CheckOK();

  function InitSession(); virtual;

  function DoneSession; virtual;

  function InitSslKeys; virtual;

  function GetLastSSLErrorCode; override;

  function GetLastSSLErrorString; 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 GNUTLSLastError;

  property GNUTLSLastErrorString: string; [rw]

end;

TGNUTLSSocketHandler

TObject