AutoIt
Google Cloud Storage List Bucket Objects

List the objects in a Google Cloud Storage bucket.
Chilkat AutoIt Downloads

AutoIt
Local $bSuccess = False

;  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 
;  
$bSuccess = $oHttp.SetUrlVar("bucket","chilkat-ocean")
$bSuccess = $oHttp.SetUrlVar("PROJECT_NAME","ChilkatCloud")

$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpNoBody("GET","https://www.googleapis.com/storage/v1/b/{$bucket}/o?project={$ChilkatCloud}",$oResp)
If ($bSuccess = 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