Xojo Plugin
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 Xojo Plugin Downloads

Download Chilkat for Xojo Plugin
Xojo Plugin
Dim success As Boolean
success = False

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

// Get the XML in the most compact form for the feed submission.
Dim sbXml As New Chilkat.StringBuilder
xml.EmitCompact = True
success = xml.GetXmlSb(sbXml)

// Get the MD5 hash..
Dim crypt As New Chilkat.Crypt2
crypt.HashAlgorithm = "md5"
Dim contentMd5Value As String
contentMd5Value = crypt.HashStringENC(sbXml.GetAsString())

Dim rest As New 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 
// 
Dim bTls As Boolean
bTls = True
Dim port As Int32
port = 443
Dim bAutoReconnect As Boolean
bAutoReconnect = True
success = rest.Connect("mws.amazonservices.com",port,bTls,bAutoReconnect)

rest.Host = "mws.amazonservices.com"

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

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

success = rest.AddHeader("Content-Type","text/xml")
Dim responseXml As String
responseXml = rest.FullRequestString("POST","/Feeds/2009-01-01",sbXml.GetAsString())
If (rest.LastMethodSuccess <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

If (rest.ResponseStatusCode <> 200) Then
    // Examine the request/response to see what happened.
    System.DebugLog("response status code = " + Str(rest.ResponseStatusCode))
    System.DebugLog("response status text = " + rest.ResponseStatusText)
    System.DebugLog("response header: " + rest.ResponseHeader)
    System.DebugLog("response body: " + responseXml)
    System.DebugLog("---")
    System.DebugLog("LastRequestStartLine: " + rest.LastRequestStartLine)
    System.DebugLog("LastRequestHeader: " + rest.LastRequestHeader)
End If

// Examine the XML returned in the response body.
System.DebugLog(responseXml)
System.DebugLog("----")
System.DebugLog("Success.")