Visual FoxPro

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

Visual FoxPro

LOCAL lnSuccess
LOCAL loJson
LOCAL lnIndex
LOCAL loDetail
LOCAL loAPrice
LOCAL loPriceObj

lnSuccess = 0

loJson = 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.
lnIndex = -1

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

* Let's create the Detail JSON object:
loDetail = CreateObject('Chilkat.JsonObject')
loJson.AppendObject2("Detail",loDetail)

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

* Add the array for Price
loAPrice = CreateObject('Chilkat.JsonArray')
loJson.AppendArray2("Price",loAPrice)

* Entry in aPrice will be a JSON object.

* Append a new/empty ojbect to the end of the aPrice array.
loPriceObj = CreateObject('Chilkat.JsonObject')

loAPrice.AddObjectAt2(-1,loPriceObj)
lnSuccess = loPriceObj.AddStringAt(-1,"type","Hardcover")
lnSuccess = loPriceObj.AddNumberAt(-1,"price","16.65")

loAPrice.AddObjectAt2(-1,loPriceObj)
lnSuccess = loPriceObj.AddStringAt(-1,"type","Kindle Edition")
lnSuccess = loPriceObj.AddNumberAt(-1,"price","7.00")

loJson.EmitCompact = 0
? loJson.Emit()

RELEASE loJson
RELEASE loDetail
RELEASE loAPrice
RELEASE loPriceObj