(Visual FoxPro) 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

LOCAL loFac
LOCAL lcAccessToken
LOCAL loRest
LOCAL lnSuccess
LOCAL loAuthGoogle
LOCAL loPigNameUpdate
LOCAL lcJsonResponse

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')
lcAccessToken = loFac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8")
IF (loFac.LastMethodSuccess <> 1) THEN
    ? loFac.LastErrorText
    RELEASE loFac
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('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.  
lnSuccess = loRest.Connect("chilkat.firebaseio.com",443,1,1)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loFac
    RELEASE loRest
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthGoogle')
loAuthGoogle = CreateObject('Chilkat.AuthGoogle')
loAuthGoogle.AccessToken = lcAccessToken
loRest.SetAuthGoogle(loAuthGoogle)

* 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"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loPigNameUpdate = CreateObject('Chilkat.JsonObject')
loPigNameUpdate.AppendString("name","Molly III")

* The string content of the last arg passed is  {"name":"Molly III"} 
lcJsonResponse = loRest.FullRequestString("PATCH","/pig-rescue/animal/-KI3bD-FU_Dake7sYOiP.json",loPigNameUpdate.Emit())
IF (loRest.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.)
    ? loRest.LastErrorText
    RELEASE loFac
    RELEASE loRest
    RELEASE loAuthGoogle
    RELEASE loPigNameUpdate
    CANCEL
ENDIF

* Check the response status code.   A 200 response status indicates success.
IF (loRest.ResponseStatusCode <> 200) THEN
    ? loRest.ResponseStatusText
    ? lcJsonResponse
    ? "Failed."
    RELEASE loFac
    RELEASE loRest
    RELEASE loAuthGoogle
    RELEASE loPigNameUpdate
    CANCEL
ENDIF

* When successful, the response contains the data written.
? lcJsonResponse
? "Success."

RELEASE loFac
RELEASE loRest
RELEASE loAuthGoogle
RELEASE loPigNameUpdate