(PureBasic) Wasabi Create Bucket
Demonstrates how to create a new Wasabi bucket.
IncludeFile "CkHttp.pb"
Procedure ChilkatExample()
; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
; Insert your access key here:
CkHttp::setCkAwsAccessKey(http, "access-key")
; Insert your secret key here:
CkHttp::setCkAwsSecretKey(http, "secret-key")
; To create a bucket located in a different region, use the domain for that region, such as "s3.eu-central-1.wasabisys.com"
CkHttp::setCkAwsEndpoint(http, "s3.wasabisys.com")
; Change the bucket name here to something unique:
success.i = CkHttp::ckS3_CreateBucket(http,"chilkat-wasabi-testbucket")
If success <> 1
Debug CkHttp::ckLastErrorText(http)
Else
Debug "Bucket created."
EndIf
CkHttp::ckDispose(http)
ProcedureReturn
EndProcedure
|