Sample code for 30+ languages & platforms
Xbase++ Requires Chilkat v11.0.0+

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

See more eBay Examples

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

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oJson
LOCAL cAccessToken
LOCAL oHttp
LOCAL cUrl
LOCAL oSbAuth
LOCAL oResp

nSuccess := 0

//  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:
oJson := CreateObject("Chilkat.JsonObject")
oJson:EmitCompact := 0

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

//  Show the JSON to be sent:
? oJson: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=="
cAccessToken := "EBAY_ACCESS_TOKEN"

oHttp := CreateObject("Chilkat.Http")

//  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".
cUrl := "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/AppleWatch"
oJson:EmitCompact := 1

//  Set your Content-Language to whatever is desired.
oHttp:SetRequestHeader("Content-Language", "en-US")

//  Add our access token to the request, which is a header
//  having the following format:
//  Authorization: Bearer <userAccessToken>
oSbAuth := CreateObject("Chilkat.StringBuilder")
oSbAuth:Append("Bearer ")
oSbAuth:Append(cAccessToken)
oHttp:SetRequestHeader("Authorization", oSbAuth:GetAsString())

oHttp:Accept := "application/json"
oHttp:AllowGzip := 0

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("PUT", cUrl, oJson:Emit(), "utf-8", "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oJson:destroy()
    oHttp:destroy()
    oSbAuth:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response status code = " + Str(oResp:StatusCode)

IF (oHttp:LastStatus != 204)
    ? oResp:BodyStr
    ? "Failed"
    oJson:destroy()
    oHttp:destroy()
    oSbAuth:destroy()
    oResp:destroy()
    RETURN
ENDIF

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

oJson:destroy()
oHttp:destroy()
oSbAuth:destroy()
oResp:destroy()