CURL in Delphi ausführen -d

[Uwe Raabe]

Zitat von Ykcim:

Diese Kombination scheint zu klappen. Es kommt kein Fehler und der Content ist wie erwartet. Aber warum das jetzt funktioniert weiß ich leider nicht

Diese beiden Zeilen:

Delphi-Quellcode:

         Request.Params.AddItem('accept', 'application/json', pkHTTPHEADER, [poDoNotEncode]);
         Request.Params.AddItem('content-type', 'application/x-www-form-urlencoded', pkHTTPHEADER, [poDoNotEncode]);

kannst du noch durch diese ersetzen:

Delphi-Quellcode:

         Request.Aaccept := 'application/json';
         { Das Setzen des ContentType kann entfallen (s.u.) }

Diese Zeilen aus dem Original:

Delphi-Quellcode:

         Request.AddParameter('grant_type', 'password', pkGETorPOST, []);
         Request.AddParameter('username', UserName, pkGETorPOST, []);
         Request.AddParameter('password', Password, pkGETorPOST, []);
         Request.AddParameter('client_id', 'APIKEY', pkGETorPOST, []);
         Request.AddParameter('client_secret', 'APISecret', pkGETorPOST, []);

solltest du besser so schreiben:

Delphi-Quellcode:

         Request.AddParameter('grant_type', 'password', pkGETorPOST, [poDoNotEncode]);
         Request.AddParameter('username', UserName, pkGETorPOST, [poDoNotEncode]);
         Request.AddParameter('password', Password, pkGETorPOST, [poDoNotEncode]);
         Request.AddParameter('client_id', APIKEY, pkGETorPOST, [poDoNotEncode]);
         Request.AddParameter('client_secret', APISecret, pkGETorPOST, [poDoNotEncode]);

Statt der String-Literale 'APIKEY' und 'APISecret' werden nun die übergebenen Aufruf-Parameter verwendet und das poDoNotEncode sorgt für die korrekte Darstellung der Inhalte.

Da alle Parameter als pkGETorPOST angegeben sind, wird automatisch ein 'application/x-www-form-urlencoded' verwendet und der Body entsprechend zusammengebaut.

Der Body sieht dann so aus: 'grant_type=password&username=user-valid&password=SandboxPasswort2023!&client_id=xxxx xxxxx&client_secret=yyyyyyyyyyyyyyy'

[Ykcim]

@uwe Raabe
Vielen Dank, dass habe ich verstanden. Das poDoNotEncode hatte ich bereits hinzugefügt.

Zitat:

Request.Params.AddItem('accept', 'application/json', pkHTTPHEADER, [poDoNotEncode]);
Request.Params.AddItem('content-type', 'application/x-www-form-urlencoded', pkHTTPHEADER, [poDoNotEncode]);
kannst du noch durch diese ersetzen:
markierenDelphi-Quellcode:
Request.Aaccept := 'application/json';
{ Das Setzen des ContentType kann entfallen (s.u.) }

Das werde ich mal ausprobieren. Ich habe viel zu wenig Ahnung, wie die Kommunikation bei REST-Abfragen über das Internet technisch funktioniert. Hast Du da eine gute Quelle, wo ich mir einen Überblick verschaffen kann?

@Kas Ob
Many thanks for your answer and the explanation. I have not CURL installed jet. I tried by CMD. What I do not understand is the fact, that the Query of the CURL by CMD gives an error: 400 Bad Request. I upload a screenshot of the cmd window. When I check the exact same CURL by https://reqbin.com/curl I get the right result. Unfortunately the first 4 hours I tried by cmd only...

I will check how to read the header and body of the request before executing.
Many thanks

Patrick

[jaenicke]

Zitat von Ykcim:

I tried by CMD. What I do not understand is the fact, that the Query of the CURL by CMD gives an error: 400 Bad Request. I upload a screenshot of the cmd window. When I check the exact same CURL by https://reqbin.com/curl I get the right result. Unfortunately the first 4 hours I tried by cmd only...

Die Fehlermeldung ist im Grunde sehr einfach erklärt:
Bei Batchkommandos kannst du mit & mehrere Befehle hintereinanderschreiben. Daher nimmt es die folgenden Wörter als Befehle.

Das liegt daran, dass du falsche Anführungszeichen verwendest und somit der Parameter für -d nicht als ein Parameter interpretiert wird, sondern zerlegt wird. Der wird an curl daher gar nicht komplett übergeben, weshalb der Aufruf dort auch nicht geht. Es sollte also mit "...&..." funktionieren oder maskiert mit "...^&...".

// EDIT:
Du solltest dein Bild besser zensieren. Man kann die Zeichen noch erraten.

[Ykcim]

Hallo jaenicke,

vielen Dank für die Erklärung. Das habe ich nicht gewusst...

Zitat:

Du solltest dein Bild besser zensieren. Man kann die Zeichen noch erraten.

Danke für den Hinweis!