REST Problem (Alles geht nur Delphi nicht)

[t2000]

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