(DataFlex) Create JSON Document

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
}

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJson
    Boolean iSuccess
    String sTemp1

    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