Ошибка сокета при использовании MWS SubmitFeed в Delphi с использованием TIdHTTP

Question

Я создаю приложение в Delphi 2006 для интеграции с Amazon MWS API, но получаю отказ в соединении Socket Error 10061.

Вот мой код Delphi:

// pull out url end point - in my case mws-eu.amazonservices.com:443
url := '';
url := getOption('URL');
if url='' then LogMessage('DEV','No Amazon URL in INI file! ', true);

request := TStringList.Create;

// add standard required fields
//request.Add('Marketplace='+getOption('Marketplace')); 
request.Add('Action='+action);
request.Add('AWSAccessKeyId='+getOption('AWSAccessKeyId'));
//request.Add('MWSAuthToken='+getOption('MWSAuthToken')); 

//request.Add('Merchant='+getOption('SellerId'));
request.Add('SellerId='+getOption('SellerId'));
request.Add('SignatureMethod='+getOption('SignatureMethod')); // HmacSHA256
request.Add('SignatureVersion='+getOption('SignatureVersion')); // 2

request.Add('Version='+getOption('Version')); // not sure where this comes from or whether its common to all calls ?? Version=2009-01-01

// add request specific params (these are sent in to this function)
for loop := 0 to params.Count-1 do
begin
request.Add(paramsloop);
end;

// add timestamp
d:=Now;
dt:=FormatDateTime('yyyy-mm-dd"T"hh:mm:ss"Z"',d);
request.Add('Timestamp='+dt);

// call our custom sort method
LogMessage('DEV','Before='+request.GetText, false);
request.CustomSort(StringListCompareLogical);
LogMessage('DEV','After='+request.GetText, false);

// encode the params as per MWS
stringResult:=MWSEncodeParams(request);
LogMessage('DEV','result:'+stringResult, false);

stringToSign := 'POST' + char(10);
stringToSign := stringToSign + url + char(10);
stringToSign := stringToSign + '/' + char(10);
stringToSign := stringToSign + stringResult;

LogMessage('DEV','stringToSign:'+stringToSign, false);

// call sha method in DLL encrypter
uPugwash.getSH256_HMAC(getOption('SecretKey'),stringResult,True,Signature);
// add result to request as signature
request.Add('Signature='+Signature);
stringResult:=stringResult+'&Signature='+Signature;

// call md5 method in DLL encrypter
uPugwash.getMD5(requestBody,true,MD5) ;

LogMessage('DEV','output signature: '+Signature, true);
LogMessage('DEV','output md5: '+MD5, true);
lHTTP := TIdHTTP.Create(nil);

lIOHandler:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
lIOHandler.Port := 443; // lIOHandler.Port := 25;

try
lHTTP.IOHandler := lIOHandler;
lHTTP.ConnectTimeout:=5000;
lHTTP.HandleRedirects := True;
lHTTP.ReadTimeout := 20000;
lHTTP.Request.Method := 'POST';
lHTTP.Request.AcceptCharSet := 'UTF-8';
lHTTP.Request.ContentType := 'text/xml';
//lHTTP.Request.ContentType:='application/x-www-form-urlencoded';
lHTTP.Request.ContentEncoding := 'utf-8';
lHTTP.Request.UserAgent := 'POS Amazon Web Integration/'+getOption('posVersion')+' (Language=Delphi/2006; Customer='+getOption('Customer')+')';
lHTTP.Request.Host := url;
lHTTP.Request.CustomHeaders.Add('X-Amazon-User-Agent: '+lHTTP.Request.UserAgent);
lHTTP.Request.CustomHeaders.Add('Content-MD5: '+MD5);
lHTTP.Request.Accept:='text/plain, */*';
lHTTP.ProtocolVersion:=pv1_1;
lHTTP.HTTPOptions:=lHTTP.HTTPOptions+hoKeepOrigProtocol-hoForceEncodeParams;

RBody := TStringStream.Create(requestBody); // this is my feed xml
RBody.Seek(0,0);

LogMessage('DEV','request body:'+requestBody, false);
LogMessage('DEV','request url:'+stringResult, false);

fullURL := 'https://'+url+'?'+stringResult; // this is url with required parameters on end
LogMessage('DEV','fullURL:'+fullURL, false);

// make actual call
rawResp := lHTTP.POST(fullURL,RBody); // falls over here with socket exception

Выше я предполагал, что нормальные параметры отправляются в URL, а XML отправляется в теле.

Любые указатели на то, где я могу пойти не так, будут очень благодарны.

Спасибо!

Answer 1

Я также много боролся с веб-сервисами Indy и Amazon. Конкретная ошибка, которую вы получаете, это ошибка winsock:

WSAECONNREFUSED
10061
Соединение отклонено. Соединение не может быть установлено, потому что целевой компьютер активно отказался Обычно это происходит из-за попытки подключиться к службе, которая неактивна на внешнем хосте, то есть к той, на которой не запущено приложение сервера.

Согласно моему опыту, ошибка может произойти из-за нескольких вещей:

1. Неправильный адрес сервера или неправильный порт - проверьте URL и порт для службы. Убедитесь, что они верны (я не эксперт в MWS, поэтому не могу вам с этим помочь)

2. Некоторые брандмауэры на стороне клиента блокируют запрос - попробуйте отключить все виды брандмауэра и повторите запрос

3. Очень нестабильное интернет-соединение на стороне клиента может вызвать эту ошибку

В общем, я бы не советовал вам использовать Indy, так как я видел, как он терпел неудачу во многих ситуациях. Я обнаружил, что WinHTTP API, хотя и немного более сложный, более стабильный.

Надеюсь, что это поможет.