TLSSLSession

type TLSSLSession = class(TLSession)

protected

  FOnSSLConnect: TLSocketEvent;

  FOnSSLAccept: TLSocketEvent;

  FSSLActive: Boolean;

  FSSLContext: PSSL_CTX;

  FPassword: string;

  FCAFile: string;

  FKeyFile: string;

  FMethod: TLSSLMethod;

  FPasswordCallback: TLPasswordCB;

  procedure CallOnSSLConnect();

  procedure CallOnSSLAccept();

  procedure SetSSLActive();

  procedure SetCAFile();

  procedure SetKeyFile();

  procedure SetPassword();

  procedure SetMethod();

  procedure SetPasswordCallback();

  procedure CreateSSLContext; virtual;

public

  constructor Create(); override;

  procedure RegisterWithComponent(); override;

  procedure InitHandle(); override;

  procedure ConnectEvent(); override;

  procedure ReceiveEvent(); override;

  procedure AcceptEvent(); override;

  function HandleSSLConnection();

  property Password: string; [rw]

  property CAFile: string; [rw]

  property KeyFile: string; [rw]

  property Method: TLSSLMethod; [rw]

  property PasswordCallback: TLPasswordCB; [rw]

  property SSLContext: PSSL_CTX; [r]

  property SSLActive: Boolean; [rw]

  property OnSSLConnect: TLSocketEvent; [rw]

  property OnSSLAccept: TLSocketEvent; [rw]

end;

TLSSLSession

TLSession

TObject