Tcl

Backblaze S3 Upload Binary

See more Backblaze S3 Examples

Demonstrates how to upload the in-memory binary data to an Backblaze bucket. 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-123"
set objectName "starfish.jpg"

# The Content-Type has the form  type/subtype, such as application/pdf, application/json, image/jpeg, etc.
# See Explaining Content-Types
set contentType "image/jpeg"

CkHttp_put_KeepResponseBody $http 1

set jpgData [new_CkBinData]

set success [CkBinData_LoadFile $jpgData "qa_data/jpg/starfish.jpg"]

set success [CkHttp_S3_UploadBd $http $jpgData $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 "JPG uploaded."
}


delete_CkHttp $http
delete_CkBinData $jpgData
delete_CkXml $xml