REST Problem (Alles geht nur Delphi nicht)

[lowmax_5]

Nur so als Idee... Bei mir hatte der RESTRequestParameterOption 'poDoNotEncode' den Durchbruch gebracht. Einfach mal probieren.

Code:

RESTClient.AddAuthParameter('api_key', GetApiKey,
TRESTRequestParameterKind.pkHTTPHEADER,
[TRESTRequestParameterOption.poDoNotEncode]);

[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.

[Uwe Raabe]

So, für alle die es interessiert, mit diesem Code und den realen Parameter funktioniert es:

Delphi-Quellcode:

  RESTClient1.BaseURL := 'https://api.pay1.de';
  RESTRequest1.Resource := 'post-gateway/'; // der Slash ist hier seitens Pay1 notwendig!
  RESTRequest1.Method := rmPOST;

  RESTRequest1.AddParameter( 'mid', '88888');
  RESTRequest1.AddParameter( 'portalid', '88888');
  RESTRequest1.AddParameter( 'key', '0123456789abcdef0123456789abcdef');
  RESTRequest1.AddParameter( 'api_version', '3.11');
  RESTRequest1.AddParameter( 'mode', 'live');
  RESTRequest1.AddParameter( 'request', 'getuser');
//  RESTRequest1.AddParameter( 'encoding', 'UTF-8'); // intern wird unter Windows ANSI verwendet! Macht aber in diesem Fall keinen Unterschied.
  RESTRequest1.AddParameter( 'aid', '88888');
  RESTRequest1.AddParameter( 'type', 'userdata');
  RESTRequest1.AddParameter( 'customerid', '88888');

  RESTRequest1.Execute;

In Delphi wird bei der BaseURL ein Slash am Ende entfernt. Deswegen funktionierte das Original nicht. Bei meinem Beispiel mit Resource hatte ich den einfach ignoriert und es funktionierte immer noch nicht. Manchmal steckt der Teufel halt im Detail.

[Rollo62]

Und was ist die Moral von der Geschicht' ?

Statt

Delphi-Quellcode:

  RESTClient1.BaseURL := 'https://api.pay1.de/post-gateway/';
  ...

besser die BaseURL und Resource schön separat angeben, so wie es eigentlich gedacht ist.

Delphi-Quellcode:

  RESTClient1.BaseURL := 'https://api.pay1.de';
  RESTRequest1.Resource := 'post-gateway/';       // der Slash ist hier seitens Pay1 notwendig!
  ...

! Und auf Slashes achten ...

Im DocWiki steht dazu Folgendes:

TRESTClient.BaseURL:
https://docwiki.embarcadero.com/Libr...Client.BaseURL

Zitat:

Specifies the base URL for all API calls.

All resources and parameters of your requests will be appended to this URL.
You can add a trailing forward slash to the value of the BaseURL property when resources are empty,
this offers support for web services that expect the trailing slash.

==> OK, das macht Sinn, ... Einer für ALLE ...

TRESTRequest.Resource:
https://docwiki.embarcadero.com/Libr...quest.Resource

Zitat:

This property is added to the base URL to establish a complete URL for the HTTP request.
Important: The Resource value should meet the following limitations:
- Does not include the scheme or domain mame.
- Does not include the leading slash.

==> OK, hier fehlt dann der Hinweis auf "trailing slash"

Deshalb finde ich ein gutes Beispiel besser als tausend Worte