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

Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL nIndex
LOCAL oDetail
LOCAL oAPrice
LOCAL oPriceObj

nSuccess := 0

oJson := CreateObject("Chilkat.JsonObject")

//  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.
nIndex := -1

nSuccess := oJson:AddStringAt(-1, "Title", "The Cuckoo's Calling")
nSuccess := oJson:AddStringAt(-1, "Author", "Robert Galbraith")
nSuccess := oJson:AddStringAt(-1, "Genre", "classic crime novel")

//  Let's create the Detail JSON object:
oDetail := CreateObject("Chilkat.JsonObject")
oJson:AppendObject2("Detail", oDetail)

nSuccess := oDetail:AddStringAt(-1, "Publisher", "Little Brown")
nSuccess := oDetail:AddIntAt(-1, "Publication_Year", 2013)
nSuccess := oDetail:AddNumberAt(-1, "ISBN-13", "9781408704004")
nSuccess := oDetail:AddStringAt(-1, "Language", "English")
nSuccess := oDetail:AddIntAt(-1, "Pages", 494)

//  Add the array for Price
oAPrice := CreateObject("Chilkat.JsonArray")
oJson:AppendArray2("Price", oAPrice)

//  Entry in aPrice will be a JSON object.

//  Append a new/empty ojbect to the end of the aPrice array.
oPriceObj := CreateObject("Chilkat.JsonObject")

oAPrice:AddObjectAt2(-1, oPriceObj)
nSuccess := oPriceObj:AddStringAt(-1, "type", "Hardcover")
nSuccess := oPriceObj:AddNumberAt(-1, "price", "16.65")

oAPrice:AddObjectAt2(-1, oPriceObj)
nSuccess := oPriceObj:AddStringAt(-1, "type", "Kindle Edition")
nSuccess := oPriceObj:AddNumberAt(-1, "price", "7.00")

oJson:EmitCompact := 0
? oJson:Emit()

oJson:destroy()
oDetail:destroy()
oAPrice:destroy()
oPriceObj:destroy()