Building a JSON object in TMS WEB Core with arrays

[Nesje_Eirik1 (Nesje Eirik)]

Hi

Are there any examples of building JSON objects in TMS WebCore ?
I have successfully used TJSON, TJSONObject + TJSON Array to parse responses from REST services but when building request with more complicated structure than just single name value structure I get empty arrays.

Target to create is something like this :

{"Array1" : [{"key1" : "Value1"}, {"key2": "value2"}]}

Regards
Eirik

[Nesje_Eirik1 (Nesje Eirik)]

Just after I reqgistered this I found Bruno's response on this :

Json handling reference

Hi, What is the best reference for json handling with TMS webcore. I'd also would like to produce efficient code. I'm little bit confused with TJsonObject, TJsObject etc.Especially this is hard because my code completion isn't working. 

Solved it for me

procedure TForm1.WebButtonParseClick(Sender: TObject);
var
  lJSONObject : TJSONObject;
  lArrayObject : TJSONObject;
  lJSONArray : TJSONArray;
begin
  lJSONObject := TJSONObject.Create;
  lJSONObject.AddPair('key1', 'value1');
  lJSONObject.AddPair('key2', 'value2');

  lJSONArray := TJSONArray.Create;
  lJSONArray.Add(lJSONObject);

  lArrayObject := TJSONObject.Create;
  lArrayObject.AddPair('Array1', lJSONArray);
  WebMemoLog.Lines.Add(LArrayObject.ToString);

  lArrayObject.Free;
  lJSONArray.Free;
  lJSONObject.Free;
end;

Regards
Eirik