TIdHTTP.Get EIdIOHandlerPropInvalid错误

时间:2012-07-19 04:34:20

标签: delphi

我正在尝试使用TIdHTTP.Get将USPS Zip4结果网页源加载到变量中(以提取4位数的邮政编码后缀),例如,

PgSrc := 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');

如果我将它粘贴到任何浏览器中,上面的示例url工作正常。但是,在我的代码中,我收到一个EIdIOHandlerPropInvalid错误,并显示以下消息“IOHandler值无效。”

我有很多邮政编码要查找,所以我希望有任何帮助,以避免此错误或建议采用不同的方法。

1 个答案:

答案 0 :(得分:24)

要避免此异常,您必须分配IOHandler属性。

检查此样本。

{$APPTYPE CONSOLE}

{$R *.res}

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.

注意:还记得将SSL DLL(libeay32.dll,ssleay32.dll)复制到您的系统。