Hi,
ich rufe von einer Datenquelle über http JSON-daten ab. Bei einigen kleineren Statusinformation klappt das auch soweit wie erwartet.

Jetzt will ich eine JSON-Liste abrufen, die etwas länger ist. Firefox benötigt mitunter 10 Sekunden.
Ich nutze Systen.Net.HttpClientComponent.TNetHTTPClient. Dieser bricht nach ablauf des Timeouts immer mit dem Fehler 12030. Wenn die verwendete URL aber in den Browser kopiere, dann läuft das einwandfrei.
Einer eine Idee woran das liegen könnte?

zusammenfalten · markieren

Delphi-Quellcode:

function TDeviceDataThread.RequestServices(var ResponseJSON: string): Integer;
var
  httpClient: TNetHTTPClient;
  Response: IHTTPResponse;
  SS: TStringStream;
  LogText: string;
  url: string;
begin
  httpClient:=TNetHTTPClient.Create(nil);
  SS:=TStringStream.Create;
  try
    try
      httpClient.ConnectionTimeout:=600000;
      httpClient.ResponseTimeout:=600000;
      url:='http://'+FUser+':'+FPass+'@'+FIP+':'+FPort.ToString+'/api/getallservices';
      Response:=httpClient.get(url, SS);
      SS.Position:=0;
      LogText:='JSON: '+SS.DataString;
      ResponseJSON:=SS.DataString;
      Result:=Response.StatusCode;
    except
      on E: Exception do
      begin
        LogText:='Fehler getallservices: '+E.Message+' '+LogText;
        DoLog(LogText);
        Result:=403;
      end;
    end;
  finally
    httpClient.Free;
  end;
end;

Ich würde Dir empfehlen das Ganze mal mit Wireshark zu überprüfen um zu schauen wo der Fehler liegt.
So weit mir bekannt ist, trat dieser Fehler bei nicht übereinstimmenden Protokollen auf. Du könntest
die auch noch anschauen welche Protokolle dein Browser benutzt.

Du verwendest die Basic-Authentication in der URL. Ich weiß nicht, ob der Client diese Syntax transparent unterstützt. Hast Du mal probiert, ob das Setzen von User und Passwort über den dafür vorgesehenen AuthEvent funktioniert?

RFC-3986 (AD 2005) sagt, dass die Verwendung der Syntax mit user:pass veraltet ist und falls doch unterstützt, dass übergebene Passwort ignoriert werden soll.

Edit: Wie wird der StringStream freigegeben? Zumal der Überflüssig ist, Get gibt ein IHTTPResponse zuück, welches über IURLResponse ContentAsString unterstützt.