Indy 10 + SSL =適用於Windows 7，不適用於XP

Question

我使用Indy 10 Http Client（最新的SVN版本）和SSL Handler（Delphi 7）來獲取https://www.webtide.com/choose/jetty.jsp網站的內容。

它可以在Windows 7 x64（在兩個系統上測試）上正常工作，但在WindowsXP x86上（在3個系統上測試），測試應用程序只是掛在TIdHTTP.Get（）上，沒有恢復的可能性一個worker-procedure/thread不起作用！）。測試應用程序無法恢復，必須使用任務管理器關閉。

SSL庫（32位x86！）來自這裏：http://slproweb.com/products/Win32OpenSSL.html 但我試過5個來自不同站點的其他版本，結果相同。

這裏是一個壓縮包與源代碼，編譯的可執行文件，和SSL庫：

https://www.dropbox.com/s/pd5soxon0qbnnl0/IndyTest.zip

這裏是源代碼（形式有一個按鈕和兩個記事）：

procedure TForm1.Button1Click(Sender: TObject); 
var IdHTTP1: TIdHTTP; 
    sl : TStringList; 
    SSL1: TIdSSLIOHandlerSocketOpenSSL; 
begin 
    try 
    try 
     IdHTTP1 := TIdHTTP.Create(nil); 
     sl := TStringList.Create; 

     SSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil); 
     SSL1.SSLOptions.Method := sslvSSLv23; 

     with IdHTTP1 do 
     begin 
      ConnectTimeout := 10 * 1000; 
      ReadTimeout := 10 * 1000; 
      IOHandler := SSL1; 

      Request.UserAgent := 'Mozilla/5.0 (X11; U; Linux i586; en-US; rv:1.7.3) Gecko/20040924 Epiphany/1.4.4 (Ubuntu)'; 
      Memo2.Text := 'connecting...'; 
      Application.ProcessMessages; 
      Memo1.Text := Get('https://www.webtide.com/choose/jetty.jsp'); 
      Memo1.Lines.Add ('response: '+ResponseText); 
      Memo2.Text := 'connected or timeout...'; 
     end; 
    except 
     On e: Exception do 
      Memo2.Text := 'Exception: '+e.Message; 
    end; 
    finally 
     IdHTTP1.Free; 
     SSL1.Free; 
     sl.Free; 
    end; 
end; 

爲什麼它在WindowsXP上崩潰/掛起？

Answer 1

Indy的ConnectTimeout屬性僅適用於建立底層TCP/IP連接時的套接字API connect()函數。稍後調用SSL_connect()以啓動SSL握手，這是應用程序數據，因此不受ConnectTimeout的約束。

Indy使用其ReadTimeout屬性在OpenSSL連接上分配套接字級讀/寫超時，但僅在Vista +上作爲OpenSSL錯誤的解決方法。在XP和更早版本上，默認的套接字讀/寫超時適用。 ReadTimeout僅告訴Indy在讀取數據時等待多久，但它不適用於套接字本身。

procedure TForm1.Button1Click(Sender: TObject); 
var 
    IdHTTP1: TIdHTTP; 
    SSL1: TIdSSLIOHandlerSocketOpenSSL; 
begin 
    try 
    IdHTTP1 := TIdHTTP.Create(nil); 
    try 
     SSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1); 
     SSL1.SSLOptions.Method := sslvSSLv23; 

     with IdHTTP1 do 
     begin 
     ConnectTimeout := 10 * 1000; 
     ReadTimeout := 10 * 1000; 
     IOHandler := SSL1; 

     OnConnected := IdHTTPConnected; 
     OnStatus := IdHTTPStatus; 

     Request.UserAgent := 'Mozilla/5.0 (X11; U; Linux i586; en-US; rv:1.7.3) Gecko/20040924 Epiphany/1.4.4 (Ubuntu)'; 

     Memo1.Text := Get('https://www.webtide.com/choose/jetty.jsp'); 
     Memo1.Lines.Add('response: '+ ResponseText); 

     Memo2.Text := 'finished...'; 
     end; 
    finally 
     IdHTTP1.Free; 
    end; 
    except 
    on e: Exception do 
     Memo2.Text := 'Exception: ' + e.Message; 
    end; 
end; 

procedure TForm1.IdHTTPStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string); 
begin 
    case AStatus of 
    hsResolving: Memo2.Text := 'resolving...'; 
    hsConnecting: Memo2.Text := 'connecting...'; 
    hsConnected: Memo2.Text := 'connected...'; 
    hsDisconnecting: Memo2.Text := 'disconnecting...'; 
    hsDisconnected: Memo2.Text := 'disconnected...'; 
    end; 
    Update; 
end; 

procedure TForm1.IdHTTPConnected(Sender: TObject); 
begin 
    with TIdHTTP(Sender).Socket.Binding do 
    begin 
    SetSockOpt(Id_SOL_SOCKET, Id_SO_RCVTIMEO, 10 * 1000); 
    SetSockOpt(Id_SOL_SOCKET, Id_SO_SNDTIMEO, 10 * 1000); 
    end; 
end;