我正在尝试通过Delphi调用eBay API。经过Google和StackOverflow的长时间搜索后,我现在可以正常使用“ GeteBayTime”(购物API)和“ findItemsByKeywords”(查找API)。
当我开始使用Trading API进行测试时,我不知道在何处以及如何插入卖方的帐户信息(用户名和密码)。我的第一个用于交易API的程序如下所示,它以API调用“ GetSellingManagerSoldListings”开始。
有人可以告诉我一些使Trading API正常工作的线索吗?并且是否需要将其他任何内容添加到HTTP.header或Paramters?
谢谢。
procedure TForm1.btnEBayGetSoldListClick(Sender: TObject);
var
sURL, sResponse, sEndpoint: String;
jResult: TJSONObject;
sCallName, sSiteID, sVersion: String;
k: Integer;
sParameters: String;
sHeaders: TStringList;
sRequestBody: TStringStream;
begin
// Trading API
sEndpoint := 'https://api.sandbox.ebay.com/ws/api.dll';
sCallName := 'GetSellingManagerSoldListingsRequest';
sSiteID := '15';
sVersion := '967';
sAppID := 'myAppID';
sDevID := 'myDevID';
sToken : 'myToken'; // OAuth Token?
sURL := sEndpoint
+ '?callname=' + sCallName
+ '&siteid=' + '15';
sHeaders := TStringList.Create;
with sHeaders do begin
Add('X-EBAY-API-COMPATIBILITY-LEVEL' + '=' + sVersion);
Add('X-EBAY-API-DEV-NAME' + '=' + sDevID);
Add('X-EBAY-API-APP-NAME' + '=' + sAppID);
Add('X-EBAY-API-CERT-NAME' + '=' + sCertID);
Add('X-EBAY-API-CALL-NAME' + '=' + sCallName);
Add('X-EBAY-API-SITEID' + '=' + sSiteID);
end;
objHTTP.Request.ContentType := 'text/xml';
with objHTTP.Request.CustomHeaders do begin
Clear;
AddStdValues(sHeaders);
end;
sHeaders.Free;
sParameters := '<GetSellingManagerSoldListingsRequest xmlns="urn:ebay:apis:eBLBaseComponents">'
+ ' <RequesterCredentials>'
+ ' <eBayAuthToken>' + sToken + '</eBayAuthToken>'
+ ' <Filter>' + 'PaidNotShipped' + '</Filter>'
+ ' </RequesterCredentials>'
+ '</GetItemTransactionsRequest>';
sRequestBody := TStringStream.Create(sParameters, TEncoding.UTF8);
try
sResponse := objHTTP.Post(sURL, sRequestBody);
memHTML.Lines.Add(sResponse);
memHTML.Lines.Add('');
except
sResponse := objHTTP.ResponseText;
memHTML.Lines.Add(sResponse);
memHTML.Lines.Add('');
end;
end;
答案 0 :(得分:1)
在这里,您可以:完整运行GetSellingManagerSoldListingsRequest SOAP信封:
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<SOAP-ENV:Header>
<NS1:RequesterCredentials xmlns:NS1="urn:ebay:apis:eBLBaseComponents">
<eBayAuthToken xmlns="urn:ebay:apis:eBLBaseComponents">EbayToken</eBayAuthToken>
<NS1:Credentials>
<AppId xmlns="urn:ebay:apis:eBLBaseComponents">xxx</AppId>
<DevId xmlns="urn:ebay:apis:eBLBaseComponents">xxx</DevId>
<AuthCert xmlns="urn:ebay:apis:eBLBaseComponents">xxx</AuthCert>
</NS1:Credentials>
</NS1:RequesterCredentials>
</SOAP-ENV:Header>
<SOAP-ENV:Body>
<GetSellingManagerSoldListingsRequest xmlns="urn:ebay:apis:eBLBaseComponents">
<DetailLevel>ReturnAll</DetailLevel>
<ErrorLanguage>en_GB</ErrorLanguage>
<Version>945</Version>
<Search>
<SearchType>SaleRecordID</SearchType>
<SearchValue>xxx</SearchValue>
</Search>
<Archived>false</Archived>
<SaleDateRange>
<TimeFrom>2018-08-12T17:59:32.939+02:00</TimeFrom>
<TimeTo>2018-11-05T14:59:32.940+01:00</TimeTo>
</SaleDateRange>
</GetSellingManagerSoldListingsRequest>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
您可以省略“搜索”标签以获得完整列表。 大多数交易API请求都以这种方式工作。
在delphi中完成此操作的最简单方法:
只需将WebServices选项卡上的THTTPReqResp而不是TidHTTP放在窗体上,设置URL(THTTPReqResp1.URL)并使用THTTPReqResp1.Execute(const DataMsg:String; Resp:TStream)即可;其中提供了DataMsg SOAP信封,并将响应保存到TStream(例如TStringStream)。在某些情况下,您可能还需要设置InvokeOptions-> soIgnoreInvalidCerts。
尽管可以按照您的方式“组装”请求,但我还是建议使用WSDL向导,导入EBAY WSDL并使用WSDL Pruner Tool 来减少次要的功能(避免“ E2491 Maximum VIRDEF”超出计数;请检查递归”),然后继续使用自动生成的单元。