(Tcl) Initiate Resumable Upload Session

See more Google Cloud Storage Examples

For more information, see https://cloud.google.com/storage/docs/performing-resumable-uploads

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/googleCloudStorage.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

set jsonMetaData [new_CkJsonObject]

CkJsonObject_UpdateString $jsonMetaData "contentType" "image/jpeg"

# Adds the "Authorization: Bearer <access_token>" header..
CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

CkHttp_SetUrlVar $http "bucket_name" "chilkat-bucket-b"
CkHttp_SetUrlVar $http "object_name" "penguins2.jpg"
set url "https://storage.googleapis.com/upload/storage/v1/b/{$bucket_name}/o?uploadType=resumable&name={$object_name}"
# resp is a CkHttpResponse
set resp [CkHttp_PText $http "POST" $url [CkJsonObject_emit $jsonMetaData] "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkJsonObject $jsonMetaData
    exit
}

set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "response status code = $statusCode"

set sessionUrl ""

if {$statusCode != 200} then {
    puts [CkHttpResponse_bodyStr $resp]
} else {
    # The session URL will be used to upload the file in chunks, in subsequent HTTP POSTs...
    set sessionUrl [CkHttpResponse_getHeaderField $resp "Location"]
    puts "Session URL = $sessionUrl"
}

delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkJsonObject $jsonToken
delete_CkJsonObject $jsonMetaData