Timeout bei Rest-Request verringern

[Der schöne Günther]

Ja, das kam mit Berlin:

Zitat:

HTTP Connection Improvements
Two new timeouts: ConnectionTimeout and ResponseTimeout for the HTTP framework and component.

http://docwiki.embarcadero.com/RADSt...n_Improvements

[TiGü]

Habe gerade versucht mit der Rtti etwas zu spielen, aber da die Requests nur lokale Variablen in den jeweiligen Funktionen sind, kam ich auf die Schnelle nicht so ran.

Eine Idee wäre, dass du dich in WinHttpOpenRequest oder in WinHttpSendRequest einhängst und auf dem übergebenen Handle selbst die Funktion WinHttpSetTimeouts aufrufst.
Da gab es neulich irgendwo einen Blogbeitrag dazu und ich fands relativ unkompliziert...wie hieß das doch gleich?

[TiGü]

Ach ja, Delphi Detours Library:

Hier mal ein Beispiel, wo MessageBoxW gehookt wird:
https://github.com/MahdiSafsafi/delp...emo1/uMain.pas

Das sollte sich problemlos umsetzen lassen!

[TiGü]

Ja, easy!

Delphi-Quellcode:

uses
  Winapi.Windows,
  Winapi.WinHTTP,
  DDetours;

var
  TrampolineWinHttpOpenRequest: function(hConnect: HINTERNET; pwszVerb: LPCWSTR; pwszObjectName: LPCWSTR; pwszVersion: LPCWSTR;
    pwszReferrer: LPCWSTR; ppwszAcceptTypes: PLPWSTR; dwFlags: DWORD): HINTERNET; stdcall = nil;

function InterceptWinHttpOpenRequest(hConnect: HINTERNET; pwszVerb: LPCWSTR; pwszObjectName: LPCWSTR; pwszVersion: LPCWSTR;
  pwszReferrer: LPCWSTR; ppwszAcceptTypes: PLPWSTR; dwFlags: DWORD): HINTERNET; stdcall;
begin
  Result := TrampolineWinHttpOpenRequest(hConnect, pwszVerb, pwszObjectName, pwszVersion, pwszReferrer, ppwszAcceptTypes, dwFlags);
  Winapi.WinHTTP.WinHttpSetTimeouts(Result, 10, 10, 10, 10); // Hier dann deine gewünschten Timeouts eingeben (vllt. über Class Property oder so!)
end;

procedure MakeMagic;
begin
  if not Assigned(TrampolineWinHttpOpenRequest) then
  begin
    @TrampolineWinHttpOpenRequest := InterceptCreate(@WinHttpOpenRequest, @InterceptWinHttpOpenRequest);
  end;
end;