Issue posting JSON Data with REST AddBody method

Viewed 56

I'm having trouble with a POST request to an API which I am not the owner of.

The request must simply post JSON data. Please have a look:

var 
  RESTRequest : TRESTRequest;
  RESTClient : TRESTClient;
  Response : TRESTResponse;
  contract : TJSONObject;

begin
  RESTClient := TRESTClient.Create('URL');
  try 
    RESTRequest := TRESTRequest.Create(nil);
    try               
      contract := TJSONObject.Create;
      contract.AddPair(TJSONPair.Create('name','my_first_contract.pdf'));
      
      RESTRequest.Client := RESTClient;
      RESTRequest.Method := rmPOST;
      RESTRequest.Accept := 'application/json';
      RESTRequest.AddParameter('j_token','mytoken',pkHTTPHEADER,0);
      RESTRequest.AddBody(contract);
      RESTRequest.Execute;
      Response := RESTRequest.Response;
      ShowMessage(Response.StatusText + ' : ' + Response.Content);
  
    finally
      RESTRequest.Free;
    end;
  finally
    RESTClient.Free; 
  end;
end; 

I obtained this error :

Not Found : {"errors":"Fatal error in JsonConvert. Passed parameter json object in JsonConvert.deserializeObject() is not of type object.\n"}

I've read online that the AddBody() method first serializes its content if it's an object. In this case, the content of the body is my TJSONObject, but when I try to replace that with a String, like this:

var
  contract : String;
  ...
begin
  contract := '{"name":"my_first_contract.pdf"}';
  ...
  RESTRequest.AddBody(contract, ctAPPLICATION_JSON);
  ...
end; 

I'm getting the exact same error.

So, does that mean that a TJSONObject is not viewed as an Object for the JsonConvert.deserializeObject() method ? Or, is the serialization of the AddBody() messed up?

0 Answers
Related