(Visual FoxPro) Shopify Get all products, showing only some attributes

Get all products, showing only some attributes

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loRest
LOCAL lnSuccess
LOCAL loSbJson
LOCAL loJson
LOCAL i
LOCAL lnCount_i
LOCAL lnId
LOCAL lcTitle
LOCAL j
LOCAL lnCount_j
LOCAL lnProduct_id
LOCAL lnPosition
LOCAL lcCreated_at
LOCAL lcUpdated_at
LOCAL lnWidth
LOCAL lnHeight
LOCAL lcSrc
LOCAL k
LOCAL lnCount_k
LOCAL lnIntVal

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

loRest.SetAuthBasic("SHOPIFY_PRIVATE_API_KEY","SHOPIFY_PRIVATE_API_KEY")

lnSuccess = loRest.Connect("chilkat.myshopify.com",443,1,1)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbJson = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("GET","/admin/products.json?fields=id,images,title",loSbJson)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loSbJson
    CANCEL
ENDIF

IF (loRest.ResponseStatusCode <> 200) THEN
    ? "Received error response code: " + STR(loRest.ResponseStatusCode)
    ? "Response body:"
    ? loSbJson.GetAsString()
    RELEASE loRest
    RELEASE loSbJson
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSbJson)

* The following code parses the JSON response.
* A sample JSON response is shown below the sample code.

i = 0
lnCount_i = loJson.SizeOfArray("products")
DO WHILE i < lnCount_i
    loJson.I = i
    lnId = loJson.IntOf("products[i].id")
    lcTitle = loJson.StringOf("products[i].title")
    j = 0
    lnCount_j = loJson.SizeOfArray("products[i].images")
    DO WHILE j < lnCount_j
        loJson.J = j
        lnId = loJson.IntOf("products[i].images[j].id")
        lnProduct_id = loJson.IntOf("products[i].images[j].product_id")
        lnPosition = loJson.IntOf("products[i].images[j].position")
        lcCreated_at = loJson.StringOf("products[i].images[j].created_at")
        lcUpdated_at = loJson.StringOf("products[i].images[j].updated_at")
        lnWidth = loJson.IntOf("products[i].images[j].width")
        lnHeight = loJson.IntOf("products[i].images[j].height")
        lcSrc = loJson.StringOf("products[i].images[j].src")
        k = 0
        lnCount_k = loJson.SizeOfArray("products[i].images[j].variant_ids")
        DO WHILE k < lnCount_k
            loJson.K = k
            lnIntVal = loJson.IntOf("products[i].images[j].variant_ids[k]")
            k = k + 1
        ENDDO
        j = j + 1
    ENDDO
    i = i + 1
ENDDO

* 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": [
*       ]
*     }
*   ]
* }

? "Example Completed."

RELEASE loRest
RELEASE loSbJson
RELEASE loJson