(Delphi ActiveX) Create a JSON Array Containing an Object

Creates a top-level JSON array containing an object.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
jArray: TChilkatJsonArray;
json: IChilkatJsonObject;

begin
jArray := TChilkatJsonArray.Create(Self);
jArray.AddObjectAt(0);
json := jArray.ObjectAt(0);

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

jArray.EmitCompact := 0;
Memo1.Lines.Add(jArray.Emit());

// 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": ""
//   }
// ]
end;