B4X
Upload File to Google Cloud Storage

Demonstrates how to upload a file to Google Cloud Storage.
Chilkat B4X Downloads

B4X
Dim success As Boolean = False

'  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"

Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/googleCloudStorage.json")
If success = False Then
    Log(jsonToken.LastErrorText)
    Return
End If


'  Send a POST equivalent to this curl command.
'  The content of the file is contained in the request body.

'  curl -X POST --data-binary @[OBJECT] \
'      -H "Authorization: Bearer [OAUTH2_TOKEN]" \
'      -H "Content-Type: [OBJECT_CONTENT_TYPE]" \
'      "https://www.googleapis.com/upload/storage/v1/b/[BUCKET_NAME]/o?uploadType=media&name=[OBJECT_NAME]"

Dim http As ChilkatHttp
http.Initialize("http")
http.AuthToken = jsonToken.StringOf("access_token")

Dim sbPath As ChilkatStringBuilder
sbPath.Initialize
sbPath.Append("/upload/storage/v1/b/bucket_name/o?uploadType=media&name=object_name")
Dim numReplaced As Int = sbPath.Replace("bucket_name", "chilkat-bucket-b")
numReplaced = sbPath.Replace("object_name", "penguins.jpg")

Dim req As ChilkatHttpRequest
req.Initialize
req.HttpVerb = "POST"
req.Path = sbPath.GetAsString
req.ContentType = "image/jpeg"
'  Indicate the file to be streamed in the request body when the HTTP POST is sent.
req.StreamBodyFromFile("qa_data/jpg/penguins.jpg")

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSReq("www.googleapis.com", 443, True, req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim responseCode As Int = resp.StatusCode
If responseCode = 401 Then
    Log(resp.BodyStr)
    Log("If invalid credentials, then it is likely the access token expired.")
    Log("Your app should automatically fetch a new access token and re-try.")
    Return
End If


Log("Response code: " & responseCode)
Log("Response body")
Log(resp.BodyStr)

'  A successful response looks like this:
'  Response code: 200
'  Response body
'  {
'   "kind": "storage#object",
'   "id": "chilkat-ocean/penguins.jpg/1502643657837855",
'   "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-ocean/o/penguins.jpg",
'   "name": "penguins.jpg",
'   "bucket": "chilkat-ocean",
'   "generation": "1502643657837855",
'   "metageneration": "1",
'   "contentType": "image/jpeg",
'   "timeCreated": "2017-08-13T17:00:57.811Z",
'   "updated": "2017-08-13T17:00:57.811Z",
'   "storageClass": "MULTI_REGIONAL",
'   "timeStorageClassUpdated": "2017-08-13T17:00:57.811Z",
'   "size": "777835",
'   "md5Hash": "nTd7EM53jEk4s8fixjoimg==",
'   "mediaLink": "https://www.googleapis.com/download/storage/v1/b/chilkat-ocean/o/penguins.jpg?generation=1502643657837855&alt=media",
'   "crc32c": "ixxYVw==",
'   "etag": "CJ+azOvX1NUCEAE="
'  }