Visual FoxPro

List Google Photos Albums

See more Google Photos Examples

Demonstrates how to get a list of Google Photos albums. Visual FoxPro

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

lnSuccess = 0

*  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.

loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googlePhotos.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp = CreateObject('Chilkat.Http')

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

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://photoslibrary.googleapis.com/v1/albums",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

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

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)

*  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 loResp
RELEASE loJson