(Delphi DLL) Load a JSON Array

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.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX 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
// 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;