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）到您的系統。