B4X Requires Chilkat v11.0.0+
B4X
eBay -- Create or Replace Inventory Item (2nd example)
See more eBay Examples
Another example for creating an inventory item, with different data.Chilkat B4X Downloads
Dim success As Boolean = 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:
Dim json As ChilkatJsonObject
json.Initialize
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\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 ")
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:
Log(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=="
Dim accessToken As String = "EBAY_ACCESS_TOKEN"
Dim http As ChilkatHttp
http.Initialize("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".
Dim url As String = "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>
Dim sbAuth As ChilkatStringBuilder
sbAuth.Initialize
sbAuth.Append("Bearer ")
sbAuth.Append(accessToken)
http.SetRequestHeader("Authorization", sbAuth.GetAsString)
http.Accept = "application/json"
http.AllowGzip = False
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("PUT", url, json.Emit, "utf-8", "application/json", resp)
If success = False Then
Log(http.LastErrorText)
Return
End If
Log("Response status code = " & resp.StatusCode)
If http.LastStatus <> 204 Then
Log(resp.BodyStr)
Log("Failed")
Return
End If
' On success (status code = 204), there is no output payload (strResponse will be empty).
Log("Inventory item successfully created.")