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
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

Reply via email to