Timeout bei Rest-Request verringern

[Der schöne Günther]

Ich habe meinen

Delphi-Quellcode:

TRestClient

und meinen

Delphi-Quellcode:

TRestRequest

. Ich muss mit einer Gegenstelle auf dem gleichen Rechner (http://localhost:12345/...) sprechen.

Und ich muss damit klar kommen dass diese Gegenstelle evtl. gar nicht läuft also z.B. der Port zu ist.

Mein Problem: Ich laufe immer auf einen festen Timeout dessen Länge ich nicht beeinflussen kann. Der

Delphi-Quellcode:

TRestRequest

hat beispielsweise eine

Delphi-Quellcode:

Timeout

-Property, aber da kann man setzen was man möchte, das scheint niemanden zu interessieren.

Der blockierende Aufruf ist die WinApi-Funktion

Delphi-Quellcode:

WinHttpSendRequest

in

Delphi-Quellcode:

System.Net.HttpClient.Win.pas

in der Methode

Delphi-Quellcode:

DoExecuteRequest(..)

.

Übersehe ich etwas? Ist das in späteren Versionen (Ich nutze Seattle) behoben? Der Linker hat sogar den Aufruf auf die entsprechende WinApi-Methode WinHttpSetTimeouts entfernt da sie im ganzen Programm nicht vorkommt :wall:

[TiGü]

Ich habe keinen konkreten Rat, aber läufst du in deiner Seattle-Version während des Execute in die procedure System.Net.HttpClient.Win TWinHTTPClient.CreateHandles?

So sieht das in Berlin Update 2 aus (man beachte den hässlichen Vergleich mit False):

[Der schöne Günther]

Bei "meinem" CreateHandles() fehlt der letzte Absatz komplett. Danke fürs testen. Schade. Für so etwas tue ich mir jetzt kein Update an...

[TiGü]

Alle Timeout-Properties haben übrigens den von mir festgelegten Wert, also das wird zumindest durchgereicht!

[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! :-D

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;