Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Amazon AIM Upload InventoryDemonstrates how to upload an inventory management file using the Amazon Inventory Management (AIM) API.
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 |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.