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 - Get All ProductsRetrieve a list of all product objects from this shop. For more information, see https://developers.lightspeedhq.com/ecom/endpoints/product/#get-all-products
' 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 https://api.shoplightspeed.com/en/products.json \ ' -u {key}:{secret} ' 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 the correct cluster for your shop. Here are the choices: ' eu1 https://api.webshopapp.com/en/ ' us1 https://api.shoplightspeed.com/en/ Dim sbResponseBody As New ChilkatStringBuilder success = http.QuickGetSb("https://api.webshopapp.com/en/products.json",sbResponseBody) If (success = 0) Then Debug.Print http.LastErrorText Exit Sub End If 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 = http.LastStatus Debug.Print "Response Status Code = " & respStatusCode If (respStatusCode >= 400) Then Debug.Print "Response Header:" Debug.Print http.LastHeader Debug.Print "Failed." Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "product": { ' "id": 20967267, ' "createdAt": "2019-05-28T15:25:46+00:00", ' "updatedAt": "2019-05-28T17:16:16+00:00", ' "isVisible": true, ' "visibility": "visible", ' "hasMatrix": false, ' "data01": "", ' "data02": "", ' "data03": "", ' "url": "lookin-sharp-tee", ' "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": { ' "id": 2785, ' "createdAt": "2019-05-28T15:32:12+00:00", ' "updatedAt": "2019-05-28T15:42:59+00:00", ' "name": "Shirts", ' "options": [ ' { ' "id": 4626, ' "sortOrder": 1, ' "name": "Size", ' "values": [ ' { ' "id": 14045, ' "sortOrder": 1, ' "name": "S" ' }, ' { ' "id": 14046, ' "sortOrder": 2, ' "name": "M" ' }, ' { ' "id": 14047, ' "sortOrder": 3, ' "name": "L" ' } ' ] ' } ' ] ' }, ' "brand": { ' "resource": { ' "id": 1171202, ' "url": "brands/1171202", ' "link": "https://api.shoplightspeed.com/us/brands/1171202.json" ' } ' }, ' "categories": { ' "resource": { ' "id": false, ' "url": "categories/products?product=20967267", ' "link": "https://api.shoplightspeed.com/us/categories/products.json?product=20967267" ' } ' }, ' "deliverydate": { ' "resource": { ' "id": 6488, ' "url": "deliverydates/6488", ' "link": "https://api.shoplightspeed.com/us/deliverydates/6488.json" ' } ' }, ' "image": { ' "createdAt": "2019-05-28T15:25:46+00:00", ' "updatedAt": "2019-05-28T15:25:46+00:00", ' "extension": "jpg", ' "size": 86649, ' "title": "17x35x-jcfk-88na-udwd-5hck-z63u-img-16-e0aa4f57-f4", ' "thumb": "https://cdn.shoplightspeed.com/shops/000001/files/14119398/50x50x2/17x35x-jcfk-88na-udwd-5hck-z63u-img-16-e0aa4f57-f4.jpg", ' "src": "https://cdn.shoplightspeed.com/shops/000001/files/14119398/17x35x-jcfk-88na-udwd-5hck-z63u-img-16-e0aa4f57-f4.jpg" ' }, ' "images": { ' "resource": { ' "id": false, ' "url": "products/20967267/images", ' "link": "https://api.shoplightspeed.com/us/products/20967267/images.json" ' } ' }, ' "relations": { ' "resource": { ' "id": false, ' "url": "products/20967267/relations", ' "link": "https://api.shoplightspeed.com/us/products/20967267/relations.json" ' } ' }, ' "metafields": { ' "resource": { ' "id": false, ' "url": "products/20967267/metafields", ' "link": "https://api.shoplightspeed.com/us/products/20967267/metafields.json" ' } ' }, ' "reviews": { ' "resource": { ' "id": false, ' "url": "reviews?product=20967267", ' "link": "https://api.shoplightspeed.com/us/reviews.json?product=20967267" ' } ' }, ' "type": false, ' "attributes": { ' "resource": { ' "id": false, ' "url": "products/20967267/attributes", ' "link": "https://api.shoplightspeed.com/us/products/20967267/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=20967267", ' "link": "https://api.shoplightspeed.com/us/tags/products.json?product=20967267" ' } ' }, ' "variants": { ' "resource": { ' "id": false, ' "url": "variants?product=20967267", ' "link": "https://api.shoplightspeed.com/us/variants.json?product=20967267" ' } ' }, ' "movements": { ' "resource": { ' "id": false, ' "url": "variants/movements?product=20967267", ' "link": "https://api.shoplightspeed.com/us/variants/movements.json?product=20967267" ' } ' } ' } ' } ' 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 id As Long Dim sortOrder As Long Dim name As String Dim j As Long Dim count_j As Long 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 productSetId As Long productSetId = jResp.IntOf("product.set.id") Dim productSetCreatedAt As String productSetCreatedAt = jResp.StringOf("product.set.createdAt") Dim productSetUpdatedAt As String productSetUpdatedAt = jResp.StringOf("product.set.updatedAt") Dim productSetName As String productSetName = jResp.StringOf("product.set.name") 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 productImageCreatedAt As String productImageCreatedAt = jResp.StringOf("product.image.createdAt") Dim productImageUpdatedAt As String productImageUpdatedAt = jResp.StringOf("product.image.updatedAt") Dim productImageExtension As String productImageExtension = jResp.StringOf("product.image.extension") Dim productImageSize As Long productImageSize = jResp.IntOf("product.image.size") Dim productImageTitle As String productImageTitle = jResp.StringOf("product.image.title") Dim productImageThumb As String productImageThumb = jResp.StringOf("product.image.thumb") Dim productImageSrc As String productImageSrc = jResp.StringOf("product.image.src") Dim productImagesResourceId As Long productImagesResourceId = jResp.BoolOf("product.images.resource.id") Dim productImagesResourceUrl As String productImagesResourceUrl = jResp.StringOf("product.images.resource.url") Dim productImagesResourceLink As String productImagesResourceLink = jResp.StringOf("product.images.resource.link") 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") Dim i As Long i = 0 Dim count_i As Long count_i = jResp.SizeOfArray("product.set.options") Do While i < count_i jResp.I = i id = jResp.IntOf("product.set.options[i].id") sortOrder = jResp.IntOf("product.set.options[i].sortOrder") name = jResp.StringOf("product.set.options[i].name") j = 0 count_j = jResp.SizeOfArray("product.set.options[i].values") Do While j < count_j jResp.J = j id = jResp.IntOf("product.set.options[i].values[j].id") sortOrder = jResp.IntOf("product.set.options[i].values[j].sortOrder") name = jResp.StringOf("product.set.options[i].values[j].name") j = j + 1 Loop i = i + 1 Loop |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.