Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
eBay -- Create or Replace Inventory Item (2nd example)
See more eBay Examples
Another example for creating an inventory item, with different data.Chilkat Pascal (Lazarus/Delphi) Downloads
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.
// {
// "product": {
// "title": "Test listing - do not bid or buy - awesome Apple watch test 2",
// "aspects": {
// "Feature" : ["Water resistance", "GPS"],
// "CPU" : ["Dual-Core Processor"]
// },
// "description": "Test listing - do not bid or buy \n Built-in GPS. Water resistance to 50 meters.1 A new lightning-fast dual-core processor. And a display that\u2019s two times brighter than before. Full of features that help you stay active, motivated, and connected, Apple Watch Series 2 is designed for all the ways you move ",
// "upc": ["888462079525"],
// "imageUrls": [
// "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/S/1/S1/42/S1-42-alu-silver-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758975",
// "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/stainless/42-stainless-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247760390",
// "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/ceramic/42-ceramic-sport-cloud-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758007"
// ]
// },
// "condition": "NEW",
// "packageWeightAndSize": {
// "dimensions": {
// "height": 5,
// "length": 10,
// "width": 15,
// "unit": "INCH"
// },
// "packageType": "MAILING_BOX",
// "weight": {
// "value": 2,
// "unit": "POUND"
// }
// },
// "availability": {
// "shipToLocationAvailability": {
// "quantity": 10
// }
// }
// }
// First, generate the JSON using this code:
json := TJsonObject.Create;
json.EmitCompact := False;
json.UpdateString('product.title','Test listing - do not bid or buy - awesome Apple watch test 2');
json.UpdateString('product.aspects.Feature[0]','Water resistance');
json.UpdateString('product.aspects.Feature[1]','GPS');
json.UpdateString('product.aspects.CPU[0]','Dual-Core Processor');
json.UpdateString('product.description','Test listing - do not bid or buy\' + #10 + ' Built-in GPS. Water resistance to 50 meters.1 A new lightning-fast dual-core processor. And a display that�s two times brighter than before. Full of features that help you stay active, motivated, and connected, Apple Watch Series 2 is designed for all the ways you move ');
json.UpdateString('product.upc[0]','888462079525');
json.UpdateString('product.imageUrls[0]','http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/S/1/S1/42/S1-42-alu-silver-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758975');
json.UpdateString('product.imageUrls[1]','http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/stainless/42-stainless-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247760390');
json.UpdateString('product.imageUrls[2]','http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/ceramic/42-ceramic-sport-cloud-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758007');
json.UpdateString('condition','NEW');
json.UpdateNumber('packageWeightAndSize.dimensions.height','5');
json.UpdateNumber('packageWeightAndSize.dimensions.length','10');
json.UpdateNumber('packageWeightAndSize.dimensions.width','15');
json.UpdateString('packageWeightAndSize.dimensions.unit','INCH');
json.UpdateString('packageWeightAndSize.packageType','MAILING_BOX');
json.UpdateNumber('packageWeightAndSize.weight.value','2');
json.UpdateString('packageWeightAndSize.weight.unit','POUND');
json.UpdateNumber('availability.shipToLocationAvailability.quantity','10');
// 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 "AppleWatch".
url := 'https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/AppleWatch';
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.