(PowerBuilder) Firebase PATCH - Updating Data

Uses the PATCH method to update record with new information. The data used in this example is at Chilkat Firebase Pigs Database, and is shown here:

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

integer li_rc
oleobject loo_Fac
string ls_AccessToken
oleobject loo_Rest
integer li_Success
oleobject loo_AuthGoogle
oleobject loo_PigNameUpdate
string ls_JsonResponse

// Uses the PATCH method to update a Firebase record.

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// This example assumes a JWT authentication token, if required, has been previously obtained.
// See Get Firebase Access Token from JSON Service Account Private Key for sample code.

// Load the previously obtained Firebase access token into a string.
loo_Fac = create oleobject
// Use "Chilkat_9_5_0.FileAccess" for versions of Chilkat < 10.0.0
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")
if li_rc < 0 then
    destroy loo_Fac
    MessageBox("Error","Connecting to COM object failed")
    return
end if
ls_AccessToken = loo_Fac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8")
if loo_Fac.LastMethodSuccess <> 1 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Fac
    return
end if

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")

// Make the initial connection (without sending a request yet).
// Once connected, any number of requests may be sent.  It is not necessary to explicitly
// call Connect before each request.  
li_Success = loo_Rest.Connect("chilkat.firebaseio.com",443,1,1)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Fac
    destroy loo_Rest
    return
end if

loo_AuthGoogle = create oleobject
// Use "Chilkat_9_5_0.AuthGoogle" for versions of Chilkat < 10.0.0
li_rc = loo_AuthGoogle.ConnectToNewObject("Chilkat.AuthGoogle")

loo_AuthGoogle.AccessToken = ls_AccessToken
loo_Rest.SetAuthGoogle(loo_AuthGoogle)

// Chilkat's sample data (pig-rescue data) is publicly readable at: https://chilkat.firebaseio.com/.json
// This data is publicly readable, but not writable.  You'll need to 
// run against your own database..

// We're going to update "Molly II" to "Molly III"
loo_PigNameUpdate = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_PigNameUpdate.ConnectToNewObject("Chilkat.JsonObject")

loo_PigNameUpdate.AppendString("name","Molly III")

// The string content of the last arg passed is  {"name":"Molly III"} 
ls_JsonResponse = loo_Rest.FullRequestString("PATCH","/pig-rescue/animal/-KI3bD-FU_Dake7sYOiP.json",loo_PigNameUpdate.Emit())
if loo_Rest.LastMethodSuccess <> 1 then
    // Something happened in the communications (either no request was sent, or no response was received.
    // (The Chilkat REST API also has lower-level methods where an app can send the request in one call,
    // and then receive the response in another call.)
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Fac
    destroy loo_Rest
    destroy loo_AuthGoogle
    destroy loo_PigNameUpdate
    return
end if

// Check the response status code.   A 200 response status indicates success.
if loo_Rest.ResponseStatusCode <> 200 then
    Write-Debug loo_Rest.ResponseStatusText
    Write-Debug ls_JsonResponse
    Write-Debug "Failed."
    destroy loo_Fac
    destroy loo_Rest
    destroy loo_AuthGoogle
    destroy loo_PigNameUpdate
    return
end if

// When successful, the response contains the data written.
Write-Debug ls_JsonResponse
Write-Debug "Success."


destroy loo_Fac
destroy loo_Rest
destroy loo_AuthGoogle
destroy loo_PigNameUpdate