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 Basic 6.0) Lightspeed - Create a ProductCreate a new product based on the given parameters. For more information, see https://developers.lightspeedhq.com/ecom/endpoints/product/#post-create-a-product
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New ChilkatHttp Dim success As Long ' Implements the following CURL command: ' curl -u API_KEY:API_SECRET \ ' -H "Content-Type: application/json" \ ' -X POST \ ' -d '{ ' "product": { ' "visibility": "visible", ' "data01": "", ' "data02": "", ' "data03": "", ' "title": "Lookin Sharp T-Shirt", ' "fulltitle": "Lookin Sharp T-Shirt", ' "description": "Description of the Lookin Sharp T-Shirt", ' "content": "Long Description of the Lookin Sharp T-Shirt", ' "deliverydate": 6488, ' "supplier": 78794, ' "brand": 1171202 ' } ' }' \ ' "https://api.webshopapp.com/en/products.json" ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code http.Login = "API_KEY" http.Password = "API_SECRET" ' Use this online tool to generate code from sample JSON: ' Generate Code to Create JSON ' The following JSON is sent in the request body. ' { ' "product": { ' "visibility": "visible", ' "data01": "", ' "data02": "", ' "data03": "", ' "title": "Lookin Sharp T-Shirt", ' "fulltitle": "Lookin Sharp T-Shirt", ' "description": "Description of the Lookin Sharp T-Shirt", ' "content": "Long Description of the Lookin Sharp T-Shirt", ' "deliverydate": 6488, ' "supplier": 78794, ' "brand": 1171202 ' } ' } Dim json As New ChilkatJsonObject success = json.UpdateString("product.visibility","visible") success = json.UpdateString("product.data01","") success = json.UpdateString("product.data02","") success = json.UpdateString("product.data03","") success = json.UpdateString("product.title","Lookin Sharp T-Shirt") success = json.UpdateString("product.fulltitle","Lookin Sharp T-Shirt") success = json.UpdateString("product.description","Description of the Lookin Sharp T-Shirt") success = json.UpdateString("product.content","Long Description of the Lookin Sharp T-Shirt") success = json.UpdateInt("product.deliverydate",6488) success = json.UpdateInt("product.supplier",78794) success = json.UpdateInt("product.brand",1171202) http.SetRequestHeader "Content-Type","application/json" ' Use the correct cluster for your shop. Here are the choices: ' eu1 https://api.webshopapp.com/en/ ' us1 https://api.shoplightspeed.com/en/ Dim resp As ChilkatHttpResponse Set resp = http.PostJson3("https://api.webshopapp.com/en/products.json","application/json",json) If (http.LastMethodSuccess = 0) Then Debug.Print http.LastErrorText Exit Sub End If Dim sbResponseBody As New ChilkatStringBuilder success = resp.GetBodySb(sbResponseBody) Dim jResp As New ChilkatJsonObject success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = 0 Debug.Print "Response Body:" Debug.Print jResp.Emit() Dim respStatusCode As Long respStatusCode = resp.StatusCode Debug.Print "Response Status Code = " & respStatusCode If (respStatusCode >= 400) Then Debug.Print "Response Header:" Debug.Print resp.Header Debug.Print "Failed." Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "product": { ' "id": 20974460, ' "createdAt": "2019-05-28T20:14:26+00:00", ' "updatedAt": "2019-05-28T20:14:26+00:00", ' "isVisible": true, ' "visibility": "visible", ' "hasMatrix": false, ' "data01": "", ' "data02": "", ' "data03": "", ' "url": "lookin-sharp-t-shirt", ' "title": "Lookin' Sharp T-Shirt", ' "fulltitle": "Lookin' Sharp T-Shirt", ' "description": "Description of the Lookin' Sharp T-Shirt", ' "content": "<p>Long Description of the Lookin' Sharp T-Shirt</p>", ' "set": false, ' "brand": { ' "resource": { ' "id": 1171202, ' "url": "brands/1171202", ' "link": "https://api.shoplightspeed.com/us/brands/1171202.json" ' } ' }, ' "categories": { ' "resource": { ' "id": false, ' "url": "categories/products?product=20974460", ' "link": "https://api.shoplightspeed.com/us/categories/products.json?product=20974460" ' } ' }, ' "deliverydate": { ' "resource": { ' "id": 6488, ' "url": "deliverydates/6488", ' "link": "https://api.shoplightspeed.com/us/deliverydates/6488.json" ' } ' }, ' "image": false, ' "images": false, ' "relations": { ' "resource": { ' "id": false, ' "url": "products/20974460/relations", ' "link": "https://api.shoplightspeed.com/us/products/20974460/relations.json" ' } ' }, ' "metafields": { ' "resource": { ' "id": false, ' "url": "products/20974460/metafields", ' "link": "https://api.shoplightspeed.com/us/products/20974460/metafields.json" ' } ' }, ' "reviews": { ' "resource": { ' "id": false, ' "url": "reviews?product=20974460", ' "link": "https://api.shoplightspeed.com/us/reviews.json?product=20974460" ' } ' }, ' "type": false, ' "attributes": { ' "resource": { ' "id": false, ' "url": "products/20974460/attributes", ' "link": "https://api.shoplightspeed.com/us/products/20974460/attributes.json" ' } ' }, ' "supplier": { ' "resource": { ' "id": 78794, ' "url": "suppliers/78794", ' "link": "https://api.shoplightspeed.com/us/suppliers/78794.json" ' } ' }, ' "tags": { ' "resource": { ' "id": false, ' "url": "tags/products?product=20974460", ' "link": "https://api.shoplightspeed.com/us/tags/products.json?product=20974460" ' } ' }, ' "variants": { ' "resource": { ' "id": false, ' "url": "variants?product=20974460", ' "link": "https://api.shoplightspeed.com/us/variants.json?product=20974460" ' } ' }, ' "movements": { ' "resource": { ' "id": false, ' "url": "variants/movements?product=20974460", ' "link": "https://api.shoplightspeed.com/us/variants/movements.json?product=20974460" ' } ' } ' } ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim productId As Long productId = jResp.IntOf("product.id") Dim productCreatedAt As String productCreatedAt = jResp.StringOf("product.createdAt") Dim productUpdatedAt As String productUpdatedAt = jResp.StringOf("product.updatedAt") Dim productIsVisible As Long productIsVisible = jResp.BoolOf("product.isVisible") Dim productVisibility As String productVisibility = jResp.StringOf("product.visibility") Dim productHasMatrix As Long productHasMatrix = jResp.BoolOf("product.hasMatrix") Dim productData01 As String productData01 = jResp.StringOf("product.data01") Dim productData02 As String productData02 = jResp.StringOf("product.data02") Dim productData03 As String productData03 = jResp.StringOf("product.data03") Dim productUrl As String productUrl = jResp.StringOf("product.url") Dim productTitle As String productTitle = jResp.StringOf("product.title") Dim productFulltitle As String productFulltitle = jResp.StringOf("product.fulltitle") Dim productDescription As String productDescription = jResp.StringOf("product.description") Dim productContent As String productContent = jResp.StringOf("product.content") Dim productSet As Long productSet = jResp.BoolOf("product.set") Dim productBrandResourceId As Long productBrandResourceId = jResp.IntOf("product.brand.resource.id") Dim productBrandResourceUrl As String productBrandResourceUrl = jResp.StringOf("product.brand.resource.url") Dim productBrandResourceLink As String productBrandResourceLink = jResp.StringOf("product.brand.resource.link") Dim productCategoriesResourceId As Long productCategoriesResourceId = jResp.BoolOf("product.categories.resource.id") Dim productCategoriesResourceUrl As String productCategoriesResourceUrl = jResp.StringOf("product.categories.resource.url") Dim productCategoriesResourceLink As String productCategoriesResourceLink = jResp.StringOf("product.categories.resource.link") Dim productDeliverydateResourceId As Long productDeliverydateResourceId = jResp.IntOf("product.deliverydate.resource.id") Dim productDeliverydateResourceUrl As String productDeliverydateResourceUrl = jResp.StringOf("product.deliverydate.resource.url") Dim productDeliverydateResourceLink As String productDeliverydateResourceLink = jResp.StringOf("product.deliverydate.resource.link") Dim productImage As Long productImage = jResp.BoolOf("product.image") Dim productImages As Long productImages = jResp.BoolOf("product.images") Dim productRelationsResourceId As Long productRelationsResourceId = jResp.BoolOf("product.relations.resource.id") Dim productRelationsResourceUrl As String productRelationsResourceUrl = jResp.StringOf("product.relations.resource.url") Dim productRelationsResourceLink As String productRelationsResourceLink = jResp.StringOf("product.relations.resource.link") Dim productMetafieldsResourceId As Long productMetafieldsResourceId = jResp.BoolOf("product.metafields.resource.id") Dim productMetafieldsResourceUrl As String productMetafieldsResourceUrl = jResp.StringOf("product.metafields.resource.url") Dim productMetafieldsResourceLink As String productMetafieldsResourceLink = jResp.StringOf("product.metafields.resource.link") Dim productReviewsResourceId As Long productReviewsResourceId = jResp.BoolOf("product.reviews.resource.id") Dim productReviewsResourceUrl As String productReviewsResourceUrl = jResp.StringOf("product.reviews.resource.url") Dim productReviewsResourceLink As String productReviewsResourceLink = jResp.StringOf("product.reviews.resource.link") Dim productType As Long productType = jResp.BoolOf("product.type") Dim productAttributesResourceId As Long productAttributesResourceId = jResp.BoolOf("product.attributes.resource.id") Dim productAttributesResourceUrl As String productAttributesResourceUrl = jResp.StringOf("product.attributes.resource.url") Dim productAttributesResourceLink As String productAttributesResourceLink = jResp.StringOf("product.attributes.resource.link") Dim productSupplierResourceId As Long productSupplierResourceId = jResp.IntOf("product.supplier.resource.id") Dim productSupplierResourceUrl As String productSupplierResourceUrl = jResp.StringOf("product.supplier.resource.url") Dim productSupplierResourceLink As String productSupplierResourceLink = jResp.StringOf("product.supplier.resource.link") Dim productTagsResourceId As Long productTagsResourceId = jResp.BoolOf("product.tags.resource.id") Dim productTagsResourceUrl As String productTagsResourceUrl = jResp.StringOf("product.tags.resource.url") Dim productTagsResourceLink As String productTagsResourceLink = jResp.StringOf("product.tags.resource.link") Dim productVariantsResourceId As Long productVariantsResourceId = jResp.BoolOf("product.variants.resource.id") Dim productVariantsResourceUrl As String productVariantsResourceUrl = jResp.StringOf("product.variants.resource.url") Dim productVariantsResourceLink As String productVariantsResourceLink = jResp.StringOf("product.variants.resource.link") Dim productMovementsResourceId As Long productMovementsResourceId = jResp.BoolOf("product.movements.resource.id") Dim productMovementsResourceUrl As String productMovementsResourceUrl = jResp.StringOf("product.movements.resource.url") Dim productMovementsResourceLink As String productMovementsResourceLink = jResp.StringOf("product.movements.resource.link") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.