(Visual FoxPro) MWS SubmitFeed (Amazon Marketplace Web Service)

Uploads a feed for processing by Amazon MWS.

See Amazon MWS SubmitFeed for the Amazon MWS SubmitFeed reference documentation.

Important: The Chilkat v9.5.0.75 release accidentally breaks Amazon MWS (not AWS) authentication. If you need MWS with 9.5.0.75, send email to support@chilkatsoft.com for a hotfix, or revert back to v9.5.0.73, or update to a version after 9.5.0.75.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loXml
LOCAL loSbXml
LOCAL loCrypt
LOCAL lcContentMd5Value
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lcResponseXml

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* This example will send an XML file in the HTTP request body.  
* First we'll construct the XML, then we'll compute the MD5 digest which needs to be added as a query param..

* Construct the following XML.   (This is just a sample XML body..)

* <AmazonEnvelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
*     xsi:noNamespaceSchemaLocation="amzn-envelope.xsd">
*   <Header>
*     <DocumentVersion>1.01</DocumentVersion>
*     <MerchantIdentifier>M_EXAMPLE_123456</MerchantIdentifier>
*   </Header>
*   <MessageType>Product</MessageType>
*   <PurgeAndReplace>false</PurgeAndReplace>
*   <Message>
*     <MessageID>1</MessageID>
*     <OperationType>Update</OperationType>
*     <Product>
*       <SKU>56789</SKU>
*       <StandardProductID>
*         <Type>ASIN</Type>
*         <Value>B0EXAMPLEG</Value>
*       </StandardProductID>
*       <ProductTaxCode>A_GEN_NOTAX</ProductTaxCode>
*       <DescriptionData>
*         <Title>Example Product Title</Title>
*         <Brand>Example Product Brand</Brand>
*         <Description>This is an example product description.</Description>
*         <BulletPoint>Example Bullet Point 1</BulletPoint>
*         <BulletPoint>Example Bullet Point 2</BulletPoint>
*         <MSRP currency="USD">25.19</MSRP>
*         <Manufacturer>Example Product Manufacturer</Manufacturer>
*         <ItemType>example-item-type</ItemType>
*       </DescriptionData>
*       <ProductData>
*         <Health>
*           <ProductType>
*             <HealthMisc>
*               <Ingredients>Example Ingredients</Ingredients>
*               <Directions>Example Directions</Directions>
*             </HealthMisc>
*           </ProductType>
*         </Health>
*       </ProductData>
*     </Product>
*   </Message>
* </AmazonEnvelope>

* This code was generated by pasting the above XML into the online tool at http://tools.chilkat.io/xmlCreate.cshtml
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "AmazonEnvelope"
loXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loXml.AddAttribute("xsi:noNamespaceSchemaLocation","amzn-envelope.xsd")
loXml.UpdateChildContent("Header|DocumentVersion","1.01")
loXml.UpdateChildContent("Header|MerchantIdentifier","M_EXAMPLE_123456")
loXml.UpdateChildContent("MessageType","Product")
loXml.UpdateChildContent("PurgeAndReplace","false")
loXml.UpdateChildContent("Message|MessageID","1")
loXml.UpdateChildContent("Message|OperationType","Update")
loXml.UpdateChildContent("Message|Product|SKU","56789")
loXml.UpdateChildContent("Message|Product|StandardProductID|Type","ASIN")
loXml.UpdateChildContent("Message|Product|StandardProductID|Value","B0EXAMPLEG")
loXml.UpdateChildContent("Message|Product|ProductTaxCode","A_GEN_NOTAX")
loXml.UpdateChildContent("Message|Product|DescriptionData|Title","Example Product Title")
loXml.UpdateChildContent("Message|Product|DescriptionData|Brand","Example Product Brand")
loXml.UpdateChildContent("Message|Product|DescriptionData|Description","This is an example product description.")
loXml.UpdateChildContent("Message|Product|DescriptionData|BulletPoint","Example Bullet Point 1")
loXml.UpdateChildContent("Message|Product|DescriptionData|BulletPoint[1]","Example Bullet Point 2")
loXml.UpdateAttrAt("Message|Product|DescriptionData|MSRP",1,"currency","USD")
loXml.UpdateChildContent("Message|Product|DescriptionData|MSRP","25.19")
loXml.UpdateChildContent("Message|Product|DescriptionData|Manufacturer","Example Product Manufacturer")
loXml.UpdateChildContent("Message|Product|DescriptionData|ItemType","example-item-type")
loXml.UpdateChildContent("Message|Product|ProductData|Health|ProductType|HealthMisc|Ingredients","Example Ingredients")
loXml.UpdateChildContent("Message|Product|ProductData|Health|ProductType|HealthMisc|Directions","Example Directions")

* Get the XML in the most compact form for the feed submission.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbXml = CreateObject('Chilkat.StringBuilder')
loXml.EmitCompact = 1
loXml.GetXmlSb(loSbXml)

* Get the MD5 hash..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.HashAlgorithm = "md5"
lcContentMd5Value = loCrypt.HashStringENC(loSbXml.GetAsString())

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* Connect to the Amazon MWS REST server.
* 
* Make sure to connect to the correct Amazon MWS Endpoing, otherwise
* you'll get an HTTP 401 response code.
* 
* The possible servers are:
* 
* North America (NA) 	https://mws.amazonservices.com
* Europe (EU) 	https://mws-eu.amazonservices.com
* India (IN) 	https://mws.amazonservices.in
* China (CN) 	https://mws.amazonservices.com.cn
* Japan (JP) 	https://mws.amazonservices.jp 
* 
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("mws.amazonservices.com",lnPort,lnBTls,lnBAutoReconnect)

loRest.Host = "mws.amazonservices.com"

loRest.AddQueryParam("AWSAccessKeyId","0PB842ExampleN4ZTR2")
loRest.AddQueryParam("Action","SubmitFeed")
loRest.AddQueryParam("FeedType","_POST_PRODUCT_DATA_")
loRest.AddQueryParam("MWSAuthToken","amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE")
loRest.AddQueryParam("MarketplaceId.Id.1","ATVExampleDER")
loRest.AddQueryParam("SellerId","A1XExample5E6")
loRest.AddQueryParam("ContentMD5Value",lcContentMd5Value)
loRest.AddQueryParam("SignatureMethod","HmacSHA256")
loRest.AddQueryParam("SignatureVersion","2")
loRest.AddQueryParam("Version","2009-01-01")

* Add the MWS Signature param.  (Also adds the Timestamp parameter using the curent system date/time.)
loRest.AddMwsSignature("POST","/Feeds/2009-01-01","mws.amazonservices.com","MWS_SECRET_ACCESS_KEY_ID")

loRest.AddHeader("Content-Type","text/xml")
lcResponseXml = loRest.FullRequestString("POST","/Feeds/2009-01-01",loSbXml.GetAsString())
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loXml
    RELEASE loSbXml
    RELEASE loCrypt
    RELEASE loRest
    CANCEL
ENDIF

IF (loRest.ResponseStatusCode <> 200) THEN
    * Examine the request/response to see what happened.
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response body: " + lcResponseXml
    ? "---"
    ? "LastRequestStartLine: " + loRest.LastRequestStartLine
    ? "LastRequestHeader: " + loRest.LastRequestHeader
ENDIF

* Examine the XML returned in the response body.
? lcResponseXml
? "----"
? "Success."

RELEASE loXml
RELEASE loSbXml
RELEASE loCrypt
RELEASE loRest