(Tcl) OSS Upload File (Alibaba Cloud)

See more Alibaba Cloud OSS Examples

Demonstrates how to upload a file to an AliCloud OSS bucket.

The Chilkat S3 functions in the HTTP class are compatible with Alibaba Cloud's OSS service.

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]

# Insert your AccessKey ID here:
CkHttp_put_AwsAccessKey $http "access-key"

# Insert your AccessKey Secret here:
CkHttp_put_AwsSecretKey $http "secret-key"

# To upload to a bucket located in a different region, use the endpoint for that region, such as "oss-cn-hangzhou.aliyuncs.com 	"
# See Alibaba Object Storage Service Regions and Endpoints
CkHttp_put_AwsEndpoint $http "oss-us-east-1.aliyuncs.com"

set bucketName "chilkat"
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