(Lianja) Firebase PUT - Writing Data

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:

Chilkat Lianja Extension Download Chilkat Lianja Extension

// 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.
loFac = createobject("CkFileAccess")
lcAccessToken = loFac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8")
if (loFac.LastMethodSuccess <> .T.) then
    ? loFac.LastErrorText
    release loFac
    return
endif

loRest = createobject("CkRest")

// 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.  
llSuccess = loRest.Connect("chilkat.firebaseio.com",443,.T.,.T.)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loFac
    release loRest
    return
endif

loAuthGoogle = createobject("CkAuthGoogle")
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..

// Generate a new push ID.
loPrng = createobject("CkPrng")
lcPushId = loPrng.FirebasePushId()

// We're going to add a new pig with just the name.
loPigRecord = createobject("CkJsonObject")
loPigRecord.AppendString("name","William")

loPath = createobject("CkStringBuilder")
loPath.Append("/pig-rescue/animal/")
loPath.Append(lcPushId)
loPath.Append(".json")

// The string content of the last arg passed is  {"name":"William"} 
lcJsonResponse = loRest.FullRequestString("PUT",loPath.GetAsString(),loPigRecord.Emit())
if (loRest.LastMethodSuccess <> .T.) 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 loPrng
    release loPigRecord
    release loPath
    return
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 loPrng
    release loPigRecord
    release loPath
    return
endif

? lcJsonResponse
? "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.  
// 


release loFac
release loRest
release loAuthGoogle
release loPrng
release loPigRecord
release loPath