Tcl
Tcl
Google Cloud Storage List Bucket Objects
See more Google Cloud Storage Examples
List the objects in a Google Cloud Storage bucket.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# 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"]
set resp [new_CkHttpResponse]
set success [CkHttp_HttpNoBody $http "GET" "https://www.googleapis.com/storage/v1/b/{$bucket}/o?project={$ChilkatCloud}" $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkStringBuilder $sbToken
delete_CkHttp $http
delete_CkHttpResponse $resp
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_CkStringBuilder $sbToken
delete_CkHttp $http
delete_CkHttpResponse $resp
exit
}
puts "Response code: $responseCode"
puts "Response body"
set json [new_CkJsonObject]
set success [CkJsonObject_Load $json [CkHttpResponse_bodyStr $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_CkHttpResponse $resp
delete_CkJsonObject $json