(DataFlex) Load JSON Data at Path

Demonstrates how to load JSON data into a path within a JSON database. For example, we begin with this JSON:

{
  "a": 1,
  "b": 2,
  "c": {
    "x": 1,
    "y": 2
  }
}

{
  "a": 1,
  "b": 2,
  "c": {
    "mm": 11,
    "nn": 22
  }
}

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

Use ChilkatAx-win32.pkg

Procedure Test
    String p
    Handle hoJson
    Boolean iSuccess
    String q
    Variant vC
    Handle hoC
    String sTemp1

    // Demonstrates how to load replace the data at a location within a JSON database.

    Move '{"a": 1, "b": 2, "c": { "x": 1, "y": 2 } }' To p

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComLoad Of hoJson p To iSuccess
    Set ComEmitCompact Of hoJson To False
    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    Move '{"mm": 11, "nn": 22}' To q

    Get ComObjectOf Of hoJson "c" To vC
    If (IsComObject(vC)) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoC
        Set pvComObject Of hoC To vC
    End
    Get ComLoad Of c q To iSuccess
    Send Destroy of c

    // See that x and y are replaced with mm and nn.
    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1


End_Procedure