(Delphi DLL) Create more Complex JSON Document

Sample code to create the following JSON document:

    {  
        "Title": "The Cuckoo's Calling",  
        "Author": "Robert Galbraith",  
        "Genre": "classic crime novel",  
        "Detail": {  
            "Publisher": "Little Brown",  
            "Publication_Year": 2013,  
            "ISBN-13": 9781408704004,  
            "Language": "English",  
            "Pages": 494  
        },  
        "Price": [  
            {  
                "type": "Hardcover",  
                "price": 16.65  
            },  
            {  
                "type": "Kindle Edition",  
                "price": 7.00  
            }  
        ]  
    }  

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
json: HCkJsonObject;
success: Boolean;
index: Integer;
detail: HCkJsonObject;
aPrice: HCkJsonArray;
priceObj: HCkJsonObject;

begin
json := CkJsonObject_Create();

// The only reason for failure in the following lines of code would be an out-of-memory condition..

// An index value of -1 is used to append at the end.
index := -1;

success := CkJsonObject_AddStringAt(json,-1,'Title','The Cuckoo''s Calling');
success := CkJsonObject_AddStringAt(json,-1,'Author','Robert Galbraith');
success := CkJsonObject_AddStringAt(json,-1,'Genre','classic crime novel');

// Let's create the Detail JSON object:
success := CkJsonObject_AddObjectAt(json,-1,'Detail');
detail := CkJsonObject_ObjectAt(json,CkJsonObject_getSize(json) - 1);
success := CkJsonObject_AddStringAt(detail,-1,'Publisher','Little Brown');
success := CkJsonObject_AddIntAt(detail,-1,'Publication_Year',2013);
success := CkJsonObject_AddNumberAt(detail,-1,'ISBN-13','9781408704004');
success := CkJsonObject_AddStringAt(detail,-1,'Language','English');
success := CkJsonObject_AddIntAt(detail,-1,'Pages',494);
CkJsonObject_Dispose(detail);

// Add the array for Price
success := CkJsonObject_AddArrayAt(json,-1,'Price');
aPrice := CkJsonObject_ArrayAt(json,CkJsonObject_getSize(json) - 1);

// Entry entry in aPrice will be a JSON object.

// Append a new/empty ojbect to the end of the aPrice array.
success := CkJsonArray_AddObjectAt(aPrice,-1);
// Get the object that was just appended.
priceObj := CkJsonArray_ObjectAt(aPrice,CkJsonArray_getSize(aPrice) - 1);
success := CkJsonObject_AddStringAt(priceObj,-1,'type','Hardcover');
success := CkJsonObject_AddNumberAt(priceObj,-1,'price','16.65');
CkJsonObject_Dispose(priceObj);

success := CkJsonArray_AddObjectAt(aPrice,-1);
priceObj := CkJsonArray_ObjectAt(aPrice,CkJsonArray_getSize(aPrice) - 1);
success := CkJsonObject_AddStringAt(priceObj,-1,'type','Kindle Edition');
success := CkJsonObject_AddNumberAt(priceObj,-1,'price','7.00');
CkJsonObject_Dispose(priceObj);

CkJsonArray_Dispose(aPrice);

CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

CkJsonObject_Dispose(json);

end;