B4X Requires Chilkat v11.1.0+

Create more Complex JSON Document

See more JSON Examples

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  
            }  
        ]  
    }  

B4X

Dim success As Boolean = False

Dim json As ChilkatJsonObject
json.Initialize

'  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.
Dim index As Int = -1

success = json.AddStringAt(-1, "Title", "The Cuckoo's Calling")
success = json.AddStringAt(-1, "Author", "Robert Galbraith")
success = json.AddStringAt(-1, "Genre", "classic crime novel")

'  Let's create the Detail JSON object:
Dim detail As ChilkatJsonObject
detail.Initialize
json.AppendObject2("Detail", detail)

success = detail.AddStringAt(-1, "Publisher", "Little Brown")
success = detail.AddIntAt(-1, "Publication_Year", 2013)
success = detail.AddNumberAt(-1, "ISBN-13", "9781408704004")
success = detail.AddStringAt(-1, "Language", "English")
success = detail.AddIntAt(-1, "Pages", 494)

'  Add the array for Price
Dim aPrice As ChilkatJsonArray
aPrice.Initialize
json.AppendArray2("Price", aPrice)

'  Entry in aPrice will be a JSON object.

'  Append a new/empty ojbect to the end of the aPrice array.
Dim priceObj As ChilkatJsonObject
priceObj.Initialize

aPrice.AddObjectAt2(-1, priceObj)
success = priceObj.AddStringAt(-1, "type", "Hardcover")
success = priceObj.AddNumberAt(-1, "price", "16.65")

aPrice.AddObjectAt2(-1, priceObj)
success = priceObj.AddStringAt(-1, "type", "Kindle Edition")
success = priceObj.AddNumberAt(-1, "price", "7.00")

json.EmitCompact = False
Log(json.Emit)