(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Json
integer li_Success
integer li_Index
oleobject loo_Detail
oleobject loo_APrice
oleobject loo_PriceObj

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

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

// Let's create the Detail JSON object:
li_Success = loo_Json.AddObjectAt(-1,"Detail")
loo_Detail = loo_Json.ObjectAt(loo_Json.Size - 1)
li_Success = loo_Detail.AddStringAt(-1,"Publisher","Little Brown")
li_Success = loo_Detail.AddIntAt(-1,"Publication_Year",2013)
li_Success = loo_Detail.AddNumberAt(-1,"ISBN-13","9781408704004")
li_Success = loo_Detail.AddStringAt(-1,"Language","English")
li_Success = loo_Detail.AddIntAt(-1,"Pages",494)
destroy loo_Detail

// Add the array for Price
li_Success = loo_Json.AddArrayAt(-1,"Price")
loo_APrice = loo_Json.ArrayAt(loo_Json.Size - 1)

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

// Append a new/empty ojbect to the end of the aPrice array.
li_Success = loo_APrice.AddObjectAt(-1)
// Get the object that was just appended.
loo_PriceObj = loo_APrice.ObjectAt(loo_APrice.Size - 1)
li_Success = loo_PriceObj.AddStringAt(-1,"type","Hardcover")
li_Success = loo_PriceObj.AddNumberAt(-1,"price","16.65")
destroy loo_PriceObj

li_Success = loo_APrice.AddObjectAt(-1)
loo_PriceObj = loo_APrice.ObjectAt(loo_APrice.Size - 1)
li_Success = loo_PriceObj.AddStringAt(-1,"type","Kindle Edition")
li_Success = loo_PriceObj.AddNumberAt(-1,"price","7.00")
destroy loo_PriceObj

destroy loo_APrice

loo_Json.EmitCompact = 0
Write-Debug loo_Json.Emit()


destroy loo_Json