Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

Xojo Plugin Web API Examples

Primary Categories

AWS Translate
Azure Maps
Azure OAuth2
Azure Storage Accounts
CardConnect
Cloudfare
Facebook
GeoOp
Jira
Magento
Microsoft Calendar
Microsoft Group
Microsoft Tasks and Plans

PayPal
Peoplevox
Populi
QuickBooks
SOAP finkok.com
Shopify
Stripe
SugarCRM
Trello
Twitter
VoiceBase
Walmart
Xero
eBay
effectconnect

 

 

 

(Xojo Plugin) Shopify Get all products, showing only some attributes

Get all products, showing only some attributes

Chilkat Xojo Plugin Download

Xojo Plugin for Windows, Linux, Mac OS X, and ARM

Dim rest As New Chilkat.Rest
Dim success As Boolean

success = rest.SetAuthBasic("SHOPIFY_PRIVATE_API_KEY","SHOPIFY_PRIVATE_API_KEY")

success = rest.Connect("chilkat.myshopify.com",443,True,True)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim sbJson As New Chilkat.StringBuilder
success = rest.FullRequestNoBodySb("GET","/admin/products.json?fields=id,images,title",sbJson)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

If (rest.ResponseStatusCode <> 200) Then
    System.DebugLog("Received error response code: " + Str(rest.ResponseStatusCode))
    System.DebugLog("Response body:")
    System.DebugLog(sbJson.GetAsString())
    Return
End If

Dim json As New Chilkat.JsonObject
success = json.LoadSb(sbJson)

// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.
Dim i As Int32
Dim count_i As Int32
Dim id As Int32
Dim title As String
Dim j As Int32
Dim count_j As Int32
Dim product_id As Int32
Dim position As Int32
Dim created_at As String
Dim updated_at As String
Dim width As Int32
Dim height As Int32
Dim src As String
Dim k As Int32
Dim count_k As Int32
Dim intVal As Int32

i = 0
count_i = json.SizeOfArray("products")
While i < count_i
    json.I = i
    id = json.IntOf("products[i].id")
    title = json.StringOf("products[i].title")
    j = 0
    count_j = json.SizeOfArray("products[i].images")
    While j < count_j
        json.J = j
        id = json.IntOf("products[i].images[j].id")
        product_id = json.IntOf("products[i].images[j].product_id")
        position = json.IntOf("products[i].images[j].position")
        created_at = json.StringOf("products[i].images[j].created_at")
        updated_at = json.StringOf("products[i].images[j].updated_at")
        width = json.IntOf("products[i].images[j].width")
        height = json.IntOf("products[i].images[j].height")
        src = json.StringOf("products[i].images[j].src")
        k = 0
        count_k = json.SizeOfArray("products[i].images[j].variant_ids")
        While k < count_k
            json.K = k
            intVal = json.IntOf("products[i].images[j].variant_ids[k]")
            k = k + 1
        Wend
        j = j + 1
    Wend
    i = i + 1
Wend

// A sample JSON response body that is parsed by the above code:

// {
//   "products": [
//     {
//       "id": 632910392,
//       "title": "IPod Nano - 8GB",
//       "images": [
//         {
//           "id": 850703190,
//           "product_id": 632910392,
//           "position": 1,
//           "created_at": "2017-09-22T14:08:02-04:00",
//           "updated_at": "2017-09-22T14:08:02-04:00",
//           "width": 123,
//           "height": 456,
//           "src": "https:\/\/cdn.shopify.com\/s\/files\/1\/0006\/9093\/3842\/products\/ipod-nano.png?v=1506103682",
//           "variant_ids": [
//           ]
//         },
//         {
//           "id": 562641783,
//           "product_id": 632910392,
//           "position": 2,
//           "created_at": "2017-09-22T14:08:02-04:00",
//           "updated_at": "2017-09-22T14:08:02-04:00",
//           "width": 123,
//           "height": 456,
//           "src": "https:\/\/cdn.shopify.com\/s\/files\/1\/0006\/9093\/3842\/products\/ipod-nano-2.png?v=1506103682",
//           "variant_ids": [
//             808950810
//           ]
//         }
//       ]
//     },
//     {
//       "id": 921728736,
//       "title": "IPod Touch 8GB",
//       "images": [
//       ]
//     }
//   ]
// }

System.DebugLog("Example Completed.")

 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.