Umstellung auf Alexandria TRESTRequest funktioniert nicht

[bronstein]

Hallo,
ich stelle mein Programm gerade von Tokyo nach Alexandria jetzt habe ich aber ein Problem mit einem Rest Request

Mein Quellcode sieht folgendermaßen aus:

Delphi-Quellcode:

Client := TRESTClient.Create(nil);
    Client.Authenticator := THTTPBasicAuthenticator.Create(user, PWD);
    Client.RaiseExceptionOn500 := true;
    //Client.ConnectTimeout := 500;
    //Client.ReadTimeout := 500;

    try
      URL := 'https://test.com/generate-certificate?cn=';

      sFDNumber := '123454767458';
      Client.BaseURL := Url + sFDNumber;

      Request := TRESTRequest.Create(Client);
      Response := TRESTResponse.Create(Client);

     Client.ProxyPort := 8888;
     Client.ProxyServer := '127.0.0.1';

      try
        try
          Request.Method := TRESTRequestMethod.rmGET;
          //Request.Response := Response;
          Start := now;
          Request.Execute;
          //Request.ExecuteAsync();
          Protokoll_Log('Dauer der Abfrage erfolgreich: ' + IntToStr(MilliSecondsBetween(Start, now)) + 'URL: ' + Client.BaseURL);

          Response := Request.Response;
          Json := Request.Response.Content;
          State := true;
        except
          on e:Exception do
          begin
            //ShowMessage(IntToStr(MilliSecondsBetween(Start, now));
            Protokoll_Log('Dauer der Abfrage fehlerhaft: ' + IntToStr(MilliSecondsBetween(Start, now)) + 'URL: ' + Client.BaseURL + ' Error: ' + e.Message);
            State := false;
            resultMessage := e.Message + ' BFIT Service: ' + Client.BaseURL;
          end;
        end;
      finally
        Request.Free;
      end;
    finally
      Client.Free;
    end;

Wenn ich den Code in Tokyo debugge funktioniert alles wunderbar in Delphi Alexandria komme ich zur Zeile "Request.Execute;" dann tut sich überhaupt nichts mehr

[DeddyH]

Bist Du Dir sicher, dass Client.BaseURL so stimmt?

[bronstein]

Hallo,
ich habe es im Code nochmal angepasst, wollte die url nur hier im Forum vereinfachen da man ja nur intern in meinem Netz auf das Ziel kommt

[taveuni]

Zitat von bronstein:

(..)
Wenn ich den Code in Tokyo debugge funktioniert alles wunderbar in Delphi Alexandria komme ich zur Zeile "Request.Execute;" dann tut sich überhaupt nichts mehr

Definiere "tut sich überhaupt nichts mehr". Auch nicht nach dem Timeout? Warst Du mit dem Debugger schon mal in der Methode?

[Uwe Raabe]

Zitat von taveuni:

Definiere "tut sich überhaupt nichts mehr". Auch nicht nach dem Timeout?

Der Default-Connection-Timeout ist 30 Sekunden.

[bronstein]

Habe das noch eingefügt vor dem Request dann läuft es
Request.SynchronizedEvents := false;