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