(Visual FoxPro) Generate S3 Signed URL
Demonstrates how to generate a pre-signed S3 URL.
LOCAL loHttp
LOCAL lcBucketName
LOCAL lcPath
LOCAL loExpireTime
LOCAL lnBLocalTime
LOCAL lcSignedUrl
* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loHttp = CreateObject('Chilkat_9_5_0.Http')
* Insert your access key here:
loHttp.AwsAccessKey = "ABQXXABC83ABCDEFVQXX"
* Insert your secret key here:
loHttp.AwsSecretKey = "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"
lcBucketName = "testbucket"
lcPath = "starfish.jpg"
loExpireTime = CreateObject('Chilkat_9_5_0.CkDateTime')
loExpireTime.SetFromCurrentSystemTime()
lnBLocalTime = 0
* Set the expiration time to 1 hour from the current time.
loExpireTime.SetFromUnixTime(lnBLocalTime,loExpireTime.GetAsUnixTime(lnBLocalTime) + 3600)
lcSignedUrl = loHttp.S3_GenerateUrl(lcBucketName,lcPath,loExpireTime)
IF (loHttp.LastMethodSuccess <> 1) THEN
? loHttp.LastErrorText
ELSE
? lcSignedUrl
ENDIF
RELEASE loHttp
RELEASE loExpireTime
|