Marko Paunovic wrote:
> procedure TCertificateWindow.sslClientSslHandshakeDone(Sender:
> TObject; ErrCode: Word; PeerCert: TX509Base; var Disconnect: Boolean);
> begin
>   Disconnect := FALSE;
> end;
> procedure TCertificateWindow.sslClientSslVerifyPeer(Sender: TObject;
> var Ok: Integer; Cert: TX509Base);
> begin
>   Certificates.AddCertificate(Cert.GetRawText);
>   Ok := 1;
> end;
> [/code]
> What happens after .GetAsync() is that none of these events get
> called. I debugged further, and figured out that
> OnSocketError(Sender: TObject); event gets called, but when I check
> values of sslClient.CtrlSocket.LastError and
> sslClient.CtrlSocket.LastSslError inside that event, they are zero. I
> have also tried to call non-async .Get(), but I get same error.

Please test with OverbyteIcsHttpsTst demo and use the TIcsLogger
component to write a detailed log file (enable all the log options in OI),
then post the log content here. Note that file attachments will likely
be stripped by the list server.

Arno Garrels

To unsubscribe or change your settings for TWSocket mailing list
please goto
Visit our website at

Reply via email to