PowerBuilder

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