出现这种问题的原因是由于访问的 URL地址为https或存在其跳转地址为https。
首先单纯使用idhttp是只能访问http,而https则需要搭配IdSSLIOHandlerSocketOpenSSL来实现对https的访问支持,当然还需要在系统目录或编译目标程序的同目录下有ssleay32.dll与libeay32.dll两个SLL协议的支持库。
下面贴出一个简单示例,但对于需要管理cookie的自然要继续完善idhttp的其他项设置,尤其是有些https站是屏蔽直接使用IdCookieManager的。
function TMyHttp.SSLGetS(URL: string): string;
var
Http: TIdhttp;
SSLIO: TIdSSLIOHandlerSocketOpenSSL;
begin
Http := TIdHttp.Create(nil);
Http.ProtocolVersion := pv1_;
Http.HandleRedirects := True;
SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLIO.SSLOptions.Method:=sslvTLSv1;
SSLIO.SSLOptions.Mode := sslmClient;
try
try
Http.IOHandler:=SSLIO;
Result := Http.Get(URL);
except
Result := '';
end;
except end;
Http.Disconnect;
FreeAndNil(SSLIO);
FreeAndNil(Http);
end;
我使用的是Delphi 2007,它最高仅支持Indy10.2.3版本,搭配前面提到的两个OpenSLL Shared Library 1.0.1.5(1.0.1.e)版本文件。
转自:https://blog.csdn.net/huohuotu/article/details/77337087