Need PUT/GET and strings for communicating with Amazon S3 API or RESTful API

[Historypaul]

So I'm working on my MS Access front end being able to save and retrieve files from cloud-based file storage. It seems most of the "big boys" make themselves compatible with the Amazon S3 API or the RESTful API, so I'm writing some strings to connect with, authenticate, create and delete buckets, save, retrieve and modify objects, and last, but not least, it would be nice to be able to create users for the ACL.

This is a shameless request for pity code if anyone has already written some of this...

I have not found any VBA examples ANYWHERE.

Closest thing I've found is:

http://stackoverflow.com/questions/3...ul-web-service

If nobody's done it yet, I'll post what I've written once I get it working...

[orange]

You may find some info here.

[Historypaul]

Well, what I ended up doing was just purchasing a "code bundle" from Chilkat. I ended up using the S3 API instead of the SWIFT API to communicate with the server, and Chilkats pre-bundled activex .dll was just the ticket.

[orange]

Glad you have it all working. If you have any vba code or comments, I'm sure readers would appreciate it.

[Historypaul]

I hate to admit it, but there's plenty of code and comments, and none of it's mine. I would really like to see the functions and how they're written, but more for professional enrichment than anything. The procedures I would post wouldn't really make sense as they're based on the objects and methods in the .dll written by Chilkat. It's pleasantly inexpensive, and even when I needed an additional function, I just asked them, they wrote it and added it to their library. I'm able to concentrate on other aspects of the software, which is really nice. I did include a snippet of the sample code they provide below for working with their activeX objects/methods. This one in particular is the procedure for uploading a file to an S3 server like Amazons S3 or any of the other file-share servers using an S3 API.

I'm probably sounding like a commercial for Chilkat a little, but I haven't really found anyone else publishing up-to-date, useful APIs/helpers in VBA. It's kind of exciting.

Dim http As New ChilkatHttp

Dim success As Long
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If

'  Insert your access key here:
http.AwsAccessKey = "ABQXXABC83ABCDEFVQXX"

'  Insert your secret key here:
http.AwsSecretKey = "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"

Dim bucketName As String
bucketName = "chilkattestbucket"

Dim objectName As String
objectName = "starfish.jpg"

Dim localFilePath As String
localFilePath = "starfish.jpg"

Dim contentType As String
contentType = "image/jpg"

success = http.S3_UploadFile(localFilePath,contentType,bucketName,objectName)

If (success <> 1) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
Else
    Text1.Text = Text1.Text & "File uploaded." & vbCrLf
End If