适用Delphi7程序访问https网站TLSv1.2以上的openssl库文件

　　现在TLSv1.0已经过时了，如果网站开启TLSv1.0的话，PCI DSS将提示不合规。Delphi7作为20年前的经典编程工具，其开发的程序如果想要访问https网站资源，需要随程序携带openssl库文件，即libeay32.dll和ssleay32.dll两个库文件。

　　经过测试，携带openssl 1.0.2.21版本库文件，可以正常访问TLSv1.1-1.3的网站资源。
　　使用方法：解压出上述2个dll文件后，将2个dll直接复制到程序exe所在目录即可。
openssl.zip (1.09 MB, 下载次数: 365)

2023-4-4 09:55 上传

点击文件名下载附件

　　Delphi7访问https网站资源示例代码：

1. var
   
2.   a: string;
   
3.   b: string;
   
4.   c: Integer;
   
5.   myweb: TIdHTTP;
   
6.   vSSL: TIdSSLIOHandlerSocket;
   
7. begin
   
8.   myweb := TIdHTTP.Create(Application);
   
9.   vSSL := TIdSSLIOHandlerSocket.Create(nil);
   
10.   myweb.IOHandler := vSSL;
    
11.   vSSL.SSLOptions.Method := sslvSSLv23;
    
12.   vSSL.SSLOptions.Mode := sslmBoth;
    
13.   myweb.Get('https://www.wancili.com');
    
14. end;
    

复制代码