EA4D-R : eBay RESTful APIs SDK Objects/Classes for Delphi
With 28 APIs and more than 80 functions, EA4D-R, provide full access to latest eBay RESTful API. eBay APIs (Application Programming Interface) are the front door to eBay's global marketplace platform. They enable your business to expand into new contexts and allow third-party platforms to extend their value proposition. eBay Developers Program membership is free, and you can now use Delphi to interface with eBay RESTful APIs.
Features
With EA4D-R, you can use program resources to build and offer any of the following tools or services:
✓
Selling APIs: create listings, manage inventory, and post-order activities.
✓
Buying APIs: discover inventory and manage checkout and bidding tasks.
✓
Searching APIs: customized interfaces for searching the eBay marketplace.
✓
Affiliate APIs. tools to drive buyers to eBay.
✓
Customer service functionality APIs: feedback, customer communications.
✓
Marketing APIs: promoted listings, coupons, discounts, and item promotions.
✓
All Objects/Classes are available for Delphi 10.3 to Alexandria 11.3.
✓
No external library, this is pure x86/x64 Delphi Pascal (VCL only).
✓
With more than 120000 lines, the source code is also provided through SVN for snappy updates, previews and more
✓
Post-Order API, manually mapped, is an extra add-on.
EA4D-R Site Licence For unlimited Developers, Company wide For Delphi 10.3 to Alexandria 11.3
1399€
Subscription for one year with : - SVN read access - Free support (latest version)
EA4D-R Post-Order API add-on.
499€
Subscription for one year with : - SVN read access - Free support (latest version)
Getting eBay's SandBox current user email (Identity API) (Tutorial01, Session File Editor provided)
begin var Status := eBayR.Types.Status(nil); var Params := eBayR.API.Identity.GetUser.Parameters; var Response := eBayR.API.Identity.getUser.Call(UserSession, Params, nil, Status); if Assigned(Response) and (Status.Code < 300) then ShowMessage(Response.Fusername + ' : ' + Response.FindividualAccount.Femail) else if assigned(Status.Ferrors) then ShowMessage(TError(Status.Ferrors[0]).FMessage); Response.Free; Params.Free; Status.Free; end;
Doing an "apple" search on eBay's SandBox (Browse API) (Tutorial04, Session File Editor provided)
Memo1.clear; var Status := eBayR.Types.Status(nil); var Params := eBayR.API.Browse.search.Parameters; Params.Query.Items['q'].Value := 'apple'; Params.Query.Items['auto_correct'].Value := 'KEYWORD'; Params.Query.Items['limit'].Value := 100; var Response := eBayR.API.Browse.search.Call(UserSession, Params, nil, Status); if Status.Ferrors = nil then begin if Response.FitemSummaries <> nil then for var ItemSummary in Response.FitemSummaries do begin var Item := TItemSummary(ItemSummary); var Line := Item.Ftitle + ' : ' + Item.Fprice.Fvalue + Item.Fprice.Fcurrency; Memo1.Lines.add(Line); end; end; FreeAndNil(Response); FreeAndNil(Params); FreeAndNil(Status);
