(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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..
set sbToken [new_CkStringBuilder]

CkStringBuilder_LoadFile $sbToken "qa_data/tokens/googleCloudStorageAccessToken.txt" "utf-8"

set http [new_CkHttp]

CkHttp_put_AuthToken $http [CkStringBuilder_getAsString $sbToken]

# For more info see Cloud Storage Documentation - Objects: list 
# 
set success [CkHttp_SetUrlVar $http "bucket" "chilkat-ocean"]
set success [CkHttp_SetUrlVar $http "PROJECT_NAME" "ChilkatCloud"]

# resp is a CkHttpResponse
set resp [CkHttp_QuickGetObj $http "https://www.googleapis.com/storage/v1/b/{$bucket}/o?project={$ChilkatCloud}"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkStringBuilder $sbToken
    delete_CkHttp $http
    exit
}

set responseCode [CkHttpResponse_get_StatusCode $resp]
if {$responseCode == 401} then {
    puts [CkHttpResponse_bodyStr $resp]
    puts "If invalid credentials, then it is likely the access token expired."
    puts "Your app should automatically fetch a new access token and re-try."
    delete_CkHttpResponse $resp

    delete_CkStringBuilder $sbToken
    delete_CkHttp $http
    exit
}

puts "Response code: $responseCode"
puts "Response body"

set json [new_CkJsonObject]

set success [CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]]
delete_CkHttpResponse $resp

CkJsonObject_put_EmitCompact $json 0

puts [CkJsonObject_emit $json]

# 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

set kind [CkJsonObject_stringOf $json "kind"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "items"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set kind [CkJsonObject_stringOf $json "items[i].kind"]
    set id [CkJsonObject_stringOf $json "items[i].id"]
    set selfLink [CkJsonObject_stringOf $json "items[i].selfLink"]
    set mediaLink [CkJsonObject_stringOf $json "items[i].mediaLink"]
    set name [CkJsonObject_stringOf $json "items[i].name"]
    set bucket [CkJsonObject_stringOf $json "items[i].bucket"]
    set generation [CkJsonObject_stringOf $json "items[i].generation"]
    set metageneration [CkJsonObject_stringOf $json "items[i].metageneration"]
    set contentType [CkJsonObject_stringOf $json "items[i].contentType"]
    set storageClass [CkJsonObject_stringOf $json "items[i].storageClass"]
    set size [CkJsonObject_stringOf $json "items[i].size"]
    set md5Hash [CkJsonObject_stringOf $json "items[i].md5Hash"]
    set crc32c [CkJsonObject_stringOf $json "items[i].crc32c"]
    set etag [CkJsonObject_stringOf $json "items[i].etag"]
    set timeCreated [CkJsonObject_stringOf $json "items[i].timeCreated"]
    set updated [CkJsonObject_stringOf $json "items[i].updated"]
    set timeStorageClassUpdated [CkJsonObject_stringOf $json "items[i].timeStorageClassUpdated"]
    set i [expr $i + 1]
}

delete_CkStringBuilder $sbToken
delete_CkHttp $http
delete_CkJsonObject $json