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