var Trading: TeBayTrading;
Request: TeBayT_AddFixedPriceItemRequestType;
Response: TeBayT_AddFixedPriceItemResponseType;
begin
Trading := InitEBayTrading();
// Create + Zuweisung der ganzen API IDs von eBay + URLs
try
Request := Trading.AddFixedPriceItem.Request;
Request.Item.Site.Value := '
Germany';
Request.Item.ListingType.set_FixedPriceItem;
Request.Item.Title.Value := '
Glaskugel *NEU*';
Request.Item.BuyItNowPrice.Value := 32.50;
// etc. welche (Pflicht-)felder gefüllt werden müssen steht in der API Doku von eBay
// z.B. http://developer.ebay.com/DevZone/XML/docs/Reference/ebay/AddFixedPriceItem.html
Trading.Call;
// Call machen (oder mit Trading.Start gehts auch asynchron)
Response := Trading.AddFixedPriceItem.Response;
if (Response.Ack.is_Success)
or (Response.Ack.is_Warning)
then
begin
Result := Response.ItemID.Value;
// Auktionsnummer zurückgeben
// Hier kann man aus der Response dann (weitere) zurückgegebene Werte auslesen
end;
finally
Trading.Free;
end;
end;
function InitEBayTrading: TeBayTrading;
begin
Result := TeBayTrading.Create(
nil);
//Result.OnError := ...;
Result.Session.DevID := ...;
Result.Session.AppID := ...;
Result.Session.CertID := ...;
Result.Session.SiteID := 77;
// deutsche eBay Seite
Result.Session.Token := ...;
Result.Session.TradingURL := ...;
// siehe eBay Doku für Sandbox/Produktion URLs
Result.Session.ShoppingURL := ...;
// siehe eBay Doku für Sandbox/Produktion URLs
// .. weitere URLs
end;