PowerBuilder
PowerBuilder
eBay -- Create or Replace Inventory Item (2nd example)
See more eBay Examples
Another example for creating an inventory item, with different data.Chilkat PowerBuilder Downloads
integer li_rc
integer li_Success
oleobject loo_Json
string ls_AccessToken
oleobject loo_Http
string ls_Url
oleobject loo_SbAuth
oleobject loo_Resp
li_Success = 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:
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
destroy loo_Json
MessageBox("Error","Connecting to COM object failed")
return
end if
loo_Json.EmitCompact = 0
loo_Json.UpdateString("product.title","Test listing - do not bid or buy - awesome Apple watch test 2")
loo_Json.UpdateString("product.aspects.Feature[0]","Water resistance")
loo_Json.UpdateString("product.aspects.Feature[1]","GPS")
loo_Json.UpdateString("product.aspects.CPU[0]","Dual-Core Processor")
loo_Json.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 ")
loo_Json.UpdateString("product.upc[0]","888462079525")
loo_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")
loo_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")
loo_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")
loo_Json.UpdateString("condition","NEW")
loo_Json.UpdateNumber("packageWeightAndSize.dimensions.height","5")
loo_Json.UpdateNumber("packageWeightAndSize.dimensions.length","10")
loo_Json.UpdateNumber("packageWeightAndSize.dimensions.width","15")
loo_Json.UpdateString("packageWeightAndSize.dimensions.unit","INCH")
loo_Json.UpdateString("packageWeightAndSize.packageType","MAILING_BOX")
loo_Json.UpdateNumber("packageWeightAndSize.weight.value","2")
loo_Json.UpdateString("packageWeightAndSize.weight.unit","POUND")
loo_Json.UpdateNumber("availability.shipToLocationAvailability.quantity","10")
// Show the JSON to be sent:
Write-Debug loo_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=="
ls_AccessToken = "EBAY_ACCESS_TOKEN"
loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("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".
ls_Url = "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/AppleWatch"
loo_Json.EmitCompact = 1
// Set your Content-Language to whatever is desired.
loo_Http.SetRequestHeader("Content-Language","en-US")
// Add our access token to the request, which is a header
// having the following format:
// Authorization: Bearer <userAccessToken>
loo_SbAuth = create oleobject
li_rc = loo_SbAuth.ConnectToNewObject("Chilkat.StringBuilder")
loo_SbAuth.Append("Bearer ")
loo_SbAuth.Append(ls_AccessToken)
loo_Http.SetRequestHeader("Authorization",loo_SbAuth.GetAsString())
loo_Http.Accept = "application/json"
loo_Http.AllowGzip = 0
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")
li_Success = loo_Http.HttpStr("PUT",ls_Url,loo_Json.Emit(),"utf-8","application/json",loo_Resp)
if li_Success = 0 then
Write-Debug loo_Http.LastErrorText
destroy loo_Json
destroy loo_Http
destroy loo_SbAuth
destroy loo_Resp
return
end if
Write-Debug "Response status code = " + string(loo_Resp.StatusCode)
if loo_Http.LastStatus <> 204 then
Write-Debug loo_Resp.BodyStr
Write-Debug "Failed"
destroy loo_Json
destroy loo_Http
destroy loo_SbAuth
destroy loo_Resp
return
end if
// On success (status code = 204), there is no output payload (strResponse will be empty).
Write-Debug "Inventory item successfully created."
destroy loo_Json
destroy loo_Http
destroy loo_SbAuth
destroy loo_Resp