PowerBuilder Requires Chilkat v11.4.0+

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. PowerBuilder

integer li_rc
integer li_Success
string ls_Car
oleobject loo_Json

li_Success = 0

ls_Car = "{~"make~":~"Toyota~",~"model~":~"Camry~",~"year~":2022,~"color~":~"silver~",~"engine~":{~"type~":~"inline-4~",~"fuel~":~"gasoline~",~"horsepower~":203},~"features~":[~"bluetooth~",~"backup camera~",~"adaptive cruise control~",~"lane assist~"],~"isElectric~":false}"

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Json.UpdateString("test","abc")

li_Success = loo_Json.NewObjectOf("car",ls_Car)
if li_Success = 0 then
    Write-Debug loo_Json.LastErrorText
    destroy loo_Json
    return
end if

loo_Json.EmitCompact = 0
Write-Debug loo_Json.Emit()

//  Result:

//  {
//    "test": "abc",
//    "car": {
//      "make": "Toyota",
//      "model": "Camry",
//      "year": 2022,
//      "color": "silver",
//      "engine": {
//        "type": "inline-4",
//        "fuel": "gasoline",
//        "horsepower": 203
//      },
//      "features": [
//        "bluetooth",
//        "backup camera",
//        "adaptive cruise control",
//        "lane assist"
//      ],
//      "isElectric": false
//    }
//  }


destroy loo_Json