REST Problem (Alles geht nur Delphi nicht)

[t2000]

Danke, ja. Das hatten wir natürlich recht schnell ausprobiert. Ohne diese Option werden "=" und " " in %-Codes geändert. Wollen wir nicht, ist inzwischen berücksichtigt.
Geht trotzdem nicht.

[SubData]

Dann würde ich zu härteren Methoden raten:
WinGate Proxy installieren und sowohl POSTMAN, als auch die eigene Anwendung da durch leiten.
Es muss ja einen Unterschied geben, der POSTMAN-Token wird es nicht sein und ich kann mit ziemlicher Sicherheit sagen,
dass PayOne nichts zurück sendet, was unmittelbar beantwortet werden muss.

Die Daten, die ihr schickt sind auch wirklich UTF-8 und nicht nur im Header angegeben?

[t2000]

Zitat von SubData:

...

Die Daten, die ihr schickt sind auch wirklich UTF-8 und nicht nur im Header angegeben?

Da könnte es noch ein Problem geben.

Gibt es einen Tipp, wie ich das mit Delphi am besten sicherstellen kann?

[Uwe Raabe]

Zitat von t2000:

Gibt es einen Tipp, wie ich das mit Delphi am besten sicherstellen kann?

Kannst du nicht. Bei ContentType = ctAPPLICATION_X_WWW_FORM_URLENCODED wird in DoPrepareRequestBody ein ABodyStream := TStringStream.Create aufgerufen. Im Create wird TEncoding.Default verwendet, aber das ist unter Windows ANSI. Für die anderen Plattformen (insbesondere Mobile) sollte es demnach funktionieren. Ich denke, da muss ein QP-Eintrag erstellt werden. Das kann so nicht bleiben. Man muss beim Body das Encoding angeben können. Da es sich hierbei um ein Interface-Change handeln dürfte, sehe ich das frühestens in Delphi 12.

Kannst du alternativ mal versuchen, ob es ohne den Encoding-Parameter funktioniert (ISO-8859-1 ist ja default)? Das AcceptCharset kann ja UTF-8 bleiben.

Das Beispiel hat das Problem ja nicht, da kommen nur reine ASCII-Werte vor.

[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

[Uwe Raabe]

Zitat von t2000:

Ich weiß nicht, was sich Embarcadero bei diesen Komponenten denkt.

Ich habe schon seit Erscheinen dieser Komponenten den Eindruck gewonnen, dass die nur mit dem Blick auf Mobile entwickelt wurden. Unter Windows gab (gibt's vermutlich auch immer noch) Memoryleaks, die unter ARC ja damals nicht auffielen. Interessanterweise hatte ich genau zu diesem Problem mit dem Encoding schon mal einen Report verfasst, konnte aber keinen reproduzierbaren Testcase beibringen. Mit deinem Code kann ich das aber jetzt, wenn auch für einen anderen Use Case.

Zitat von t2000:

@Uwe
Wenn Du Interesse hast, das Problem zu erforschen, könnte ich dir die echten Daten per E-Mail senden.

Ja, das wäre nett (uwe_at_uweraabe_punkt_de) . Womöglich liegen da ja noch andere Eier im Matsch. Dann kann ich dafür auch gleich passende Reports erstellen.

Mir ist schon daran gelegen, die bordeigenen Komponenten zu benutzen. Bisher ist mir das auch immer gelungen - manchmal halt mit angepassten RTL-Sourcen, aber immerhin. In der Regel sind diese Macken dann in der nächsten (Major-)Version behoben.

[t2000]

Danke Dir.
Mail ist raus.