marius gabi wrote:
> I have updated the SslHandshakeDone(Sender: TObject; ErrCode: Word;
> PeerCert: TX509Base; var Disconnect: Boolean); event as you mentioned
> and I used SslVerifyDepth = 15 and
> for I := 0 to TCustomSslWSocket(Sender).SslCertChain.Count -1 do
> TCustomSslWSocket(Sender).SslCertChain[I].SaveToPemFile('cert' +
> IntToStr(I) + '.pem');
>
> The first thing I noticed is that only one certificate is saved and
> this one is the one from the very top of chain (the CA for all
> sub_CAs – the one that I posted earlier, you can find it attached).
> Please advice
One certificate is not enough, did you set "OK := 1;" in OnSslVerifyPeer event?
--
Arno Garrels
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
