REST-Client Fehlermeldung bei JSON-Body

[Maliko]

Moin,

wir haben bei uns nen REST-Server laufen (geschrieben in Delphi). Der funktioniert auch einwandfrei, und bisher habe ich immer über ein Firefox-Addon einen REST-Client verwendet. Da ich jetzt aber etwas testen wollte, wofür mehrere verschiedene Requests hintereinander abgesetzt werden sollen haben ich einen kleinen Client geschrieben. Die Verbindung funktioniert auch einwandfrei, doch sobald ich nen JSON-String im Request mitsende laufe ich in eine Exception. Diese lautet:

Zitat:

Nachrichteninhalt ist kein g\u00FCltiger JSON-Wert.

Ich vermute mal die Fehlermeldung kommt direkt vom DataSnap-Server.

Da der Client wirklich klein ist, paste ich ihn mal im gesamten hier rein:

Delphi-Quellcode:

program RESTClient;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  REST.Client,
  REST.Types,
  REST.Authenticator.Basic;

var
  mClient : TRESTClient;
  mRequest : TRESTRequest;
  mRespone : TRESTResponse;
  mAuth : THTTPBasicAuthenticator;
  mBody : string;
begin
  try
    mClient := TRESTClient.Create(nil);
    mRespone := TRESTResponse.Create(mClient);

    try
      { TODO -oUser -cConsole Main : Code hier einfügen }
      mRequest := TRESTRequest.Create(mClient);
      mAuth := THTTPBasicAuthenticator.Create(mClient);

      mAuth.Username := 'XXXXXX';
      mAuth.Password := 'XXXXXX';

      mBody := '{"id":"inv-764b9be9-9b2a-448a-867e-54377d1327c0"}';

      mClient.BaseURL := 'https://localhost:52523/server/rest/global/';
      mRequest.Params.AddItem('Content-Type','application/json', TRESTRequestParameterKind.pkREQUESTBODY, [], TRESTContentType.ctAPPLICATION_JSON);
      mRequest.Resource := 'invoice/pri-sp-7b28ff36-7db0-11e7-8e96-370f7a75d9f2';
      mRequest.AddParameter('X-Environment', 'Test');
      mRequest.AddBody(mBody);
      mRequest.Method := TRESTRequestMethod.rmPUT;
      mClient.Authenticator := mAuth;
      mRequest.Client := mClient;
      mRequest.Response := mRespone;

      mRequest.Execute;

      Writeln(mRespone.Content);
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    FreeAndNil(mClient);
  end;
end.

Kann mir vielleicht irgendjemand sagen, was ich da falsch mache? Solange ich keinen Body mitschicke funktioniert es nämlich. Sprich wenn ich einfach ne normale Abfrage mache bekomme ich nen ganz normalen Response. Die Fehlermeldung bekomme ich nur wenn ich nen JSON-String mitsenden will.

Danke schon einmal im Voraus.

Viele Grüße
Maliko

[DeddyH]

Wenn ich die Doku richtig verstehe, musst Du, wenn Du Dein JSON als String übergibst und nicht als TJSONObject, explizit noch den Content-Type angeben.

[Maliko]

Hab ich beides versucht. Das was ich gepostet habe, war der zweite versuch. Zuerst hab ich es so versucht:

mRequest.AddBody(mBody, TRESTContentType.ctAPPLICATION_JSON); Da kommt es zu selbem Fehler. Aber vielleicht versuche ich es tatsächlich einfach mal als JSON-Object zu übergeben.

[Maliko]

Nein leider bringt auch das hier die selbe Fehlermeldung:

Delphi-Quellcode:

      mBody :=   '{"id":"inv-764b9be9-9b2a-448a-867e-54377d1327c0"}';

      mBodyObject := TJSONObject.ParseJSONValue(mBody);

      mClient.BaseURL := 'https://localhost:52523/server/rest/global/';
      mRequest.Resource := 'invoice/pri-sp-7b28ff36-7db0-11e7-8e96-370f7a75d9f2';
      mRequest.AddParameter('X-Environment', 'Test');
      mRequest.AddBody(mBodyObject);
      mRequest.Method := TRESTRequestMethod.rmPUT;
      mClient.Authenticator := mAuth;
      mRequest.Client := mClient;
      mRequest.Response := mRespone;

[DeddyH]

Und mit

Delphi-Quellcode:

mBodyObject := TJSONObject.Create;
mBody.AddPair('id', 'inv-764b9be9-9b2a-448a-867e-54377d1327c0');
mRequest.AddBody(mBodyObject);

[Maliko]

Nope selbe Fehlermeldung. So langsam hab ich das Gefühl dass dass da was anderes nicht stimmt. Sprich der JSON ist zwar korrekt, aber irgendwas ist falsch konfiguriert. Die Frage ist nur was.