(Tcl) OSS Upload String (Alibaba Cloud)

See more Alibaba Cloud OSS Examples

Demonstrates how to upload the contents of a string 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 "orchard.json"
set contentType "application/json"

CkHttp_put_KeepResponseBody $http 1

# Let's say we have JSON in a string and want to upload it to a file in Aliyun..
set jsonStr "{ \"orchard\": \"apple\" }"

# The charset indicates the byte representation of what is uploaded.
# If needed, Chilkat will internally convert to the desired byte representation before uploading.
set charset "utf-8"
set success [CkHttp_S3_UploadString $http $jsonStr $charset $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 "String uploaded."
}


delete_CkHttp $http
delete_CkXml $xml