B4X

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:

B4X

Dim success As Boolean = False

'  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.
Dim fac As ChilkatFileAccess
fac.Initialize
Dim accessToken As String = fac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt", "utf-8")
If fac.LastMethodSuccess <> True Then
    Log(fac.LastErrorText)
    Return
End If


Dim rest As ChilkatRest
rest.Initialize("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.  
success = rest.Connect("chilkat.firebaseio.com", 443, True, True)
If success <> True Then
    Log(rest.LastErrorText)
    Return
End If

Dim authGoogle As ChilkatAuthGoogle
authGoogle.Initialize("authGoogle")
authGoogle.AccessToken = accessToken
rest.SetAuthGoogle(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..

'  Generate a new push ID.
Dim prng As ChilkatPrng
prng.Initialize
Dim pushId As String = prng.FirebasePushId

'  We're going to add a new pig with just the name.
Dim pigRecord As ChilkatJsonObject
pigRecord.Initialize
pigRecord.AppendString("name", "William")

Dim path As ChilkatStringBuilder
path.Initialize
path.Append("/pig-rescue/animal/")
path.Append(pushId)
path.Append(".json")

'  The string content of the last arg passed is  {"name":"William"} 
Dim jsonResponse As String = rest.FullRequestString("PUT", path.GetAsString, pigRecord.Emit)
If rest.LastMethodSuccess <> True 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.)
    Log(rest.LastErrorText)
    Return
End If


'  Check the response status code.   A 200 response status indicates success.
If rest.ResponseStatusCode <> 200 Then
    Log(rest.ResponseStatusText)
    Log(jsonResponse)
    Log("Failed.")
    Return
End If


Log(jsonResponse)
Log("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.  
'