(Visual FoxPro) List Google Photos Albums

Demonstrates how to get a list of Google Photos albums.

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

LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loJson
LOCAL i
LOCAL lnCount_i
LOCAL lcId
LOCAL lcTitle
LOCAL lcProductUrl
LOCAL lcMediaItemsCount
LOCAL lcCoverPhotoBaseUrl
LOCAL lcCoverPhotoMediaItemId
LOCAL lnIsWriteable

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* Get the previously obtained access token.
* See Get Google Photos Access Token.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googlePhotos.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loJsonToken
    CANCEL
ENDIF

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

loHttp.AuthToken = loJsonToken.StringOf("access_token")

loResp = loHttp.QuickRequest("GET","https://photoslibrary.googleapis.com/v1/albums")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    CANCEL
ENDIF

* Examine the response status code.  Success is indicated by a status code of 200.
? "response status code: " + STR(loResp.StatusCode)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
RELEASE loResp

* Sample response:
loJson.EmitCompact = 0
? loJson.Emit()

* {
*   "albums": [
*     {
*       "id": "AKcbugFJDPVIW3w4JMTV9hWpjnvK-iHkZwS_FRuIm_jtqektmP7bTpvx27eETfLHOZrSznkt0bR3",
*       "title": "April 23, 2016",
*       "productUrl": "https://photos.google.com/lr/album/AKcbugFJDPVIW3w4JMTV9hWpjnvK-iHkZwS_FRuIm_jtqektmP7bTpvx27eETfLHOZrSznkt0bR3",
*       "mediaItemsCount": "1",
*       "coverPhotoBaseUrl": "https://lh3.googleusercontent.com/lr/AGWb-e6L7ecrCQmp ... uXVvAoTeMwJg",
*       "coverPhotoMediaItemId": "AKcbugHEVyTFgIYb7GzhRFP5KvhBRIIsRcb6Cd4-2ByHzad2oqZnWF2aMPoXY-vfrXmefdTlyF3yZ22Odz6IFLs8pnJlOoVBUg"
*     },
*     {
*       "id": "AKcbugHJ4Zip9WHj_rpS9it133uu753VFffiNg9s0aapPSFAEzEwFxOuCG84OXYgJGclgnt1WqG1",
*       "title": "April 23, 2016",
*       "productUrl": "https://photos.google.com/lr/album/AKcbugHJ4Zip9WHj_rpS9it133uu753VFffiNg9s0aapPSFAEzEwFxOuCG84OXYgJGclgnt1WqG1",
*       "mediaItemsCount": "1",
*       "coverPhotoBaseUrl": "https://lh3.googleusercontent.com/lr/AGWb-e5h7xK6G_baGN6KuuBHG5veLD49Xiaiix0GuTjii ... 7rkIexZj3AAdCA",
*       "coverPhotoMediaItemId": "AKcbugHEVyTFgIYb7GzhRFP5KvhBRIIsRcb6Cd4-2ByHzad2oqZnWF2aMPoXY-vfrXmefdTlyF3yZ22Odz6IFLs8pnJlOoVBUg"
*     },
*     {
*       "id": "AKcbugHaQTvUKSi3M2RQxOhxhdEaLc5mfUcqFoIU_kpQaROyUD70BcFt7_mnz5PcwwsjPKeKnLHN",
*       "title": "animals",
*       "productUrl": "https://photos.google.com/lr/album/AKcbugHaQTvUKSi3M2RQxOhxhdEaLc5mfUcqFoIU_kpQaROyUD70BcFt7_mnz5PcwwsjPKeKnLHN",
*       "isWriteable": true,
*       "coverPhotoBaseUrl": "https://lh3.googleusercontent.com/mL8RRbd0pjFIhHc0A4En4y7ZftwyjZTSp5YWX5j1EyPxX5GepHML"
*     }
*   ]
* }

* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

i = 0
lnCount_i = loJson.SizeOfArray("albums")
DO WHILE i < lnCount_i
    loJson.I = i
    lcId = loJson.StringOf("albums[i].id")
    lcTitle = loJson.StringOf("albums[i].title")
    lcProductUrl = loJson.StringOf("albums[i].productUrl")
    lcMediaItemsCount = loJson.StringOf("albums[i].mediaItemsCount")
    lcCoverPhotoBaseUrl = loJson.StringOf("albums[i].coverPhotoBaseUrl")
    lcCoverPhotoMediaItemId = loJson.StringOf("albums[i].coverPhotoMediaItemId")
    lnIsWriteable = loJson.BoolOf("albums[i].isWriteable")
    i = i + 1
ENDDO

RELEASE loJsonToken
RELEASE loHttp
RELEASE loJson