(Delphi DLL) 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 for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder, Rest, Xml, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
xml: HCkXml;
sbXml: HCkStringBuilder;
crypt: HCkCrypt2;
contentMd5Value: PWideChar;
rest: HCkRest;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
responseXml: PWideChar;

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

// Get the XML in the most compact form for the feed submission.
sbXml := CkStringBuilder_Create();
CkXml_putEmitCompact(xml,True);
CkXml_GetXmlSb(xml,sbXml);

// Get the MD5 hash..
crypt := CkCrypt2_Create();
CkCrypt2_putHashAlgorithm(crypt,'md5');
contentMd5Value := CkCrypt2__hashStringENC(crypt,CkStringBuilder__getAsString(sbXml));

rest := CkRest_Create();

// 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 
// 
bTls := True;
port := 443;
bAutoReconnect := True;
success := CkRest_Connect(rest,'mws.amazonservices.com',port,bTls,bAutoReconnect);

CkRest_putHost(rest,'mws.amazonservices.com');

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

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

CkRest_AddHeader(rest,'Content-Type','text/xml');
responseXml := CkRest__fullRequestString(rest,'POST','/Feeds/2009-01-01',CkStringBuilder__getAsString(sbXml));
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

if (CkRest_getResponseStatusCode(rest) <> 200) then
  begin
    // Examine the request/response to see what happened.
    Memo1.Lines.Add('response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest)));
    Memo1.Lines.Add('response status text = ' + CkRest__responseStatusText(rest));
    Memo1.Lines.Add('response header: ' + CkRest__responseHeader(rest));
    Memo1.Lines.Add('response body: ' + responseXml);
    Memo1.Lines.Add('---');
    Memo1.Lines.Add('LastRequestStartLine: ' + CkRest__lastRequestStartLine(rest));
    Memo1.Lines.Add('LastRequestHeader: ' + CkRest__lastRequestHeader(rest));
  end;

// Examine the XML returned in the response body.
Memo1.Lines.Add(responseXml);
Memo1.Lines.Add('----');
Memo1.Lines.Add('Success.');

CkXml_Dispose(xml);
CkStringBuilder_Dispose(sbXml);
CkCrypt2_Dispose(crypt);
CkRest_Dispose(rest);

end;