Похоже, вы не читали внимательно Документация по EBAY API и Неправильно работает веб-служба xxx
настроен или не найден и отключен.
в соответствии с предоставлением ссылки для звонков SOAP.
Вы называете CallName как:
sCallName := 'GetSellingManagerSoldListingsRequest';
но должно быть:
sCallName := 'GetSellingManagerSoldListings';
Также я думаю, что вместо try ... кроме того, что вы должны использовать try ... finally блок (или оба).
Подумайте, что произойдет, если возникнет исключение во время вашего звонка:
var
sResponseBody: TStringStream;
begin
...
sResponseBody := TStringStream.Create();
try
objHttpReqResp.Execute(sXML, sResponseBody);
xDoc := TXMLDocument.Create(nil);
xDoc.LoadFromStream(sResponseBody);
xDoc.SaveToFile('XML_Output.txt');
memHTML.Lines.LoadFromFile('XML_Output.txt');
memHTML.Lines.Add('');
memHTML.Lines.Add(objHttpReqResp.URL);
memHTML.Lines.Add('');
except
memHTML.Lines.Add('Error happened!');
memHTML.Lines.Add('');
end;
sResponseBody.Free;
эта строка:
sResponseBody.Free;
никогда не будет выполнен, что приведет к утечке памяти ...
Я не думаю, что Ты "тупой программист", но ясно видно, что Ты неопытный:)
Переполнение стека - это глоссарий, а не дискуссионный форум, и вы должны это учитывать. Я настоятельно рекомендую вам прочитать Как задать раздел , чтобы избежать понижения голосов и "грубых" комментариев и ответов.
Пожалуйста, примите во внимание, что я не агрессивен здесь, вы, вероятно, поняли, что я потратил пару дней, просто пытаясь помочь Вам, и информация, которую вы, наконец, достигли, - это лучший приз, который я мог выиграть там :)
С уважением