Retrieves a list of buckets for a given project.
curl -X GET https://www.googleapis.com/storage/v1/b \
--header "Authorization: Bearer CLOUD_STORAGE_TOKEN" \
--data "project=MY_CLOUD_STORAGE_PROJECT"
Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest
' URL: https://www.googleapis.com/storage/v1/b
bTls = True
port = 443
bAutoReconnect = True
success = rest.Connect("www.googleapis.com",port,bTls,bAutoReconnect)
If (success <> True) Then
Debug.Print "ConnectFailReason: "; rest.ConnectFailReason
Debug.Print rest.LastErrorText
Exit Sub
End If
success = rest.AddQueryParam("project","MY_CLOUD_STORAGE_PROJECT")
success = rest.AddHeader("Authorization","Bearer CLOUD_STORAGE_TOKEN")
Dim sbResponseBody As Chilkat.StringBuilder
Set sbResponseBody = Chilkat.NewStringBuilder
success = rest.FullRequestNoBodySb("GET","/storage/v1/b",sbResponseBody)
If (success <> True) Then
Debug.Print rest.LastErrorText
Exit Sub
End If
respStatusCode = rest.ResponseStatusCode
If (respStatusCode >= 400) Then
Debug.Print "Response Status Code = "; respStatusCode
Debug.Print "Response Header:"
Debug.Print rest.ResponseHeader
Debug.Print "Response Body:"
Debug.Print sbResponseBody.GetAsString()
Exit Sub
End If
Dim jsonResponse As Chilkat.JsonObject
Set jsonResponse = Chilkat.NewJsonObject
success = jsonResponse.LoadSb(sbResponseBody)
' See the Online Tool for Generating JSON Parse Code
kind = jsonResponse.StringOf("kind")
i = 0
count_i = jsonResponse.SizeOfArray("items")
Do While i < count_i
jsonResponse.I = i
kind = jsonResponse.StringOf("items[i].kind")
id = jsonResponse.StringOf("items[i].id")
selfLink = jsonResponse.StringOf("items[i].selfLink")
projectNumber = jsonResponse.StringOf("items[i].projectNumber")
name = jsonResponse.StringOf("items[i].name")
timeCreated = jsonResponse.StringOf("items[i].timeCreated")
updated = jsonResponse.StringOf("items[i].updated")
metageneration = jsonResponse.StringOf("items[i].metageneration")
location = jsonResponse.StringOf("items[i].location")
storageClass = jsonResponse.StringOf("items[i].storageClass")
etag = jsonResponse.StringOf("items[i].etag")
i = i + 1
Loop
{
"kind": "storage#buckets",
"items": [
{
"kind": "storage#bucket",
"id": "chilkat-bucket",
"selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-bucket",
"projectNumber": "5332332985",
"name": "chilkat-bucket",
"timeCreated": "2018-10-23T00:04:44.507Z",
"updated": "2018-10-23T00:04:44.507Z",
"metageneration": "1",
"location": "US",
"storageClass": "MULTI_REGIONAL",
"etag": "CAE="
},
{
"kind": "storage#bucket",
"id": "chilkat-images",
"selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-images",
"projectNumber": "5332332985",
"name": "chilkat-images",
"timeCreated": "2018-10-23T11:24:43.000Z",
"updated": "2018-10-23T11:24:43.000Z",
"metageneration": "1",
"location": "US",
"storageClass": "MULTI_REGIONAL",
"etag": "CAE="
}
]
}