(AutoIt) Firebase GET - Reading Data

Demonstrates how to read parts of a Firebase JSON database. 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

; Demonstrates how to read parts of 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.

Local $bSuccess

; Load the previously obtained Firebase access token into a string.
$oFac = ObjCreate("Chilkat.FileAccess")
Local $sAccessToken = $oFac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8")
If ($oFac.LastMethodSuccess <> True) Then
    ConsoleWrite($oFac.LastErrorText & @CRLF)
    Exit
EndIf

$oRest = ObjCreate("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.  
$bSuccess = $oRest.Connect("chilkat.firebaseio.com",443,True,True)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; If authentication is required...
$oAuthGoogle = ObjCreate("Chilkat.AuthGoogle")
$oAuthGoogle.AccessToken = $sAccessToken
$oRest.SetAuthGoogle($oAuthGoogle)

; Chilkat's sample data (pig-rescue data) is publicly readable at: https://chilkat.firebaseio.com/.json

; Let's get the animals with the shallow parameter so we can see how many pigs exist.
Local $sJsonResponse = $oRest.FullRequestNoBody("GET","/pig-rescue/animal.json?shallow=true")
If ($oRest.LastMethodSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; The JSON returned should look like this:  
; {"-KI3bD-FU_Dake7sYOiP":true,"-KI3bD-FU_Dake7sYOiT":true,"-KI3bD-FU_Dake7sYOiS":true,"-KI3bD-FU_Dake7sYOiU":true,"-KI3bD-FU_Dake7sYOiV":true,"-KI3bD-FU_Dake7sYOiR":true,"-KI3bD-FU_Dake7sYOiQ":true}
ConsoleWrite($sJsonResponse & @CRLF)

; Parse the response so we can iterate over each pig in the database..
$oPiggyPath = ObjCreate("Chilkat.StringBuilder")
$oShallow = ObjCreate("Chilkat.JsonObject")
$oPiggyData = ObjCreate("Chilkat.JsonObject")
$oShallow.Load($sJsonResponse)
Local $iCount = $oShallow.Size
Local $i = 0
While $i < $iCount

    ; Get each individual pig's data.
    $oPiggyPath.Clear 
    $oPiggyPath.Append("/pig-rescue/animal/")
    $oPiggyPath.Append($oShallow.NameAt($i))
    $oPiggyPath.Append("/.json")

Local $sPiggyJson = $oRest.FullRequestNoBody("GET",$oPiggyPath.GetAsString())
    If ($oRest.LastMethodSuccess <> True) Then
        ConsoleWrite($oRest.LastErrorText & @CRLF)
        Exit
    EndIf

    ; Show this piggy's data...
    ; An example of one pig's data is shown here:
    ; {"birth":"February, 1998","from":"Middle Ave.","gender":"F","in-date":"January, 2000",
    ;   "name":"Molly II","picture":{"caption":"Molly in the Pasture","description":"Black pig","file":"molly_th.jpg"},
    ;   "species":"pot belly pig","type":"Cathy's Herd"}
    ConsoleWrite("---- " & $i & " ----" & @CRLF)
    ConsoleWrite($sPiggyJson & @CRLF)

    ; Let's get the pig's name, and the caption of the picture.
    $oPiggyData.Load($sPiggyJson)
    ConsoleWrite("name: " & $oPiggyData.StringOf("name") & @CRLF)
    ConsoleWrite("caption: " & $oPiggyData.StringOf("picture.caption") & @CRLF)

    $i = $i + 1
Wend

; 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 piggyPath (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.  
;