我正在尝试使用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值无效”.
解决方法
要避免此异常,您必须分配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)复制到您的系统.