(Tcl) Example: Http.S3_DownloadBd method
Demonstrates the S3_DownloadBd method.
load ./chilkat.dll
set success 0
# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set http [new_CkHttp]
CkHttp_put_AwsAccessKey $http "AWS_ACCESS_KEY"
CkHttp_put_AwsSecretKey $http "AWS_SECRET_KEY"
CkHttp_put_AwsRegion $http "us-west-2"
CkHttp_put_AwsEndpoint $http "s3-us-west-2.amazonaws.com"
set bucketName "chilkat.qa"
set objectName "/images/sea_creatures/starfish.jpg"
set localFilePath "qa_output/starfish.jpg"
set bd [new_CkBinData]
set success [CkHttp_S3_DownloadBd $http $bucketName $objectName $bd]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
delete_CkBinData $bd
exit
}
puts "Downloaded [CkBinData_get_NumBytes $bd] bytes"
delete_CkHttp $http
delete_CkBinData $bd
|
