TSSLStreamSec

type TSSLStreamSec = class(TCustomSSL)

protected

  FSlave: TMyTLSSynSockSlave;

  FIsServer: Boolean;

  FTLSServer: TCustomTLSInternalServer;

  FServerCreated: Boolean;

  function SSLCheck;

  function Init();

  function DeInit;

  function Prepare();

  procedure NotTrustEvent();

  function X500StrToStr();

  function X501NameToStr();

  function GetCert;

public

  constructor Create(); override;

  destructor Destroy; override;

  function LibVersion; override;

  function LibName; override;

  function Connect; override;

  function Accept; override;

  function Shutdown; override;

  function BiShutdown; override;

  function SendBuffer(); override;

  function RecvBuffer(); override;

  function WaitingData; override;

  function GetSSLVersion; override;

  function GetPeerSubject; override;

  function GetPeerIssuer; override;

  function GetPeerName; override;

  function GetPeerFingerprint; override;

  function GetCertInfo; override;

published

  property TLSServer: TCustomTLSInternalServer; [rw]

end;

TSSLStreamSec

TCustomSSL

TObject