Visual FoxPro

Shopify Get all products, showing only some attributes

See more Shopify Examples

Get all products, showing only some attributes Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
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

lnSuccess = 0

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

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

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