|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual FoxPro) eBay -- Create or Replace Inventory Item (2nd example)Another example for creating an inventory item, with different data.
LOCAL loJson LOCAL lcAccessToken LOCAL loHttp LOCAL lcUrl LOCAL loSbAuth LOCAL lcStrResponse * 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: * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJson = CreateObject('Chilkat.JsonObject') loJson.EmitCompact = 0 loJson.UpdateString("product.title","Test listing - do not bid or buy - awesome Apple watch test 2") loJson.UpdateString("product.aspects.Feature[0]","Water resistance") loJson.UpdateString("product.aspects.Feature[1]","GPS") loJson.UpdateString("product.aspects.CPU[0]","Dual-Core Processor") loJson.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 ") loJson.UpdateString("product.upc[0]","888462079525") loJson.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") loJson.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") loJson.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") loJson.UpdateString("condition","NEW") loJson.UpdateNumber("packageWeightAndSize.dimensions.height","5") loJson.UpdateNumber("packageWeightAndSize.dimensions.length","10") loJson.UpdateNumber("packageWeightAndSize.dimensions.width","15") loJson.UpdateString("packageWeightAndSize.dimensions.unit","INCH") loJson.UpdateString("packageWeightAndSize.packageType","MAILING_BOX") loJson.UpdateNumber("packageWeightAndSize.weight.value","2") loJson.UpdateString("packageWeightAndSize.weight.unit","POUND") loJson.UpdateNumber("availability.shipToLocationAvailability.quantity","10") * Show the JSON to be sent: ? loJson.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==" lcAccessToken = "EBAY_ACCESS_TOKEN" * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http') loHttp = 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". lcUrl = "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/AppleWatch" loJson.EmitCompact = 1 * Set your Content-Language to whatever is desired. loHttp.SetRequestHeader("Content-Language","en-US") * Add our access token to the request, which is a header * having the following format: * Authorization: Bearer <userAccessToken> * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbAuth = CreateObject('Chilkat.StringBuilder') loSbAuth.Append("Bearer ") loSbAuth.Append(lcAccessToken) loHttp.SetRequestHeader("Authorization",loSbAuth.GetAsString()) loHttp.Accept = "application/json" loHttp.AllowGzip = 0 lcStrResponse = loHttp.PutText(lcUrl,loJson.Emit(),"utf-8","application/json",0,0) IF (loHttp.LastMethodSuccess <> 1) THEN ? loHttp.LastErrorText RELEASE loJson RELEASE loHttp RELEASE loSbAuth CANCEL ENDIF ? "Response status code = " + STR(loHttp.LastStatus) IF (loHttp.LastStatus <> 204) THEN ? lcStrResponse ? "Failed" RELEASE loJson RELEASE loHttp RELEASE loSbAuth CANCEL ENDIF * On success (status code = 204), there is no output payload (strResponse will be empty). ? "Inventory item successfully created." RELEASE loJson RELEASE loHttp RELEASE loSbAuth |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.