(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
li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.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