出现这种问题的原因是由于访问的 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_1; 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)版本文件。