(AutoIt) Google Cloud Storage List Bucket Objects

See more Google Cloud Storage Examples

List the objects in a Google Cloud Storage bucket.

For more information, see https://cloud.google.com/storage/docs/json_api/v1/objects/list

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

; This example uses a previously obtained access token having permission for the 
; scope "https://www.googleapis.com/auth/cloud-platform"

; In this example, Get Google Cloud Storage OAuth2 Access Token, 
; the service account access token was saved to a text file.  This example fetches the access token from the file..
$oSbToken = ObjCreate("Chilkat.StringBuilder")
$oSbToken.LoadFile("qa_data/tokens/googleCloudStorageAccessToken.txt","utf-8")

$oHttp = ObjCreate("Chilkat.Http")
$oHttp.AuthToken = $oSbToken.GetAsString()

; For more info see Cloud Storage Documentation - Objects: list 
; 
Local $bSuccess = $oHttp.SetUrlVar("bucket","chilkat-ocean")
$bSuccess = $oHttp.SetUrlVar("PROJECT_NAME","ChilkatCloud")

Local $oResp = $oHttp.QuickGetObj("https://www.googleapis.com/storage/v1/b/{$bucket}/o?project={$ChilkatCloud}")
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

Local $iResponseCode = $oResp.StatusCode
If ($iResponseCode = 401) Then
    ConsoleWrite($oResp.BodyStr & @CRLF)
    ConsoleWrite("If invalid credentials, then it is likely the access token expired." & @CRLF)
    ConsoleWrite("Your app should automatically fetch a new access token and re-try." & @CRLF)

    Exit
EndIf

ConsoleWrite("Response code: " & $iResponseCode & @CRLF)
ConsoleWrite("Response body" & @CRLF)

$oJson = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJson.Load($oResp.BodyStr)

$oJson.EmitCompact = False

ConsoleWrite($oJson.Emit() & @CRLF)

; A response code = 200 indicates success, and the response body contains JSON such as this:

; {
;   "kind": "storage#objects",
;   "items": [
;     {
;       "kind": "storage#object",
;       "id": "chilkat-ocean/file with space char.jpg/1555776690752366",
;       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-ocean/o/file%20with%20space%20char.jpg",
;       "mediaLink": "https://www.googleapis.com/download/storage/v1/b/chilkat-ocean/o/file%20with%20space%20char.jpg?generation=1555776690752366&alt=media",
;       "name": "file with space char.jpg",
;       "bucket": "chilkat-ocean",
;       "generation": "1555776690752366",
;       "metageneration": "1",
;       "contentType": "image/jpeg",
;       "storageClass": "MULTI_REGIONAL",
;       "size": "6229",
;       "md5Hash": "LpxZ2/JmI2fcl9/dqF2gSA==",
;       "crc32c": "9RjgwQ==",
;       "etag": "CO6WguiH3+ECEAE=",
;       "timeCreated": "2019-04-20T16:11:30.752Z",
;       "updated": "2019-04-20T16:11:30.752Z",
;       "timeStorageClassUpdated": "2019-04-20T16:11:30.752Z"
;     },
;     {
;       "kind": "storage#object",
; 
;       "id": "chilkat-ocean/penguins.jpg/1555775749593296",
;       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-ocean/o/penguins.jpg",
;       "mediaLink": "https://www.googleapis.com/download/storage/v1/b/chilkat-ocean/o/penguins.jpg?generation=1555775749593296&alt=media",
;       "name": "penguins.jpg",
;       "bucket": "chilkat-ocean",
;       "generation": "1555775749593296",
;       "metageneration": "1",
;       "contentType": "image/jpeg",
;       "storageClass": "MULTI_REGIONAL",
;       "size": "777835",
;       "md5Hash": "nTd7EM53jEk4s8fixjoimg==",
;       "crc32c": "ixxYVw==",
;       "etag": "CNCxnqeE3+ECEAE=",
;       "timeCreated": "2019-04-20T15:55:49.593Z",
;       "updated": "2019-04-20T15:55:49.593Z",
;       "timeStorageClassUpdated": "2019-04-20T15:55:49.593Z"
;     },
;     {
;       "kind": "storage#object",
;       "id": "chilkat-ocean/starfish.jpg/1628958192639968",
;       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-ocean/o/starfish.jpg",
;       "mediaLink": "https://www.googleapis.com/download/storage/v1/b/chilkat-ocean/o/starfish.jpg?generation=1628958192639968&alt=media",
;       "name": "starfish.jpg",
;       "bucket": "chilkat-ocean",
;       "generation": "1628958192639968",
;       "metageneration": "1",
;       "contentType": "image/jpeg",
;       "storageClass": "MULTI_REGIONAL",
;       "size": "6229",
;       "md5Hash": "LpxZ2/JmI2fcl9/dqF2gSA==",
;       "crc32c": "9RjgwQ==",
;       "etag": "COC/tJP2sPICEAE=",
;       "timeCreated": "2021-08-14T16:23:12.660Z",
;       "updated": "2021-08-14T16:23:12.660Z",
;       "timeStorageClassUpdated": "2021-08-14T16:23:12.660Z"
;     }
;   ]
; }

; Use this online tool to generate parsing code from sample JSON: 
; Generate Parsing Code from JSON

Local $sId
Local $selfLink
Local $sMediaLink
Local $sName
Local $sBucket
Local $sGeneration
Local $sMetageneration
Local $sContentType
Local $storageClass
Local $size
Local $sMd5Hash
Local $sCrc32c
Local $sEtag
Local $sTimeCreated
Local $sUpdated
Local $sTimeStorageClassUpdated

Local $sKind = $oJson.StringOf("kind")
Local $i = 0
Local $iCount_i = $oJson.SizeOfArray("items")
While $i < $iCount_i
    $oJson.I = $i
    $sKind = $oJson.StringOf("items[i].kind")
    $sId = $oJson.StringOf("items[i].id")
    $selfLink = $oJson.StringOf("items[i].selfLink")
    $sMediaLink = $oJson.StringOf("items[i].mediaLink")
    $sName = $oJson.StringOf("items[i].name")
    $sBucket = $oJson.StringOf("items[i].bucket")
    $sGeneration = $oJson.StringOf("items[i].generation")
    $sMetageneration = $oJson.StringOf("items[i].metageneration")
    $sContentType = $oJson.StringOf("items[i].contentType")
    $storageClass = $oJson.StringOf("items[i].storageClass")
    $size = $oJson.StringOf("items[i].size")
    $sMd5Hash = $oJson.StringOf("items[i].md5Hash")
    $sCrc32c = $oJson.StringOf("items[i].crc32c")
    $sEtag = $oJson.StringOf("items[i].etag")
    $sTimeCreated = $oJson.StringOf("items[i].timeCreated")
    $sUpdated = $oJson.StringOf("items[i].updated")
    $sTimeStorageClassUpdated = $oJson.StringOf("items[i].timeStorageClassUpdated")
    $i = $i + 1
Wend