Xbase++
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 Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++
LOCAL nSuccess
LOCAL oXml
LOCAL oSbXml
LOCAL oCrypt
LOCAL cContentMd5Value
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL cResponseXml

nSuccess := 0

//  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
oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "AmazonEnvelope"
oXml:AddAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
oXml:AddAttribute("xsi:noNamespaceSchemaLocation", "amzn-envelope.xsd")
oXml:UpdateChildContent("Header|DocumentVersion", "1.01")
oXml:UpdateChildContent("Header|MerchantIdentifier", "M_EXAMPLE_123456")
oXml:UpdateChildContent("MessageType", "Product")
oXml:UpdateChildContent("PurgeAndReplace", "false")
oXml:UpdateChildContent("Message|MessageID", "1")
oXml:UpdateChildContent("Message|OperationType", "Update")
oXml:UpdateChildContent("Message|Product|SKU", "56789")
oXml:UpdateChildContent("Message|Product|StandardProductID|Type", "ASIN")
oXml:UpdateChildContent("Message|Product|StandardProductID|Value", "B0EXAMPLEG")
oXml:UpdateChildContent("Message|Product|ProductTaxCode", "A_GEN_NOTAX")
oXml:UpdateChildContent("Message|Product|DescriptionData|Title", "Example Product Title")
oXml:UpdateChildContent("Message|Product|DescriptionData|Brand", "Example Product Brand")
oXml:UpdateChildContent("Message|Product|DescriptionData|Description", "This is an example product description.")
oXml:UpdateChildContent("Message|Product|DescriptionData|BulletPoint", "Example Bullet Point 1")
oXml:UpdateChildContent("Message|Product|DescriptionData|BulletPoint[1]", "Example Bullet Point 2")
oXml:UpdateAttrAt("Message|Product|DescriptionData|MSRP", 1, "currency", "USD")
oXml:UpdateChildContent("Message|Product|DescriptionData|MSRP", "25.19")
oXml:UpdateChildContent("Message|Product|DescriptionData|Manufacturer", "Example Product Manufacturer")
oXml:UpdateChildContent("Message|Product|DescriptionData|ItemType", "example-item-type")
oXml:UpdateChildContent("Message|Product|ProductData|Health|ProductType|HealthMisc|Ingredients", "Example Ingredients")
oXml:UpdateChildContent("Message|Product|ProductData|Health|ProductType|HealthMisc|Directions", "Example Directions")

//  Get the XML in the most compact form for the feed submission.
oSbXml := CreateObject("Chilkat.StringBuilder")
oXml:EmitCompact := 1
oXml:GetXmlSb(oSbXml)

//  Get the MD5 hash..
oCrypt := CreateObject("Chilkat.Crypt2")
oCrypt:HashAlgorithm := "md5"
cContentMd5Value := oCrypt:HashStringENC(oSbXml:GetAsString())

oRest := 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 
//  
nBTls := 1
nPort := 443
nBAutoReconnect := 1
nSuccess := oRest:Connect("mws.amazonservices.com", nPort, nBTls, nBAutoReconnect)

oRest:Host := "mws.amazonservices.com"

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

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

oRest:AddHeader("Content-Type", "text/xml")
cResponseXml := oRest:FullRequestString("POST", "/Feeds/2009-01-01", oSbXml:GetAsString())
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oXml:destroy()
    oSbXml:destroy()
    oCrypt:destroy()
    oRest:destroy()
    RETURN
ENDIF

IF (oRest:ResponseStatusCode != 200)
    //  Examine the request/response to see what happened.
    ? "response status code = " + Str(oRest:ResponseStatusCode)
    ? "response status text = " + oRest:ResponseStatusText
    ? "response header: " + oRest:ResponseHeader
    ? "response body: " + cResponseXml
    ? "---"
    ? "LastRequestStartLine: " + oRest:LastRequestStartLine
    ? "LastRequestHeader: " + oRest:LastRequestHeader
ENDIF

//  Examine the XML returned in the response body.
? cResponseXml
? "----"
? "Success."

oXml:destroy()
oSbXml:destroy()
oCrypt:destroy()
oRest:destroy()