Curl mit Indy aufrufen

[TheSchuchii]

Hallo

Ich würde gerne einen CURL aufruf mit Indy Komponenten machen bzw. einen Aufruf der die gleichen Informationen enthält.
der Curl um den es geht wird in einer Demo aus folgenden Feld generiert:

{
"type": 0,
"email": "[e-mail]",
"name": "apitest",
"language": "de"
}

und sieht dann so aus:

curl -X PUT --header 'Content-Type: application/json' --header 'Accept: application/json' --header 'Authorization: Bearer beispielToken' -d '{ \
"type": 0, \
"email": "example%40bsp.at", \
"name": "apitest", \
"language": "de" \
}' 'https://api.nuki.io/account/user'

mein bisheriger Ansatz in Delphi sieht folgendermaßen aus:

Delphi-Quellcode:

  idNukihttpapi.Request.CustomHeaders.AddValue('Authorization', 'Bearer BeispielToken');
  idNukihttpapi.Request.Accept:='application/json';
  idNukihttpapi.Request.ContentType:='application/json';
  idNukihttpapi.Request.URL:='https://api.nuki.io/account/user';
  idNukihttpapi.Request.CharSet:='UTF-8';
  BodyStringFeld.Add('{"type": 0, ') ;
  BodyStringFeld.Add('"email": "[e-mail]", ') ;
  BodyStringFeld.Add('"name": "apitest", ');
  BodyStringFeld.Add('"language": "de" } ' +#39+'https://api.nuki.io/account/user'+#39);
  bodyStream.WriteString(BodyStringFeld.Text);
  bodyStream:=TStringStream.Create;
  idNukihttpapi.get('https://api.nuki.io/account/user',bodyStream);

Ich bin für jede Hilfe dankbar

[Neutral General]

Du musst idNukihttpapi.PUT benutzen und lass das

Zitat:

+#39+'https://api.nuki.io/account/user'+#39

in der letzten Zeile weg.

[TheSchuchii]

Zitat:

Du musst idNukihttpapi.PUT benutzen und lass das
+#39+'https://api.nuki.io/account/user'+#39
in der letzten Zeile weg.

Danke für die schnelle Antwort, nur leider funktioniert es noch nicht!

Ich bekomme den http error "400 bad request" zurück

[Schokohase]

Dann zeig doch mal exakt deinen aktuellen Code (per Copy/Paste)

denn sowas

Delphi-Quellcode:

bodyStream.WriteString(BodyStringFeld.Text);
bodyStream:=TStringStream.Create;

ist mehr ein Witz ... Turm aufbauen und dann wieder umstossen und dann wundern, warum da kein Turm ist

[TheSchuchii]

Tut mir leid deswegen hab die Variablennamen erst im Forum geändert die waren zuerst irgenwie benannt

die Vollständige Funktionen sieht folgendermaßen aus

Delphi-Quellcode:

var
   bodyStringFeld: TStringList;
   bodystream: TStringStream;
begin

   idNukiHTTPApi.Request.CustomHeaders.AddValue('Authorization', 'Bearer BeispielToken');
   idNukiHTTPApi.Request.Accept := 'application/json';
   idNukiHTTPApi.Request.ContentType := 'application/json';
   idNukiHTTPApi.Request.URL := 'https://api.nuki.io/account/user';
   idNukiHTTPApi.Request.CharSet := 'UTF-8';
   bodystream := TStringStream.create;
   bodyStringFeld := TStringList.create;
   bodyStringFeld.Text := '';
   bodyStringFeld.Clear;
   bodyStringFeld.Add('{ ');
   bodyStringFeld.Add('"type": 0, ');
   bodyStringFeld.Add('"email": "[e-mail]", ');
   bodyStringFeld.Add('"name": "apitest", ');
   bodyStringFeld.Add('"language": "de" ');
   bodyStringFeld.Add('}');
   bodystream.WriteString(bodyStringFeld.Text);
   idNukiHTTPApi.put('https://api.nuki.io/account/user', bodystream);

Email adresse und der Token sind nur platzhalter aber an denen scheitert es nicht.

[Schokohase]

Dann setz bei deinem StringStream das Encoding auf UTF8, sonst hast du da nämlich Unicode und das passt nicht zu dem Encoding was du versprichst zu senden.