> > Then I copied your testing certificates I found on > > "OpenSSL testing certificates" to g:\ and > > added the following 3 lines before SSLAcceptConnection in > > procedure TTCPHttpThrd.Execute; > > > > sock.SSL.TrustCertificateFile := 'g:\cacert.pem'; > > sock.SSL.PrivateKeyFile := 'g:\cakey.pem'; > > sock.SSL.CertCAFile := 'g:\ca-bundle.crt'; > > sock.SSLAcceptConnection; > > if sock.Lasterror <> 0 then Exit;
OpenSSL not using TrustCertificate property. Your server certificate must be defined by CertificateFile or PFX properties. try: sock.SSL.CertificateFile := 'g:\cacert.pem'; sock.SSL.PrivateKeyFile := 'g:\cakey.pem'; sock.SSL.CertCAFile := 'g:\ca-bundle.crt'; sock.SSLAcceptConnection; See comments on begin of ssl_openssl.pas file... -- Lukas Gebauer. E-mail: [EMAIL PROTECTED] http://synapse.ararat.cz/ - Ararat Synapse - TCP/IP Lib. ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys-and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ synalist-public mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/synalist-public
