REST Problem (Alles geht nur Delphi nicht)

[t2000]

Hallo zusammen und ein gutes Neues

Wir haben ein Problem mit einem REST-API Zugriff auf den Zahlungsdienstleister PAYONE.
Vorab, wir sind dort Kunde und möchten einige Dinge über eine Zugriff über die REST API machen. Die relevanten Daten haben wir hier natürlich verfälscht.
Hier die Dokumentation von denen: https://docs.payone.com/display/publ...ce+Definitions

REST Zugriffe testen wir alle mit POSTMAN. Dort funktionieren die Bespiele auch und wir bekommen den angeforderten Kontakt.
Wir können die Abfrage im POSTMAN auf 2 unterschiedliche Arten machen
im Body als raw
oder als Parameter

POSTMAN macht dazu dann die folgende curl Abfrage
im Body als raw

Code:

curl --location --request POST 'https://api.pay1.de/post-gateway/' \
--header 'Content-Type: application/x-www-form-urlencoded;charset=UTF-8' \
--header 'Accept: application/json' \
--data-raw 'mid=88888&portalid=88888&key=0123456789abcdef0123456789abcdef&api_version=3.11&mode=live&request=getuser&encoding=UTF-8&aid=88888&type=userdata&customerid=88888'

als Parameter

Code:

curl --location --request POST 'https://api.pay1.de/post-gateway/' \
--header 'Content-Type: application/x-www-form-urlencoded;charset=UTF-8' \
--header 'Accept: application/json' \
--data-urlencode 'mid=88888' \
--data-urlencode 'portalid=888888' \
--data-urlencode 'key=0123456789abcdef0123456789abcdef' \
--data-urlencode 'api_version=3.11' \
--data-urlencode 'mode=live' \
--data-urlencode 'request=getuser' \
--data-urlencode 'encoding=UTF-8' \
--data-urlencode 'aid=88888' \
--data-urlencode 'type=userdata' \
--data-urlencode 'customerid=88888'

Beide Versionen laufen im POSTMAN einwandfrei

Im Delphi bekommen wir es mit den Komponenten TRESTClient, TRESTRequest, TRESTResponse nicht zum laufen.
Wir bekommen vom Anbieter immer 400 - Bad request

So in Delphi

im Body als raw

Delphi-Quellcode:

  LParameter := 'mid=88888&portalid=88888&key=0123456789abcdef0123456789abcdef&api_version=3.11&mode=live&request=getuser&encoding=UTF-8&aid=88888&type=userdata&customerid=88888';

  RESTClient1.BaseURL      := 'https://api.pay1.de/post-gateway/';
  RESTClient1.Accept       := 'application/json';
  RESTClient1.ContentType  := 'application/x-www-form-urlencoded; charset=UTF-8';

  RESTRequest1.Method         := rmPOST;

  RESTRequest1.AddParameter( 'Content-Type', 'application/x-www-form-urlencoded; charset=UTF-8', TRESTRequestParameterKind.pkHTTPHEADER);
  RESTRequest1.AddParameter( 'Accept', 'application/json', TRESTRequestParameterKind.pkHTTPHEADER);
  RESTRequest1.AddBody( LParameter, TRESTContentType.ctNone);           // wahlweise probiert
  RESTRequest1.AddBody( LParameter, TRESTContentType.ctTEXT_PLAIN);     // wahlweise probiert

  try
    RESTRequest1.Execute;                    // request ausführen
  except
    on e: Exception do begin
      s := e.Message;
      memo1.lines.Add(s);
    end;
  end;
  s := RESTResponse1.StatusCode.ToString + ' / '  + RESTResponse1.Content;
  memo1.lines.Add(s);

als Parameter

Delphi-Quellcode:

  RESTClient1.BaseURL      := 'https://api.pay1.de/post-gateway/';
  RESTClient1.Accept       := 'application/json';
  RESTClient1.ContentType  := 'application/x-www-form-urlencoded; charset=UTF-8';

  RESTRequest1.Method         := rmPOST;

  RESTRequest1.AddParameter( 'Content-Type', 'application/x-www-form-urlencoded; charset=UTF-8', TRESTRequestParameterKind.pkHTTPHEADER);
  RESTRequest1.AddParameter( 'Accept', 'application/json', TRESTRequestParameterKind.pkHTTPHEADER);

  LRequestKind :=  TRESTRequestParameterKind.pkURLSEGMENT;  // wahlweise probiert
  LRequestKind :=  TRESTRequestParameterKind.pkGETorPOST;   // wahlweise probiert
  LRequestOpt  :=  [];                                           // wahlweise probiert
  LRequestOpt  :=  [TRESTRequestParameterOption.poDoNotEncode];  // wahlweise probiert

  RESTRequest1.AddParameter( 'mid',         '88888',                            LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'portalid',    '88888',                            LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'key',         '0123456789abcdef0123456789abcdef', LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'api_version', '3.11',                             LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'mode',        'live',                             LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'request',     'getuser',                          LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'encoding',    'UTF-8',                            LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'aid',         '88888',                            LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'type',        'userdata',                         LRequestKind, LRequestOpt);
  RESTRequest1.AddParameter( 'customerid',  '88888',                            LRequestKind, LRequestOpt);

  try
    RESTRequest1.Execute;                    // request ausführen
  except
    on e: Exception do begin
      s := e.Message;
      memo1.lines.Add(s);
    end;
  end;
  s := RESTResponse1.StatusCode.ToString + ' / '  + RESTResponse1.Content;
  memo1.lines.Add(s);

Wir haben den gleichen Zugriff auch mit einem anderen Entwicklungspaket (WinDev) ausprobiert. Auch dort geht alles sofort einwandfrei.
Die Tests wurde auf 2 unterschiedlichen Computern gemacht. Auf beiden ist der POSTMAN in Ordnung und Delphi nicht.
Getestet wurde mit Delphi 10.4.2 und auch mit Delphi 11

Die REST Komponenten liegen auf der Form im Default Zustand. Ausprobiert haben wir nocht die Häkchen bei "SecureProtokols". Macht keinen unterschied.

Hat jemand ein Idee, wie wir das Problem finden können?

Vielen Dank