Tcl

Backblaze S3 Upload File

See more Backblaze S3 Examples

Demonstrates how to upload a file to a Backblaze bucket.

The Chilkat S3 functions in the HTTP class are compatible with the Backblaze service. However, because of some specific issues, Chilkat v9.5.0.89 or later is needed.

Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

# keyID = Access Key ID or Access Key
CkHttp_put_AwsAccessKey $http "access-key"

# applicationKey = Secret Access Key or Secret Key
CkHttp_put_AwsSecretKey $http "secret-key"

# Region is the 2nd part of your S3 Endpoint
CkHttp_put_AwsEndpoint $http "s3.us-west-002.backblazeb2.com"

set bucketName "chilkat-test"
set objectName "seahorse.jpg"
set localFilePath "qa_data/jpg/seahorse.jpg"
set contentType "image/jpg"

CkHttp_put_KeepResponseBody $http 1

set success [CkHttp_S3_UploadFile $http $localFilePath $contentType $bucketName $objectName]

if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]

    set xml [new_CkXml]

    CkXml_LoadXml $xml [CkHttp_lastResponseBody $http]
    puts [CkXml_getXml $xml]
} else {
    puts "File uploaded."
}


delete_CkHttp $http
delete_CkXml $xml