Delphi 额外的HTTP头会影响MWS提要API提交吗？

调试Amazon MWS提要提交是一件令人讨厌的事情，因为无论您做了什么错事，Ama都只会返回相同的毫无意义的错误消息：

<Error>
  <Type>Sender</Type>
  <Code>InvalidParameterValue</Code>
  <Message>Either Action or Operation query parameter must be present.</Message>
</Error>

我100%确信我正确构建了StringToSign以及计算HMAC-SHA256等。我花了几周时间收集并采用了一堆有用的函数，用于哈希、签名、base64ing等MWS请求。它们都是用纯Pascal编写的，在订单和产品API上进行测试

现在，当谈到feedsapi时，我陷入了上述错误。所有参数均等于MWS Scratchpad生成的参数。我测试了MWS Scratchpad生成的提交StringToSign，但没有成功

到目前为止，我注意到：MWS Scratchpad和我的应用程序生成的标题数量/值之间存在差异

草稿行生成以下标题（至少显示这些标题）：

我的应用程序使用Indy（在XE4中）TIdHTTP发出请求。当Amazon返回上述错误时，

Request.RawHeaders.Text

包含以下内容：

  Content-Length: 251
  x-amazon-user-agent: MyApp/1.1(Language=Delphi;Platform=Windows7)
  Content-Type: text/xml
  Host: mws.amazonservices.ca
  Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  Accept-Encoding: identity
  User-Agent: MyApp/1.1(Language=Delphi;Platform=Windows7)

看起来像是默认情况下添加到

Request

对象的额外标题。我的第一个问题是：这些额外的标题理论上会影响行为吗？也就是说，他们能成为表演的阻碍者吗

我的第二个问题：在Indy

HTTP.Request

中，是否有任何选项来管理默认头的列表？为了继续调试，我宁愿排除额外的头，以查看请求是否有效

更新：（签名字符串）

请注意：为了方便您在

混淆的

nnCoection

标题解释如下：

---

我的问题现在解决了。以下是我对没有违反社区标准的人的感谢；-）

---

您的请求

内容类型
标题错误。将其设置为
text/xml；charset=us ascii
，但您实际上并没有首先发送XML数据。根据MWS文档，您需要将
内容类型设置为
application/x-www-form-urlencoded
（通过
TIdHTTP.Request.ContentType
属性）

tString
版本的
TIdHTTP.Post（）
将为您设置
ContentType
，但您使用的是
TStream
版本，因此您必须手动设置
ContentType
。在这种情况下，我建议您切换到
TStrings
版本，让它为您处理表单字段的编码：

var
  PostData: TStringList;
begin
  PostData := TStringList.Create;
  try
    PostData.Add('AWSAccessKeyId=<AWSAccessKeyId>');
    PostData.Add('Action=GetFeedSubmissionList');
    PostData.Add('MWSAuthToken=<AWSAuthToken>');
    PostData.Add('Merchant=<MerchantId>');
    PostData.Add('SignatureMethod=HmacSHA256');
    PostData.Add('SignatureVersion=2');
    PostData.Add('Timestamp=2015-07-28T10:28:09Z'); // <-- NOT percent encoded yet!
    PostData.Add('Version=2009-01-01');
    PostData.Add('Signature=I6euLIiVDzjZ8bbdtF840K0TJCkGh4NrUbQPtQtu78A=');  // <-- NOT percent encoded yet!

    IdHTTP1.Request.CustomHeaders.Values['x-amazon-user-agent'] := 'MyAppNameAndVer';
    IdHTTP1.Post('http://mws.amazonservices.ca', PostData);
  finally
    PostData.Free;
  end;
end;

var
PostData:TStringList；
开始
PostData:=TStringList.Create；
尝试
Add（'AWSAccessKeyId='）；
Add（'Action=GetFeedSubmissionList'）；
Add（'MWSAuthToken='）；
PostData.Add（'Merchant='）；
Add（'SignatureMethod=HmacSHA256'）；
PostData.Add（'SignatureVersion=2'）；
PostData.Add（'Timestamp=2015-07-28T10:28:09Z'）；//如果你真的读了，这个错误是不言自明的。您要发布到的URL在URL的查询部分缺少
操作
或
操作
参数，例如：
http://server/path?action=...
或
http://server/path?operation=...
这与HTTP头毫无关系。@RemyLebeau，不幸的是，这不是原因。我会很高兴，如果这是如此容易。。。在初始请求中，具有
操作
参数。这里有所有必需的参数。完整的HTTP请求是什么样子的？包括请求标题前面的请求行。@RemyLebeau，您能建议如何获得完整（原始）请求吗？它是否存储在
Request.Source
中？在发布之前，我先设置所有的标题，然后将Amazon数据放到TStringStream，然后
HTTP.Post（AUrl，StringStream）
。我设置了一个断点，注意到
Post
抛出异常，该异常由异常处理程序处理，该异常处理程序返回
Request.RawHeaders.Text
Request.Source
只是指向您正在发布的
TStream
的指针。顺便说一句，您正在发布的数据可以使用
TStringList
而不是
TStream
发布。无论哪种方式，要获得完整的请求，您都可以使用Wireshark之类的数据包嗅探器（除非URL是HTTPS），或者Fiddler之类的调试代理（支持HTTPS），或者将Indy的
TIdLog…
组件之一附加到
TIdHTTP.Intercept
属性。例外情况是因为服务器正在发送错误响应。我遵守社区标准，因此在OP中嵌入了更多代码；）
  AWSAccessKeyId=<AWSAccessKeyId>
  &Action=GetFeedSubmissionList
  &Merchant=<MerchantId>
  &SignatureMethod=HmacSHA256
  &SignatureVersion=2
  &Timestamp=2015-07-26T09%3A04%3A59Z
  &Version=2009-01-01
  &Signature=1OI0PVgL3uh5sFXxjCzaaWEwGmW6h5e0dgLUFkPgoXg%3D

  Stat Connected.
  Sent 28.07.2015 12:28:11:
    POST / HTTP/1.1<EOL>
    Content-Type: text/xml; charset=us-ascii<EOL>
    Content-Length: 279<EOL>
    x-amazon-user-agent: MyAppNameAndVer<EOL>
    Host: mws.amazonservices.ca<EOL>
    Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8<EOL>
    Accept-Encoding: identity<EOL>
    User-Agent: Mozilla/3.0 (compatible; Indy Library)<EOL><EOL>

  Sent 28.07.2015 12:28:11: 
    AWSAccessKeyId=<AWSAccessKeyId>
    &Action=GetFeedSubmissionList
    &MWSAuthToken=<AWSAuthToken>
    &Merchant=<MerchantId>
    &SignatureMethod=HmacSHA256
    &SignatureVersion=2
    &Timestamp=2015-07-28T10%3A28%3A09Z
    &Version=2009-01-01
    &Signature=I6euLIiVDzjZ8bbdtF840K0TJCkGh4NrUbQPtQtu78A%3D

  Recv 28.07.2015 12:28:11:
    HTTP/1.1 400 Bad Request<EOL>
    Date: Tue, 28 Jul 2015 10:28:10 GMT<EOL>
    Server: AmazonMWS<EOL>
    x-mws-request-id: 7e63280d-1db5-4d10-af40-587747d032a8<EOL>
    x-mws-timestamp: 2015-07-28T10:28:11.048Z<EOL>
    x-mws-response-context: OmAlguEmW20QT07uIdb9d25xkX+JSS7uFr1rDvXIoqXMvbUFzUMt1b5Xl2WzDaJszbwr25N/J4c=<EOL>
    Content-Type: text/xml<EOL>
    Content-Length: 324<EOL>
    Vary: User-Agent<EOL>
    nnCoection: close<EOL><EOL>
    <?xml version="1.0"?><LF><ErrorResponse xmlns="https://mws.amazonservices.com/"><LF>  <Error><LF>    <Type>Sender</Type><LF>    <Code>InvalidParameterValue</Code><LF>    <Message>Either Action or Operation query parameter must be present.</Message><LF>  </Error><LF>  <RequestID>7e63280d-1db5-4d10-af40-587747d032a8</RequestID><LF></ErrorResponse><LF>
  Stat Disconnected.

Days := 1;
repeat
  IsSuccessful := DebugAmazonFeedSubmissionProc;
  Inc(Days);
until IsSuccessful or (Days = 14);

if not IsSuccessful then
begin
  AskTheGods(@StackOverflow);
  Sleep(1000); // ...wake up and drink a cup'o'tea :)
  Expert := TRemyLebeau.Create('delphi');
  try
    Expert.ReviewTheCode;
    Expert.GetTheJobDone;
  finally
    // You may dispose the instance here,
    // but the Class is one of the most valuable assets of the Community.
    // Thank you, Remy!
  end;
end;

var
  PostData: TStringList;
begin
  PostData := TStringList.Create;
  try
    PostData.Add('AWSAccessKeyId=<AWSAccessKeyId>');
    PostData.Add('Action=GetFeedSubmissionList');
    PostData.Add('MWSAuthToken=<AWSAuthToken>');
    PostData.Add('Merchant=<MerchantId>');
    PostData.Add('SignatureMethod=HmacSHA256');
    PostData.Add('SignatureVersion=2');
    PostData.Add('Timestamp=2015-07-28T10:28:09Z'); // <-- NOT percent encoded yet!
    PostData.Add('Version=2009-01-01');
    PostData.Add('Signature=I6euLIiVDzjZ8bbdtF840K0TJCkGh4NrUbQPtQtu78A=');  // <-- NOT percent encoded yet!

    IdHTTP1.Request.CustomHeaders.Values['x-amazon-user-agent'] := 'MyAppNameAndVer';
    IdHTTP1.Post('http://mws.amazonservices.ca', PostData);
  finally
    PostData.Free;
  end;
end;