在我的应用程序中,我正在使用IdHTTP.Get。代码的一部分:
var
IdHTTP: TIdHTTP;
begin
IdHTTP := TIdHTTP.Create(nil);
Output := IdHTTP.Get(url);
...
IdHTTP.Free;
使用IdHTTP.Version提供了版本:10.6.2.5263
我已经从here下载了OpenSSL,libeay32.dll和ssleay32.dll都位于我的应用程序的同一文件夹中。
由于我在Windows 10上使用新笔记本电脑,因此出现了此问题。我希望有人能告诉我如何解决这个问题!
如果需要访问https URL,则必须添加一些代码以完成TidHTTP
组件的创建。
尝试使用类似这样的内容:
// create components
HTTPs := Tidhttp.Create(nil);
IdSSL := TIdSSLIOHandlerSocket.Create(nil);
// try..finally for free
try
// ini
HTTPs.ReadTimeout := 30000;
HTTPs.IOHandler := IdSSL;
IdSSL.SSLOptions.Method := sslvTLSv1;
IdSSL.SSLOptions.Method := sslvTLSv1;
IdSSL.SSLOptions.Mode := sslmUnassigned;
...
您需要在uses子句中添加IdSSLOpenSSL
。