(Delphi DLL) Create a JSON Array Containing an Object

Creates a top-level JSON array containing 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, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
jArray: HCkJsonArray;
json: HCkJsonObject;

begin
jArray := CkJsonArray_Create();
CkJsonArray_AddObjectAt(jArray,0);
json := CkJsonArray_ObjectAt(jArray,0);

CkJsonObject_UpdateString(json,'groupId','');
CkJsonObject_UpdateString(json,'sku','');
CkJsonObject_UpdateString(json,'title','');
CkJsonObject_UpdateString(json,'barcode','');
CkJsonObject_UpdateString(json,'category','');
CkJsonObject_UpdateString(json,'description','');
CkJsonObject_UpdateString(json,'images[0]','url1');
CkJsonObject_UpdateString(json,'images[1]','url...');
CkJsonObject_UpdateString(json,'isbn','');
CkJsonObject_UpdateString(json,'link','');
CkJsonObject_UpdateString(json,'linkLomadee','');
CkJsonObject_UpdateString(json,'prices[0].type','');
CkJsonObject_UpdateNumber(json,'prices[0].price','0');
CkJsonObject_UpdateNumber(json,'prices[0].priceLomadee','0');
CkJsonObject_UpdateNumber(json,'prices[0].priceCpa','0');
CkJsonObject_UpdateNumber(json,'prices[0].installment','0');
CkJsonObject_UpdateNumber(json,'prices[0].installmentValue','0');
CkJsonObject_UpdateString(json,'productAttributes."Atributo 1"','Valor 1');
CkJsonObject_UpdateString(json,'productAttributes."Atributo ..."','Valor ...');
CkJsonObject_UpdateString(json,'technicalSpecification."Especificação 1"','Valor');
CkJsonObject_UpdateString(json,'technicalSpecification."Especificação ..."','Valor ...');
CkJsonObject_UpdateNumber(json,'quantity','0');
CkJsonObject_UpdateNumber(json,'sizeHeight','0');
CkJsonObject_UpdateNumber(json,'sizeLength','0');
CkJsonObject_UpdateNumber(json,'sizeWidth','0');
CkJsonObject_UpdateNumber(json,'weightValue','0');
CkJsonObject_UpdateNumber(json,'declaredPrice','0');
CkJsonObject_UpdateNumber(json,'handlingTimeDays','0');
CkJsonObject_UpdateBool(json,'marketplace',False);
CkJsonObject_UpdateString(json,'marketplaceName','');

CkJsonArray_putEmitCompact(jArray,False);
Memo1.Lines.Add(CkJsonArray__emit(jArray));

// The output of this program is:

// [
//   {
//     "groupId": "",
//     "sku": "",
//     "title": "",
//     "barcode": "",
//     "category": "",
//     "description": "",
//     "images": [
//       "url1",
//       "url..."
//     ],
//     "isbn": "",
//     "link": "",
//     "linkLomadee": "",
//     "prices": [
//       {
//         "type": "",
//         "price": 0,
//         "priceLomadee": 0,
//         "priceCpa": 0,
//         "installment": 0,
//         "installmentValue": 0
//       }
//     ],
//     "productAttributes": {
//       "Atributo 1": "Valor 1",
//       "Atributo ...": "Valor ..."
//     },
//     "technicalSpecification": {
//       "Especificação 1": "Valor",
//       "Especificação ...": "Valor ..."
//     },
//     "quantity": 0,
//     "sizeHeight": 0,
//     "sizeLength": 0,
//     "sizeWidth": 0,
//     "weightValue": 0,
//     "declaredPrice": 0,
//     "handlingTimeDays": 0,
//     "marketplace": false,
//     "marketplaceName": ""
//   }
// ]

CkJsonArray_Dispose(jArray);

end;