(Visual Basic 6.0) 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

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

Dim success As Long

' 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 ChilkatXml
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",1,"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 ChilkatStringBuilder
xml.EmitCompact = 1
success = xml.GetXmlSb(sbXml)

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

Dim rest As New ChilkatRest

' 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 Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
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 <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

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

' Examine the XML returned in the response body.
Debug.Print responseXml
Debug.Print "----"
Debug.Print "Success."