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": "example@bsp.com", ');
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.