TIdSSLIOHandlerSocketOpenSSL

type TIdSSLIOHandlerSocketOpenSSL = class(TIdSSLIOHandlerSocketBase,IIdSSLOpenSSLCallbackHelper)

protected

  fSSLContext: TIdSSLContext;

  fxSSLOptions: TIdSSLOptions;

  fSSLSocket: TIdSSLSocket;

  fOnStatusInfo: TCallbackEvent;

  FOnStatusInfoEx: TCallbackExEvent;

  fOnGetPassword: TPasswordEvent;

  fOnGetPasswordEx: TPasswordEventEx;

  fOnVerifyPeer: TVerifyPeerEvent;

  fSSLLayerClosed: Boolean;

  fOnBeforeConnect: TIOHandlerNotify;

  procedure SetPassThrough(); override;

  procedure DoBeforeConnect(); virtual;

  procedure DoStatusInfo(); virtual;

  procedure DoStatusInfoEx();

  procedure DoGetPassword(); virtual;

  procedure DoGetPasswordEx(); virtual;

  function DoVerifyPeer(); virtual;

  function RecvEnc(); override;

  function SendEnc(); override;

  procedure Init;

  procedure OpenEncodedConnection; virtual;

  procedure InitComponent; override;

  procedure ConnectClient; override;

  function CheckForError(); override;

  procedure RaiseError(); override;

  function GetPassword();

  procedure StatusInfo();

  function VerifyPeer();

  function GetIOHandlerSelf;

public

  destructor Destroy; override;

  function Clone; override;

  procedure StartSSL; override;

  procedure AfterAccept; override;

  procedure Close; override;

  procedure Open; override;

  function Readable(); override;

  property SSLSocket: TIdSSLSocket; [rw]

  property OnBeforeConnect: TIOHandlerNotify; [rw]

  property SSLContext: TIdSSLContext; [rw]

published

  property SSLOptions: TIdSSLOptions; [rw]

  property OnStatusInfo: TCallbackEvent; [rw]

  property OnStatusInfoEx: TCallbackExEvent; [rw]

  property OnGetPassword: TPasswordEvent; [rw]

  property OnGetPasswordEx: TPasswordEventEx; [rw]

  property OnVerifyPeer: TVerifyPeerEvent; [rw]

end;

TIdSSLIOHandlerSocketOpenSSL

TIdSSLIOHandlerSocketBase,IIdSSLOpenSSLCallbackHelper

TIdIOHandlerStack

TIdIOHandlerSocket

TIdIOHandler

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject