Idhttp Post https 连接报“IOHandler value is not valid.”错误

今天研究阿里巴巴的对接，发现IDHTTP 的post 如果是 https 的连接就会报：“IOHandler value is not valid.”错误

加载https的站点页面内容的时候记得在窗体上加上“IdSSLIOHandlerSocketOpenSSL1”

以及idhttp里面IOHandler为“IdSSLIOHandlerSocketOpenSSL1”

不然老报“IOHandler value is not valid.”错误。

dnspod API V2.0 就是用的https 用delphi开发客户只需要用idhttp就可以post

在界面上放一个TIdHTTP控件，命名为IdHTTP1,再放一个TIdSSLIOHandlerSocket控件，命名为

IdSSLIOHandlerSocket1，将IdHTTP1的IOHandler属性设为IdSSLIOHandlerSocket1，这样就可以随

意的Get,Post那些地址为https开头的网站了。
不过这样仍然不行，当运行程序时，会报错“Could not load SSL library”，这是因为

TIdSSLIOHandlerSocket控件需要OpenSSL Library来配合，OpenSSL Library包含有两个动态链接库

libeay32.dll和ssleay32.dll。
OpenSSL Indy版下载 http://indy.fulgan.com/SSL/

或http://download.csdn.net/detail/netcreate/3498085（经测试，delphi 2010下的indy可以用）

将这个rar解包释放两个dll到你的程序目录即可，但是我这样做完以后post数据还是不行，发现

idhttp这里有个版本的选项Method，默认的是sslvSSLv2，改为sslvSSLv3，post返回数据正常，

yeah~仔细看了看，这个属性是IdSSLIOHandlerSocket1的。

写一个登录HTTPS协议网站的工具,想用INDY实现
现在老是会报错“Could not load SSL library”,可是我已经把ssleay32.dll和libeay32.dll两个

库文件拷进去了,是不是要专门支持D7的库文件才可以.

有类似的代码也可以提供参考一下,非常感谢!

是的，在Indy10.0.5之前的版本所使用的OpenSSL是Indy特别的版本
Indy10.2.3之前仅支持OpenSSL的0.9.8以前的版本
Indy10.2.3及之后才支持…

加载https的站点页面内容的时候记得在窗体上加上IdSSLIOHandlerSocketOpenSSL1

以及idhttp里面IOHandler为IdSSLIOHandlerSocketOpenSSL1

不然老报错IOHandler value is not valid.错..

uses
  IdHTTP,
  IdSSLOpenSSL,
  SysUtils;

Var
  IdHTTP1 : TIdHTTP;
  Src : string;
  LHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  try
   IdHTTP1:=TIdHTTP.Create(nil);
   try
    LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      IdHTTP1.IOHandler:=LHandler;
      Src:= IdHTTP1.Get('https://tools.usps.com/go/ZipLookupResultsAction!input.action?resultMode=0&companyName=&address1=1600+PENNSYLVANIA+AVE+NW&address2=&city=&state=Select&urbanCode=&postalCode=&zip=20500');
      Writeln(Src);
    finally
      LHandler.Free;
    end;
   finally
     IdHTTP1.Free;
   end;
  except on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

我自己用的：（这个估计非常完善了，非常好了，兼容一号店对接乱码的问题）

function THtpApi.MyHtpPost(const MyPostUrl: string; const MyCanShuList: TStringList): string;
var
  MyHtp: TIdHTTP;
  MyStream: TStringStream;
  MyIoHd: TIdSSLIOHandlerSocketOpenSSL;
begin
  MyHtp := TIdHTTP.Create(nil);
  MyStream := TStringStream.Create('', TEncoding.UTF8);
  MyIoHd := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    MyHtp.IOHandler := MyIoHd;
    MyHtp.Post(MyPostUrl,MyCanShuList,MyStream,IndyTextEncoding_UTF8);
    Exit(MyStream.DataString);
  finally
    MyHtp.Free;
    MyStream.Free;
    MyIoHd.Free;
  end;
end;