Lianja

Create a Google Cloud Storage Bucket

See more Google Cloud Storage Examples

Demonstrates how to create a Google Cloud Storage bucket. Lianja

llSuccess = .F.

// 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..
loSbToken = createobject("CkStringBuilder")
loSbToken.LoadFile("qa_data/tokens/googleCloudStorageAccessToken.txt","utf-8")

// ---- Step 1
// Create a JSON that contains the following information, replacing [VALUES_IN_BRACKETS] with the appropriate values:

// {
//   "name": "[BUCKET_NAME]",
//   "location": "[BUCKET_LOCATION]",
//   "storageClass": "[STORAGE_CLASS]"
// }

loJson = createobject("CkJsonObject")
loJson.UpdateString("name","chilkat-ocean")
loJson.UpdateString("location","us")
loJson.UpdateString("storageClass","multi_regional")

// ---- Step 2
// Send a POST equivalent to this curl command

// curl -X POST --data-binary @[JSON_FILE_NAME].json \
//      -H "Authorization: Bearer [OAUTH2_TOKEN]" \
//      -H "Content-Type: application/json" \
//      "https://www.googleapis.com/storage/v1/b?project=[PROJECT_ID]"

loHttp = createobject("CkHttp")
loHttp.AuthToken = loSbToken.GetAsString()

loHttp.SetUrlVar("project_id","chilkat-176611")
lcUrl = "https://www.googleapis.com/storage/v1/b?project={$project_id}"
loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpJson("POST",lcUrl,loJson,"application/json",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loSbToken
    release loJson
    release loHttp
    release loResp
    return
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 loSbToken
    release loJson
    release loHttp
    release loResp
    return
endif

? "Response code: " + str(lnResponseCode)
? "Response body"
? loResp.BodyStr

// A successful response looks like this:
// Response code: 200
// Response body
// {
//  "kind": "storage#bucket",
//  "id": "chilkat-ocean",
//  "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-ocean",
//  "projectNumber": "933037264567",
//  "name": "chilkat-ocean",
//  "timeCreated": "2017-08-13T12:27:10.811Z",
//  "updated": "2017-08-13T12:27:10.811Z",
//  "metageneration": "1",
//  "location": "US",
//  "storageClass": "MULTI_REGIONAL",
//  "etag": "CAE="
// }
// 

// Parse the JSON response:
loJsonResp = createobject("CkJsonObject")
loJsonResp.Load(loResp.BodyStr)

? "name: " + loJsonResp.StringOf("name")
? "timeCreated: " + loJsonResp.StringOf("timeCreated")

// Parse the date/time created.
loDt = createobject("CkDateTime")
loDt.SetFromTimestamp(loJsonResp.StringOf("timeCreated"))
// ...


release loSbToken
release loJson
release loHttp
release loResp
release loJsonResp
release loDt