(DataFlex) JSON PathPrefix Example

Demonstrates the JSON object's PathPrefix property.

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

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

    Set ComPathPrefix Of hoJson To "company.billing."

    Get ComUpdateString Of hoJson "company_name" "TechNova Solutions Inc." To iSuccess
    Get ComUpdateString Of hoJson "address_line_1" "123 Innovation Drive" To iSuccess
    Get ComUpdateString Of hoJson "address_line_2" "Suite 450" To iSuccess
    Get ComUpdateString Of hoJson "city" "Seattle" To iSuccess
    Get ComUpdateString Of hoJson "state_province" "WA" To iSuccess
    Get ComUpdateString Of hoJson "postal_code" "98101" To iSuccess
    Get ComUpdateString Of hoJson "country" "USA" To iSuccess

    Set ComEmitCompact Of hoJson To False

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    // Result:

    // {
    //   "company": {
    //     "billing": {
    //       "company_name": "TechNova Solutions Inc.",
    //       "address_line_1": "123 Innovation Drive",
    //       "address_line_2": "Suite 450",
    //       "city": "Seattle",
    //       "state_province": "WA",
    //       "postal_code": "98101",
    //       "country": "USA"
    //     }
    //   }
    // }


End_Procedure