Pascal (Lazarus/Delphi)

eBay -- Create or Replace Inventory Item

See more eBay Examples

This example shows how to create a new inventory item record or update an existing inventory item record.

See Create or Replace Inventory Item for more REST API details.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.StringBuilder,
  Chilkat.HttpResponse,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  json: TJsonObject;
  accessToken: string;
  http: THttp;
  url: string;
  sbAuth: TStringBuilder;
  resp: THttpResponse;

begin
  success := False;

  //  This example assumes the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  //  This example sends the following sample PUT request to create (or replace) a new inventory item.

  //  PUT https://api.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01
  //  { 
  //  "availability":
  //      { 
  //      "shipToLocationAvailability":
  //          { 
  //          "quantity": 50
  //          }
  //      },
  //  "condition": "NEW",
  //  "product":
  //      { 
  //      "title": "GoPro Hero4 Helmet Cam",
  //      "description": "New GoPro Hero4 Helmet Cam. Unopened box.",
  //      "aspects": {
  //          "Brand" :["GoPro"],
  //          "Type" : ["Helmet/Action"],
  //          "Storage Type" : ["Removable"],
  //          "Recording Definition" : ["High Definition"],
  //          "Media Format" : ["Flash Drive (SSD)"],
  //          "Optical Zoom" : ["10x"]
  //        },
  //      "imageUrls": [
  //          "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg",
  //          "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg",
  //          "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg"
  //        ]
  //      }
  //  }

  //  First, generate the JSON using this code:
  json := TJsonObject.Create;
  json.EmitCompact := False;

  json.UpdateNumber('availability.shipToLocationAvailability.quantity','50');
  json.UpdateString('condition','NEW');
  json.UpdateString('product.title','GoPro Hero4 Helmet Cam');
  json.UpdateString('product.description','New GoPro Hero4 Helmet Cam. Unopened box.');
  json.UpdateString('product.aspects.Brand[0]','GoPro');
  json.UpdateString('product.aspects.Type[0]','Helmet/Action');
  json.UpdateString('product.aspects."Storage Type"[0]','Removable');
  json.UpdateString('product.aspects."Recording Definition"[0]','High Definition');
  json.UpdateString('product.aspects."Media Format"[0]','Flash Drive (SSD)');
  json.UpdateString('product.aspects."Optical Zoom"[0]','10x');
  json.UpdateString('product.imageUrls[0]','http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg');
  json.UpdateString('product.imageUrls[1]','http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg');
  json.UpdateString('product.imageUrls[2]','http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg');

  //  Show the JSON to be sent:
  WriteLn(json.Emit());

  //  Use a previously obtained user token.  The token should look something like this:
  //  "v^1.1#i^1#r^0#p^3#I^3#f^0#t^H4sIAAAAAAAAAOVXa2wUVRTu9k ... 89xuCWYREAAA=="
  accessToken := 'EBAY_ACCESS_TOKEN';

  http := THttp.Create;

  //  This example uses the sandbox.  
  //  Change "api.sandbox.ebay.com" to "api.ebay.com" to use the production system.
  //  Note: The last part of the url is the SKU.  In this URL, the SKU is "GP-Cam-01".
  url := 'https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01';
  json.EmitCompact := True;

  //  Set your Content-Language to whatever is desired.
  http.SetRequestHeader('Content-Language','en-US');

  //  Add our access token to the request, which is a header
  //  having the following format:
  //  Authorization: Bearer <userAccessToken>
  sbAuth := TStringBuilder.Create;
  sbAuth.Append('Bearer ');
  sbAuth.Append(accessToken);
  http.SetRequestHeader('Authorization',sbAuth.GetAsString());

  http.Accept := 'application/json';
  http.AllowGzip := False;

  resp := THttpResponse.Create;
  success := http.HttpStr('PUT',url,json.Emit(),'utf-8','application/json',resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  WriteLn('Response status code = ' + resp.StatusCode);

  if (http.LastStatus <> 204) then
    begin
      WriteLn(resp.BodyStr);
      WriteLn('Failed');
      Exit;
    end;

  //  On success (status code = 204), there is no output payload (strResponse will be empty).
  WriteLn('Inventory item successfully created.');


  json.Free;
  http.Free;
  sbAuth.Free;
  resp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.