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