B4X

Initiate Resumable Upload Session

See more Google Cloud Storage Examples

Initiate a Google Cloud Storage resumable upload session.. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim http As ChilkatHttp
http.Initialize("http")

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


Dim jsonMetaData As ChilkatJsonObject
jsonMetaData.Initialize
jsonMetaData.UpdateString("contentType", "image/jpeg")

'  Adds the "Authorization: Bearer <access_token>" header..
http.AuthToken = jsonToken.StringOf("access_token")

http.SetUrlVar("bucket_name", "chilkat-bucket-b")
http.SetUrlVar("object_name", "penguins2.jpg")
Dim url As String = "https://storage.googleapis.com/upload/storage/v1/b/{$bucket_name}/o?uploadType=resumable&name={$object_name}"
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", url, jsonMetaData, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim statusCode As Int = resp.StatusCode
Log("response status code = " & statusCode)

Dim sessionUrl As String = ""

If statusCode <> 200 Then
    Log(resp.BodyStr)
Else
    '  The session URL will be used to upload the file in chunks, in subsequent HTTP POSTs...
    sessionUrl = resp.GetHeaderField("Location")
    Log("Session URL = " & sessionUrl)
End If