Xbase++

Create JSON Document

See more JSON Examples

Sample code to create the following JSON document:

{
  "Title": "Pan's Labyrinth",
  "Director": "Guillermo del Toro",
  "Original_Title": "El laberinto del fauno",
  "Year_Released": 2006
}

Xbase++

LOCAL nSuccess
LOCAL oJson

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.
nSuccess := oJson:AddStringAt(-1, "Title", "Pan's Labyrinth")
nSuccess := oJson:AddStringAt(-1, "Director", "Guillermo del Toro")
nSuccess := oJson:AddStringAt(-1, "Original_Title", "El laberinto del fauno")
nSuccess := oJson:AddIntAt(-1, "Year_Released", 2006)

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

oJson:destroy()