TIdServerIOHandlerSSLOpenSSL

type TIdServerIOHandlerSSLOpenSSL = class(TIdServerIOHandlerSSLBase,IIdSSLOpenSSLCallbackHelper)

protected

  fxSSLOptions: TIdSSLOptions;

  fSSLContext: TIdSSLContext;

  fOnStatusInfo: TCallbackEvent;

  FOnStatusInfoEx: TCallbackExEvent;

  fOnGetPassword: TPasswordEvent;

  fOnGetPasswordEx: TPasswordEventEx;

  fOnVerifyPeer: TVerifyPeerEvent;

  procedure DoStatusInfo(); virtual;

  procedure DoStatusInfoEx();

  procedure DoGetPassword(); virtual;

  procedure DoGetPasswordEx(); virtual;

  function DoVerifyPeer(); virtual;

  procedure InitComponent; override;

  function GetPassword();

  procedure StatusInfo();

  function VerifyPeer();

  function GetIOHandlerSelf;

public

  procedure Init; override;

  procedure Shutdown; override;

  function Accept(); override;

  destructor Destroy; override;

  function MakeClientIOHandler; override;

  function MakeFTPSvrPort; override;

  function MakeFTPSvrPasv; override;

  property SSLContext: TIdSSLContext; [r]

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;

TIdServerIOHandlerSSLOpenSSL

TIdServerIOHandlerSSLBase,IIdSSLOpenSSLCallbackHelper

TIdServerIOHandler

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject