Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
MWS SubmitFeed (Amazon Marketplace Web Service)
See more HTTP Misc Examples
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 Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.StringBuilder,
Chilkat.Rest,
Chilkat.Xml,
Chilkat.Crypt2;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
xml: TXml;
sbXml: TStringBuilder;
crypt: TCrypt2;
contentMd5Value: string;
rest: TRest;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
responseXml: string;
begin
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
xml := TXml.Create;
xml.Tag := 'AmazonEnvelope';
xml.AddAttribute('xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance');
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');
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.
sbXml := TStringBuilder.Create;
xml.EmitCompact := True;
xml.GetXmlSb(sbXml);
// Get the MD5 hash..
crypt := TCrypt2.Create;
crypt.HashAlgorithm := 'md5';
contentMd5Value := crypt.HashStringENC(sbXml.GetAsString());
rest := TRest.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 := rest.Connect('mws.amazonservices.com',port,bTls,bAutoReconnect);
rest.Host := 'mws.amazonservices.com';
rest.AddQueryParam('AWSAccessKeyId','0PB842ExampleN4ZTR2');
rest.AddQueryParam('Action','SubmitFeed');
rest.AddQueryParam('FeedType','_POST_PRODUCT_DATA_');
rest.AddQueryParam('MWSAuthToken','amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE');
rest.AddQueryParam('MarketplaceId.Id.1','ATVExampleDER');
rest.AddQueryParam('SellerId','A1XExample5E6');
rest.AddQueryParam('ContentMD5Value',contentMd5Value);
rest.AddQueryParam('SignatureMethod','HmacSHA256');
rest.AddQueryParam('SignatureVersion','2');
rest.AddQueryParam('Version','2009-01-01');
// Add the MWS Signature param. (Also adds the Timestamp parameter using the curent system date/time.)
rest.AddMwsSignature('POST','/Feeds/2009-01-01','mws.amazonservices.com','MWS_SECRET_ACCESS_KEY_ID');
rest.AddHeader('Content-Type','text/xml');
responseXml := rest.FullRequestString('POST','/Feeds/2009-01-01',sbXml.GetAsString());
if (rest.LastMethodSuccess <> True) then
begin
WriteLn(rest.LastErrorText);
Exit;
end;
if (rest.ResponseStatusCode <> 200) then
begin
// Examine the request/response to see what happened.
WriteLn('response status code = ' + rest.ResponseStatusCode);
WriteLn('response status text = ' + rest.ResponseStatusText);
WriteLn('response header: ' + rest.ResponseHeader);
WriteLn('response body: ' + responseXml);
WriteLn('---');
WriteLn('LastRequestStartLine: ' + rest.LastRequestStartLine);
WriteLn('LastRequestHeader: ' + rest.LastRequestHeader);
end;
// Examine the XML returned in the response body.
WriteLn(responseXml);
WriteLn('----');
WriteLn('Success.');
xml.Free;
sbXml.Free;
crypt.Free;
rest.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.