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 fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set req = CreateObject("Chilkat.HttpRequest") set http = CreateObject("Chilkat.Http") ' Any string unlocks the component for the 1st 30-days. success = http.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then MsgBox http.LastErrorText WScript.Quit 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 = 1 http.SaveCookies = 1 ' 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 <> 1) Then MsgBox req.LastErrorText WScript.Quit 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. domain = "merchant-query.amazon.com" port = 443 ssl = 1 ' resp is a Chilkat.HttpResponse Set resp = http.SynchronousRequest(domain,port,ssl,req) If (resp Is Nothing ) Then outFile.WriteLine(http.LastErrorText) Else ' Display the XML returned. outFile.WriteLine(resp.BodyStr) End If outFile.Close |
Need a specific example? Send a request to support@chilkatsoft.com
© 2003-2007 Chilkat Software, Inc. All Rights Reserved.