(Tcl) S3 Upload String

Demonstrates how to upload an in-memory string to the Amazon S3 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 access key here:
CkHttp_put_AwsAccessKey $http "ABQXXABC83ABCDEFVQXX"

# Insert your secret key here:
CkHttp_put_AwsSecretKey $http "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"

set bucketName "chilkattestbucket"

set objectName "helloWorld.txt"

# The charset indicates the character encoding to be used.
# Internal to the S3_UploadString method, the characters
# are converted to this encoding prior to uploading.
set charset "utf-8"

set contentType "text/plain"

set objectContent "Hello World!"

# Upload the string.
# This creates an object named "helloWorld.txt" in the
# bucket "chilkattestbucket" containing the text "Hello World!"
set success [CkHttp_S3_UploadString $http $objectContent $charset $contentType $bucketName $objectName]

if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]
} else {
    puts "String uploaded."
}


delete_CkHttp $http