(Delphi DLL) eBay -- Create or Replace Inventory Item (2nd example)

Another example for creating an inventory item, with different data.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
json: HCkJsonObject;
accessToken: PWideChar;
http: HCkHttp;
url: PWideChar;
sbAuth: HCkStringBuilder;
strResponse: PWideChar;

begin
// 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 := CkJsonObject_Create();
CkJsonObject_putEmitCompact(json,False);

CkJsonObject_UpdateString(json,'product.title','Test listing - do not bid or buy - awesome Apple watch test 2');
CkJsonObject_UpdateString(json,'product.aspects.Feature[0]','Water resistance');
CkJsonObject_UpdateString(json,'product.aspects.Feature[1]','GPS');
CkJsonObject_UpdateString(json,'product.aspects.CPU[0]','Dual-Core Processor');
CkJsonObject_UpdateString(json,'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 thats 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 ');
CkJsonObject_UpdateString(json,'product.upc[0]','888462079525');
CkJsonObject_UpdateString(json,'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');
CkJsonObject_UpdateString(json,'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');
CkJsonObject_UpdateString(json,'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');
CkJsonObject_UpdateString(json,'condition','NEW');
CkJsonObject_UpdateNumber(json,'packageWeightAndSize.dimensions.height','5');
CkJsonObject_UpdateNumber(json,'packageWeightAndSize.dimensions.length','10');
CkJsonObject_UpdateNumber(json,'packageWeightAndSize.dimensions.width','15');
CkJsonObject_UpdateString(json,'packageWeightAndSize.dimensions.unit','INCH');
CkJsonObject_UpdateString(json,'packageWeightAndSize.packageType','MAILING_BOX');
CkJsonObject_UpdateNumber(json,'packageWeightAndSize.weight.value','2');
CkJsonObject_UpdateString(json,'packageWeightAndSize.weight.unit','POUND');
CkJsonObject_UpdateNumber(json,'availability.shipToLocationAvailability.quantity','10');

// Show the JSON to be sent:
Memo1.Lines.Add(CkJsonObject__emit(json));

// 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 := CkHttp_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';
CkJsonObject_putEmitCompact(json,True);

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

// Add our access token to the request, which is a header
// having the following format:
// Authorization: Bearer <userAccessToken>
sbAuth := CkStringBuilder_Create();
CkStringBuilder_Append(sbAuth,'Bearer ');
CkStringBuilder_Append(sbAuth,accessToken);
CkHttp_SetRequestHeader(http,'Authorization',CkStringBuilder__getAsString(sbAuth));

CkHttp_putAccept(http,'application/json');
CkHttp_putAllowGzip(http,False);

strResponse := CkHttp__putText(http,url,CkJsonObject__emit(json),'utf-8','application/json',False,False);
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('Response status code = ' + IntToStr(CkHttp_getLastStatus(http)));

if (CkHttp_getLastStatus(http) <> 204) then
  begin
    Memo1.Lines.Add(strResponse);
    Memo1.Lines.Add('Failed');
    Exit;
  end;

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

CkJsonObject_Dispose(json);
CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbAuth);

end;