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": "example@bsp.at",
"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:

zusammenfalten · markieren

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": "lukas.schuchlenz@esculenta.at", ') ;
  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

Du musst idNukihttpapi.PUT benutzen und lass das

Zitat:

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

in der letzten Zeile weg.

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

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

denn sowas

markieren

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

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

zusammenfalten · markieren

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.

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.

Weiß nicht ob es mit dem Hinweis von Schokohase schon klappt, aber in deiner Delphi-Version gibt es auch spezielle REST-Klassen.
Mit folgendem Code:

zusammenfalten · markieren

Delphi-Quellcode:

uses
  REST.Client, REST.Types;

procedure TForm2.FormCreate(Sender: TObject);
var client: TRESTClient;
    response: TRESTResponse;
    request: TRESTRequest;
begin
  client := TRESTClient.Create('https://api.nuki.io/');
  try
    response := TRESTResponse.Create(nil);
    try
      request := TRESTRequest.Create(nil);
      try
        request.Client := client;
        request.Response := response;
        request.Resource := 'account/user';
        request.Method := rmPUT; // <<< Edit: Hatte ich vergessen
        request.AddParameter('Authorization', 'Bearer BeispielToken', TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);
        request.AddBody('{ "type": 0, "email": "example@bsp.com", "name": "apitest", "language": "de" }', TRESTContentType.ctAPPLICATION_JSON);

        request.Execute;

        Memo1.Text := response.Content;
        Label1.Caption := response.StatusText;
      finally
        request.Free;
      end;
    finally
      response.Free;
    end;
  finally
    client.Free;
  end;
end;

Bekomme ich:

Zitat:

StatusCode: 401 (Unauthorized)
{"detailMessage":"Your access token is not authorized","stackTrace":[],"suppressedExceptions":[]}

Also: Es klappt, aber ich hab natürlich kein gültiges Token.

Das Ergebnis bekomme ich auch durch den lapidaren Aufruf der URL

https://api.nuki.io/account/user

Das sagt also schon mal gar nichts aus (bis auf "Du kommst hier net rein!")