EA4D - eBay APIs for Delphi

EA4D-R

eBay's RESTfull APIs SDK 

Classes for Delphi 10.3 to 12.2 VCL & FMX


With 30 APIs and more than 280 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

EA4D  eBay RESTful APIs for Delphi

Features

APIs 30 APIs and 280 functions for buying, selling, commerce, marketing, analytics, and more...
Classes available for Delphi 10.3 to Athens 12.1
No external library this is pure x86/x64 Delphi Pascal
Code with more than 120000 lines, the source code is provided through SVN for snappy updates, previews and more...
Post-Order API
EA4D-X
manually mapped, is an extra add-on which implement self-service flows that process order cancellations and item returns

Delphi Examples

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);

Releases

>> SVN Repository <<

Start Now

Free EA4D-Traditional APIs
Trial Edition, Fully Fledged,
SandBox & Production worldwide
For Delphi 6 to 11.3
NO REGISTRATION 
Free Support !
> Works in IDE only <

Get Started