Es war nun schon das zweite Mal, das wir große Probleme mit den Delphi REST Client Komponenten hatten.
Ich habe gerade eben einen Test mit TMS Sparkle gemacht.
Keine 5 min und alles läuft einwandfrei.
Delphi-Quellcode:
var
Client: THttpClient;
Request: THttpRequest;
Response: THttpResponse;
ResponseBody:
string;
begin
Request :=
nil;
Response :=
nil;
Client := THttpClient.Create;
try
Request := Client.CreateRequest;
Request.Uri := '
https://api.pay1.de/post-gateway/';
Request.Method := '
POST';
Request.Headers.AddValue( '
Content-Type', '
application/x-www-form-urlencoded; charset=UTF-8');
Request.Headers.AddValue( '
Accept', '
application/json');
Request.SetContent(TEncoding.UTF8.GetBytes( '
mid=88888&portalid=88888&key=1234567890abcdef&api_version=3.11&mode=live&request=getuser&encoding=UTF-8&aid=88888&type=userdata&customerid=88888'));
Response := Client.Send(Request);
if Response.StatusCode = 200
then begin
ResponseBody := TEncoding.UTF8.GetString(Response.ContentAsBytes);
memo1.lines.Add( ResponseBody);
end else
memo1.lines.Add( Response.StatusCode.ToString);
finally
Request.Free;
Response.Free;
Client.Free;
end;
Ich weiß nicht, was sich Embarcadero bei diesen Komponenten denkt. Alle Software am Markt, was wir bisher so gesehen haben, funktionieren recht einfach und gut. Nur das Original bei Delphi nicht.
Es würde mich jetzt zwar schon noch interessieren, was bzw wo der Fehler ist, aber mangels Zeit werden wir hier mit TMS weiterarbeiten.
@Uwe
Wenn Du Interesse hast, das Problem zu erforschen, könnte ich dir die echten Daten per E-Mail senden.
Vielen Dank euch allen
Thomas