DataFlex

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
}

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoJson
    String sTemp1

    Move False To iSuccess

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End

    // 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.
    Get ComAddStringAt Of hoJson -1 "Title" "Pan's Labyrinth" To iSuccess
    Get ComAddStringAt Of hoJson -1 "Director" "Guillermo del Toro" To iSuccess
    Get ComAddStringAt Of hoJson -1 "Original_Title" "El laberinto del fauno" To iSuccess
    Get ComAddIntAt Of hoJson -1 "Year_Released" 2006 To iSuccess

    Set ComEmitCompact Of hoJson To False
    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1


End_Procedure