TLSSLSocket

type TLSSLSocket = class(TLSocket)

protected

  FSSL: PSSL;

  FSSLContext: PSSL_CTX;

  FSSLStatus: TLSSLStatus;

  FIsAcceptor: Boolean;

  function GetConnected; override; deprecated ;

  function GetConnectionStatus; override;

  function DoSend(); override;

  function DoGet(); override;

  function HandleResult(); override;

  function SetActiveSSL();

  procedure SetupSSLSocket;

  procedure ActivateTLSEvent;

  procedure ConnectEvent;

  procedure AcceptEvent;

  procedure ConnectSSL;

  procedure AcceptSSL;

  procedure ShutdownSSL;

  function LogError(); override;

public

  destructor Destroy; override;

  function SetState(); override;

  procedure Disconnect(); override;

  property SSLStatus: TLSSLStatus; [r]

end;

TLSSLSocket

TLSocket

TLHandle

TObject