(Tcl) Backblaze S3 Upload Binary
Demonstrates how to upload the in-memory binary data to an Backblaze bucket.
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
|
