9

TIdHTTP.Getを使用して、USPS Zip4結果のWebページソースを変数にロードしようとしています（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は、任意のブラウザに貼り付けると正常に機能します。ただし、私のコードでは、「IOHandler値が無効です」というメッセージとともにEIdIOHandlerPropInvalidエラーが発生します。

調べるべき郵便番号がたくさんあるので、このエラーを回避するための助けや、別のアプローチの提案をいただければ幸いです。

4

1 に答える 1

27

この例外を回避するには、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）をシステムにコピーすることも忘れないでください。

于 2012-07-19T14:08:23.597 に答える