(PowerBuilder) Firebase JSON Put and Patch

Demonstrates how to apply Firebase put and patch events to a JSON database.

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

integer li_rc
string ls_Json1
oleobject loo_Json

ls_Json1 = "{~"a~": 1, ~"b~": 2}"

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
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

// Use Firebase delimiters for JSON paths.
loo_Json.DelimiterChar = "/"

loo_Json.Load(ls_Json1)
loo_Json.FirebasePut("/c","{~"foo~": true, ~"bar~": false}")
// Output should be: {"a":1,"b":2,"c":{"foo":true,"bar":false}}
Write-Debug "1) " + loo_Json.Emit()

loo_Json.FirebasePut("/c","~"hello world~"")
// Output should be: {"a":1,"b":2,"c":"hello world"}
Write-Debug "2) " + loo_Json.Emit()

loo_Json.FirebasePut("/c","{~"foo~": ~"abc~", ~"bar~": 123}")
// Output should be: {"a":1,"b":2,"c":{"foo":"abc","bar":123}}
Write-Debug "3) " + loo_Json.Emit()

// Back to the original..
loo_Json.FirebasePut("/","{~"a~": 1, ~"b~": 2}")
Write-Debug "4) " + loo_Json.Emit()

loo_Json.FirebasePut("/c","{~"foo~": true, ~"bar~": false}")
loo_Json.FirebasePatch("/c","{~"foo~": 3, ~"baz~": 4}")
// Output should be: {"a":1,"b":2,"c":{"foo":3,"bar":false,"baz":4}}
Write-Debug "5) " + loo_Json.Emit()

loo_Json.FirebasePatch("/c","{~"foo~": ~"abc123~", ~"baz~": {~"foo~": true, ~"bar~": false}, ~"bax~": {~"foo~": 200, ~"bar~": 400} }")
// Output should be: {"a":1,"b":2,"c":{"foo":"abc123","bar":false,"baz":{"foo":true,"bar":false},"bax":{"foo":200,"bar":400}}}
Write-Debug "6) " + loo_Json.Emit()


destroy loo_Json