Delphi DLL

Load a JSON Array

See more JSON Examples

The Chilkat JSON API requires the top-level JSON to be an object. Therefore, to load an array requires that it first be wrapped as an object. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonArray, StringBuilder, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
jsonArrayStr: PWideChar;
sbJson: HCkStringBuilder;
json: HCkJsonObject;
jArray: HCkJsonArray;
jObjId: HCkJsonObject;

begin
success := False;

// Imagine we want to load this JSON array for parsing:
jsonArrayStr := '[{"id":200},{"id":196}]';

// First wrap it in a JSON object by prepending "{ "array":" and appending "}"
sbJson := CkStringBuilder_Create();
CkStringBuilder_Append(sbJson,'{"array":');
CkStringBuilder_Append(sbJson,jsonArrayStr);
CkStringBuilder_Append(sbJson,'}');

json := CkJsonObject_Create();
CkJsonObject_Load(json,CkStringBuilder__getAsString(sbJson));

// Now we can get the JSON array
jArray := CkJsonObject_ArrayAt(json,0);

// Do what you want with the JSON array...
// For example:
jObjId := CkJsonArray_ObjectAt(jArray,0);
Memo1.Lines.Add(IntToStr(CkJsonObject_IntOf(jObjId,'id')));
CkJsonObject_Dispose(jObjId);

CkJsonArray_Dispose(jArray);

CkStringBuilder_Dispose(sbJson);
CkJsonObject_Dispose(json);

end;