Indy 9
|
TIdSSLIOHandlerSocket = class(TIdIOHandlerSocket)
property PassThrough: Boolean;
property SSLOptions: TIdSSLOptions;
property SSLSocket: TIdSSLSocket;
procedure AfterAccept; override;
procedure Close; override;
procedure ConnectClient(const AHost: string; const APort: Integer; const ABoundIP: string; const ABoundPort: Integer; const ABoundPortMin: Integer; const ABoundPortMax: Integer; const ATimeout: Integer = IdTimeoutDefault); override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Open; override;
function Recv(var ABuf; ALen: integer): integer; override;
function Send(var ABuf; ALen: integer): integer; override;
property OnBeforeConnect: TIOHandlerNotify;
property OnGetPassword: TPasswordEvent;
property OnStatusInfo: TCallbackEvent;
property OnVerifyPeer: TVerifyPeerEvent;