DataFlex

JSON PathPrefix Example

Demonstrates the JSON object's PathPrefix property. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoJson
    String sCity
    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"
    //     }
    //   }
    // }

    Get ComStringOf Of hoJson "city" To sCity
    Showln "city = " sCity


End_Procedure