AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Umstellung auf Alexandria TRESTRequest funktioniert nicht
Thema durchsuchen
Ansicht
Themen-Optionen

Umstellung auf Alexandria TRESTRequest funktioniert nicht

Ein Thema von bronstein · begonnen am 15. Aug 2022 · letzter Beitrag vom 15. Aug 2022
 
bronstein

Registriert seit: 3. Feb 2004
28 Beiträge
 
Delphi XE2 Professional
 
#1

Umstellung auf Alexandria TRESTRequest funktioniert nicht

  Alt 15. Aug 2022, 07:04
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

Geändert von bronstein (15. Aug 2022 um 10:33 Uhr)
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz