(PowerBuilder) 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

integer li_rc
integer li_Success
oleobject loo_Xml
oleobject loo_SbXml
oleobject loo_Crypt
string ls_ContentMd5Value
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
string ls_ResponseXml

// 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
loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Xml.Tag = "AmazonEnvelope"
loo_Xml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loo_Xml.AddAttribute("xsi:noNamespaceSchemaLocation","amzn-envelope.xsd")
loo_Xml.UpdateChildContent("Header|DocumentVersion","1.01")
loo_Xml.UpdateChildContent("Header|MerchantIdentifier","M_EXAMPLE_123456")
loo_Xml.UpdateChildContent("MessageType","Product")
loo_Xml.UpdateChildContent("PurgeAndReplace","false")
loo_Xml.UpdateChildContent("Message|MessageID","1")
loo_Xml.UpdateChildContent("Message|OperationType","Update")
loo_Xml.UpdateChildContent("Message|Product|SKU","56789")
loo_Xml.UpdateChildContent("Message|Product|StandardProductID|Type","ASIN")
loo_Xml.UpdateChildContent("Message|Product|StandardProductID|Value","B0EXAMPLEG")
loo_Xml.UpdateChildContent("Message|Product|ProductTaxCode","A_GEN_NOTAX")
loo_Xml.UpdateChildContent("Message|Product|DescriptionData|Title","Example Product Title")
loo_Xml.UpdateChildContent("Message|Product|DescriptionData|Brand","Example Product Brand")
loo_Xml.UpdateChildContent("Message|Product|DescriptionData|Description","This is an example product description.")
loo_Xml.UpdateChildContent("Message|Product|DescriptionData|BulletPoint","Example Bullet Point 1")
loo_Xml.UpdateChildContent("Message|Product|DescriptionData|BulletPoint[1]","Example Bullet Point 2")
loo_Xml.UpdateAttrAt("Message|Product|DescriptionData|MSRP",1,"currency","USD")
loo_Xml.UpdateChildContent("Message|Product|DescriptionData|MSRP","25.19")
loo_Xml.UpdateChildContent("Message|Product|DescriptionData|Manufacturer","Example Product Manufacturer")
loo_Xml.UpdateChildContent("Message|Product|DescriptionData|ItemType","example-item-type")
loo_Xml.UpdateChildContent("Message|Product|ProductData|Health|ProductType|HealthMisc|Ingredients","Example Ingredients")
loo_Xml.UpdateChildContent("Message|Product|ProductData|Health|ProductType|HealthMisc|Directions","Example Directions")

// Get the XML in the most compact form for the feed submission.
loo_SbXml = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbXml.ConnectToNewObject("Chilkat.StringBuilder")

loo_Xml.EmitCompact = 1
loo_Xml.GetXmlSb(loo_SbXml)

// Get the MD5 hash..
loo_Crypt = create oleobject
// Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

loo_Crypt.HashAlgorithm = "md5"
ls_ContentMd5Value = loo_Crypt.HashStringENC(loo_SbXml.GetAsString())

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("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 
// 
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("mws.amazonservices.com",li_Port,li_BTls,li_BAutoReconnect)

loo_Rest.Host = "mws.amazonservices.com"

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

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

loo_Rest.AddHeader("Content-Type","text/xml")
ls_ResponseXml = loo_Rest.FullRequestString("POST","/Feeds/2009-01-01",loo_SbXml.GetAsString())
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Xml
    destroy loo_SbXml
    destroy loo_Crypt
    destroy loo_Rest
    return
end if

if loo_Rest.ResponseStatusCode <> 200 then
    // Examine the request/response to see what happened.
    Write-Debug "response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "response status text = " + loo_Rest.ResponseStatusText
    Write-Debug "response header: " + loo_Rest.ResponseHeader
    Write-Debug "response body: " + ls_ResponseXml
    Write-Debug "---"
    Write-Debug "LastRequestStartLine: " + loo_Rest.LastRequestStartLine
    Write-Debug "LastRequestHeader: " + loo_Rest.LastRequestHeader
end if

// Examine the XML returned in the response body.
Write-Debug ls_ResponseXml
Write-Debug "----"
Write-Debug "Success."


destroy loo_Xml
destroy loo_SbXml
destroy loo_Crypt
destroy loo_Rest