(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkAuthGoogle.pb"
IncludeFile "CkRest.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkFileAccess.pb"

Procedure ChilkatExample()

    ; 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.
    fac.i = CkFileAccess::ckCreate()
    If fac.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    accessToken.s = CkFileAccess::ckReadEntireTextFile(fac,"qa_data/tokens/firebaseToken.txt","utf-8")
    If CkFileAccess::ckLastMethodSuccess(fac) <> 1
        Debug CkFileAccess::ckLastErrorText(fac)
        CkFileAccess::ckDispose(fac)
        ProcedureReturn
    EndIf

    rest.i = CkRest::ckCreate()
    If rest.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; 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.  
    success.i = CkRest::ckConnect(rest,"chilkat.firebaseio.com",443,1,1)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkFileAccess::ckDispose(fac)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    authGoogle.i = CkAuthGoogle::ckCreate()
    If authGoogle.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkAuthGoogle::setCkAccessToken(authGoogle, accessToken)
    CkRest::ckSetAuthGoogle(rest,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"
    pigNameUpdate.i = CkJsonObject::ckCreate()
    If pigNameUpdate.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckAppendString(pigNameUpdate,"name","Molly III")

    ; The string content of the last arg passed is  {"name":"Molly III"} 
    jsonResponse.s = CkRest::ckFullRequestString(rest,"PATCH","/pig-rescue/animal/-KI3bD-FU_Dake7sYOiP.json",CkJsonObject::ckEmit(pigNameUpdate))
    If CkRest::ckLastMethodSuccess(rest) <> 1
        ; 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.)
        Debug CkRest::ckLastErrorText(rest)
        CkFileAccess::ckDispose(fac)
        CkRest::ckDispose(rest)
        CkAuthGoogle::ckDispose(authGoogle)
        CkJsonObject::ckDispose(pigNameUpdate)
        ProcedureReturn
    EndIf

    ; Check the response status code.   A 200 response status indicates success.
    If CkRest::ckResponseStatusCode(rest) <> 200
        Debug CkRest::ckResponseStatusText(rest)
        Debug jsonResponse
        Debug "Failed."
        CkFileAccess::ckDispose(fac)
        CkRest::ckDispose(rest)
        CkAuthGoogle::ckDispose(authGoogle)
        CkJsonObject::ckDispose(pigNameUpdate)
        ProcedureReturn
    EndIf

    ; When successful, the response contains the data written.
    Debug jsonResponse
    Debug "Success."


    CkFileAccess::ckDispose(fac)
    CkRest::ckDispose(rest)
    CkAuthGoogle::ckDispose(authGoogle)
    CkJsonObject::ckDispose(pigNameUpdate)


    ProcedureReturn
EndProcedure