Amazon AIM Upload Inventory

Demonstrates how to upload an inventory management file using the Amazon Inventory Management (AIM) API.

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim req As New Chilkat.HttpRequest()
Dim http As New Chilkat.Http()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(http.LastErrorText)
    Exit Sub
End If


'  The CookieDir may be set to "memory" to keep an in-memory cache of cookies.
'  Alternatively, you may set it to a directory, such as "c:/temp/cookies".  If you do that,
'  you can visually browse the cookies which will appear as XML files in the CookieDir.
http.CookieDir = "memory"

'  Tell the HTTP component to save any cookies received.  Also tell the component to
'  re-send cookies with subsequent GETs and POSTs.
http.SendCookies = true
http.SaveCookies = true


'  Build an HTTP upload request:
req.UseUpload()

'  The path may be one of these 3 choices:
'  /exec/panama/seller-admin/catalog-upload/add-modify-delete
'  /exec/panama/seller-admin/catalog-upload/modify-only
'  /exec/panama/seller-admin/catalog-upload/purge-replace
req.Path = "/exec/panama/seller-admin/catalog-upload/add-modify-delete"

'  Load the inventory file into the HTTPS request:
success = req.AddFileForUpload("myInventory","myInventory.txt")
If (success <> true) Then
    MsgBox(req.LastErrorText)
    Exit Sub
End If


'  Setting your login/password causes Chilkat to automatically add the Authorization header:
http.Login = "YourLoginEmailAddress"
http.Password = "YourPassword"

' call req.AddHeader("BatchID", "Y");
req.AddHeader("FileFormat","TabDelimited")
req.AddHeader("UploadFor","MarketplaceOnly")

'  Send the HTTP POST and get the response.  Note: This is a blocking call.
'  The method does not return until the full HTTP response is received.
Dim domain As String
Dim port As Long
Dim ssl As Boolean
domain = "merchant-query.amazon.com"
port = 443
ssl = true

Dim resp As Chilkat.HttpResponse
resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
Else
    '  Display the XML returned.
    TextBox1.Text = TextBox1.Text & resp.BodyStr & vbCrLf
End If