delphi - TIdHTTP.Get EIdIOHandlerPropInvalid 错误

Question

我正在尝试使用 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 值无效”。

我有很多邮政编码要查找，因此我将不胜感激任何帮助以避免此错误或提出不同方法的建议。

Answer 1

要避免此异常，您必须分配 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）复制到您的系统。