Amazon AIMS HTTPS POST

Demonstrates a simple post to the Amazon Inventory Management System (AIMS) API using Chilkat HTTP.

Download Chilkat HTTP ActiveX

LOCAL loReq
LOCAL loHttp
LOCAL lnSuccess
LOCAL lcHtml
LOCAL lcDomain
LOCAL lnPort
LOCAL lnSsl
LOCAL loResp

loReq = CreateObject('Chilkat.HttpRequest')
loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  Before doing the POST, do a simple GET for the purpose of obtaining a Cookie.
*  The Cookie contains a session-id and a session-id-time, and these values must
*  be current.

*  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.
loHttp.CookieDir = "memory"

*  Tell the HTTP component to save any cookies received.  Also tell the component to
*  re-send cookies with subsequent GETs and POSTs.
loHttp.SendCookies = 1
loHttp.SaveCookies = 1

*  Do a GET to retrieve our Cookie...

lcHtml = loHttp.QuickGetStr("https://secure.amazon.com/exec/panama/seller-admin/manual-reports/get-report-status")

*  Build an HTTP POST Request:
loReq.UsePost()
loReq.Path = "/exec/panama/seller-admin/manual-reports/get-report-status"

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

*  NOTE: Do not explicitly add the Cookie header.  It is added automatically by Chilkat HTTP.
loReq.AddHeader("Content-Type","text/xml")

loReq.AddHeader("NumberofReports","2")
loReq.AddHeader("ReportName","OpenListingsLite")

*  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.

lcDomain = "secure.amazon.com"
lnPort = 443
lnSsl = 1

loResp = loHttp.SynchronousRequest(lcDomain,lnPort,lnSsl,loReq)
IF (loResp = NULL ) THEN
    ? loHttp.LastErrorText
ELSE
    *  Display the XML returned.
    ? loResp.BodyStr
ENDIF