Visual FoxPro

Google Cloud Storage List Buckets

See more Google Cloud Storage Examples

Demonstrates how to retrieve a list of buckets for a given project. Visual FoxPro

LOCAL lnSuccess
LOCAL loJsonToken
LOCAL loHttp
LOCAL loResp
LOCAL lnResponseCode
LOCAL loJson
LOCAL lcKind
LOCAL i
LOCAL lnCount_i
LOCAL lcId
LOCAL lcSelfLink
LOCAL lcProjectNumber
LOCAL lcName
LOCAL lcTimeCreated
LOCAL lcUpdated
LOCAL lcMetageneration
LOCAL lnIamConfigurationBucketPolicyOnlyEnabled
LOCAL lcLocation
LOCAL lcStorageClass
LOCAL lcEtag

lnSuccess = 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"

loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googleCloudStorage.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp = CreateObject('Chilkat.Http')
loHttp.AuthToken = loJsonToken.StringOf("access_token")

* For more info see Cloud Storage Documentation - Buckets: list 
* 
lnSuccess = loHttp.SetUrlVar("PROJECT_ID","chilkattest-1050")
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://www.googleapis.com/storage/v1/b?project={$PROJECT_ID}",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

lnResponseCode = loResp.StatusCode
IF (lnResponseCode = 401) THEN
    ? loResp.BodyStr
    ? "If invalid credentials, then it is likely the access token expired."
    ? "Your app should automatically fetch a new access token and re-try."
    RELEASE loJsonToken
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

? "Response code: " + STR(lnResponseCode)
? "Response body"

loJson = CreateObject('Chilkat.JsonObject')
lnSuccess = loJson.Load(loResp.BodyStr)

loJson.EmitCompact = 0

? loJson.Emit()

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

* {
*   "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",
*       "iamConfiguration": {
*         "bucketPolicyOnly": {
*           "enabled": false
*         }
*       },
*       "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",
*       "iamConfiguration": {
*         "bucketPolicyOnly": {
*           "enabled": false
*         }
*       },
*       "location": "US",
*       "storageClass": "MULTI_REGIONAL",
*       "etag": "CAE="
*     }
*   ]
* }

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

lcKind = loJson.StringOf("kind")
i = 0
lnCount_i = loJson.SizeOfArray("items")
DO WHILE i < lnCount_i
    loJson.I = i
    lcKind = loJson.StringOf("items[i].kind")
    lcId = loJson.StringOf("items[i].id")
    lcSelfLink = loJson.StringOf("items[i].selfLink")
    lcProjectNumber = loJson.StringOf("items[i].projectNumber")
    lcName = loJson.StringOf("items[i].name")
    lcTimeCreated = loJson.StringOf("items[i].timeCreated")
    lcUpdated = loJson.StringOf("items[i].updated")
    lcMetageneration = loJson.StringOf("items[i].metageneration")
    lnIamConfigurationBucketPolicyOnlyEnabled = loJson.BoolOf("items[i].iamConfiguration.bucketPolicyOnly.enabled")
    lcLocation = loJson.StringOf("items[i].location")
    lcStorageClass = loJson.StringOf("items[i].storageClass")
    lcEtag = loJson.StringOf("items[i].etag")
    i = i + 1
ENDDO

RELEASE loJsonToken
RELEASE loHttp
RELEASE loResp
RELEASE loJson