Xbase++

Firebase PUT - Writing Data

See more Firebase Examples

Demonstrates how to PUT new data to a Firebase JSON database. The data used in this example is at Chilkat Firebase Pigs Database, and is shown here:

Xbase++

LOCAL nSuccess
LOCAL oFac
LOCAL cAccessToken
LOCAL oRest
LOCAL oAuthGoogle
LOCAL oPrng
LOCAL cPushId
LOCAL oPigRecord
LOCAL oPath
LOCAL cJsonResponse

nSuccess := 0

//  Demonstrates how to PUT new data to a Firebase JSON database.

//  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.
oFac := CreateObject("Chilkat.FileAccess")
cAccessToken := oFac:ReadEntireTextFile("qa_data/tokens/firebaseToken.txt", "utf-8")
IF (oFac:LastMethodSuccess != 1)
    ? oFac:LastErrorText
    oFac:destroy()
    RETURN
ENDIF

oRest := 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.  
nSuccess := oRest:Connect("chilkat.firebaseio.com", 443, 1, 1)
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oFac:destroy()
    oRest:destroy()
    RETURN
ENDIF

oAuthGoogle := CreateObject("Chilkat.AuthGoogle")
oAuthGoogle:AccessToken := cAccessToken
oRest:SetAuthGoogle(oAuthGoogle)

//  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..

//  Generate a new push ID.
oPrng := CreateObject("Chilkat.Prng")
cPushId := oPrng:FirebasePushId()

//  We're going to add a new pig with just the name.
oPigRecord := CreateObject("Chilkat.JsonObject")
oPigRecord:AppendString("name", "William")

oPath := CreateObject("Chilkat.StringBuilder")
oPath:Append("/pig-rescue/animal/")
oPath:Append(cPushId)
oPath:Append(".json")

//  The string content of the last arg passed is  {"name":"William"} 
cJsonResponse := oRest:FullRequestString("PUT", oPath:GetAsString(), oPigRecord:Emit())
IF (oRest:LastMethodSuccess != 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.)
    ? oRest:LastErrorText
    oFac:destroy()
    oRest:destroy()
    oAuthGoogle:destroy()
    oPrng:destroy()
    oPigRecord:destroy()
    oPath:destroy()
    RETURN
ENDIF

//  Check the response status code.   A 200 response status indicates success.
IF (oRest:ResponseStatusCode != 200)
    ? oRest:ResponseStatusText
    ? cJsonResponse
    ? "Failed."
    oFac:destroy()
    oRest:destroy()
    oAuthGoogle:destroy()
    oPrng:destroy()
    oPigRecord:destroy()
    oPath:destroy()
    RETURN
ENDIF

? cJsonResponse
? "Success."

//  Note: In many of the Chilkat examples, you may notice strange ways
//  of doing something that should be simpler and shorter.  For example,
//  building the path (above) could've been written differently,
//  with some simple string concatenation.
//  
//  The reason is that the Chilkat examples are written in a 
//  proprietary "example code" scripting language,
//  and then automatically generated to each of the different programming
//  languages you see on example-code.com.  The code generation is
//  limited in what it can do.  For example, string concatentation
//  is not yet a feature of the "example code" scripting language (as of May 2016), 
//  and therefore you won't see the use of a programming language's string
//  concatentation operators in any example.  
//

oFac:destroy()
oRest:destroy()
oAuthGoogle:destroy()
oPrng:destroy()
oPigRecord:destroy()
oPath:destroy()