Hallo,
ich habe gerade das gleiche Problem (mit Delphi 2006), mein nicht funktionierender Ansatz den ich im Web gefunden habe ist der hier:
Code:
procedure TGdvConnectForm.HTTPRIO1HTTPWebNode1BeforePost(
const HTTPReqResp: THTTPReqResp; Data: Pointer);
var timeout1,timeout2,timeout3:integer;
begin
// HTTPReqResp.ConnectTimeout:=500000;
// HTTPReqResp.SendTimeout:=500000;
// HTTPReqResp.ReceiveTimeout:=500000;
timeout1:=1000000;
timeout2:=1000000;
timeout3:=1000000;
InternetSetOption(Data, INTERNET_OPTION_RECEIVE_TIMEOUT, Pointer(@timeout1), SizeOf(timeout1));
InternetSetOption(Data, INTERNET_OPTION_CONNECT_TIMEOUT, Pointer(@timeout2), SizeOf(timeout2));
InternetSetOption(Data, INTERNET_OPTION_SEND_TIMEOUT, Pointer(@timeout3), SizeOf(timeout3));
end;
Es gibt wohl einen Windows Bug durch den sich der Timeout nicht setzen lässt.
Bist du vielleicht schon weiter?