(Visual FoxPro) Google Photos List Media Items

List all media items from a user's Google Photos library.

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 lcProductUrl
LOCAL lcBaseUrl
LOCAL lcMimeType
LOCAL lcMediaMetadataCreationTime
LOCAL lcMediaMetadataWidth
LOCAL lcMediaMetadataHeight
LOCAL lcMediaMetadataPhotoCameraMake
LOCAL lcMediaMetadataPhotoCameraModel
LOCAL lcMediaMetadataPhotoFocalLength
LOCAL lcMediaMetadataPhotoApertureFNumber
LOCAL lnMediaMetadataPhotoIsoEquivalent
LOCAL lcFilename
LOCAL lcDescription

* 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")

* For more information, see Google Photos List Media Items API Documentation

loResp = loHttp.QuickRequest("GET","https://photoslibrary.googleapis.com/v1/mediaItems?pageSize=100")
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()

* (See parsing code below...)

* {
*   "mediaItems": [
*     {
*       "id": "AKcbugGCOVK46E2qq6tv_wEuQuoK_a0iHet9rGH0-UWoZFnTMpEZ2jNjHWggz7Aq3hhjJv4YJsDY6ntowKsvnfnr1Bu3ASnS_w",
*       "productUrl": "https://photos.google.com/lr/photo/AKcbugGCOVK46E2qq6tv_wEuQuoK_a0iHet9rGH0-UWoZFnTMpEZ2jNjHWggz7Aq3hhjJv4YJsDY6ntowKsvnfnr1Bu3ASnS_w",
*       "baseUrl": "https://lh3.googleusercontent.com/lr/AGWb-e7ZcHJhUmxO8EgRSBFyBaGAyXE...YMWCAMDlNTA6-L5LiijXAUfKgD1ULhr9IabJBGTT7ETUdeeFTQTM",
*       "mimeType": "image/jpeg",
*       "mediaMetadata": {
*         "creationTime": "2019-04-11T17:55:53Z",
*         "width": "640",
*         "height": "480",
*         "photo": {
*           "cameraMake": "Apple",
*           "cameraModel": "iPhone 5s",
*           "focalLength": 4.15,
*           "apertureFNumber": 2.2,
*           "isoEquivalent": 32
*         }
*       },
*       "filename": "IMG_1206.JPG"
*     },
*     {
*       "id": "AKcbugFACWDNCQJ2nwhDemR6vRupHSvOUSKukyOHqTWO1CCIs0qw-C0b5MGmrveyjYe8ps8z1rZTRQ8hmSQsODSsobNqDl8vTg",
*       "productUrl": "https://photos.google.com/lr/photo/AKcbugFACWDNCQJ2nwhDemR6vRupHSvOUSKukyOHqTWO1CCIs0qw-C0b5MGmrveyjYe8ps8z1rZTRQ8hmSQsODSsobNqDl8vTg",
*       "baseUrl": "https://lh3.googleusercontent.com/lr/AGWb-e7NQe0qdoZrDHkfkK7LOsw-V...YJ1mrohD5duHsY2QJCzLTXZ65EOUrJefars3xDSwsCYlelY470kk",
*       "mimeType": "image/jpeg",
*       "mediaMetadata": {
*         "creationTime": "2016-10-09T01:49:58Z",
*         "width": "600",
*         "height": "427",
*         "photo": {}
*       },
*       "filename": "hedgehogs.jpg"
*     },
*     {
*       "id": "AKcbugHEVyTFgIYb7GzhRFP5KvhBRIIsRcb6Cd4-2ByHzad2oqZnWF2aMPoXY-vfrXmefdTlyF3yZ22Odz6IFLs8pnJlOoVBUg",
*       "productUrl": "https://photos.google.com/lr/photo/AKcbugHEVyTFgIYb7GzhRFP5KvhBRIIsRcb6Cd4-2ByHzad2oqZnWF2aMPoXY-vfrXmefdTlyF3yZ22Odz6IFLs8pnJlOoVBUg",
*       "baseUrl": "https://lh3.googleusercontent.com/lr/AGWb-e64wP9gpPXKq5b8FCFKzu9C...QTFxMLVRaLeQZBvYGZVIe7xCcRPnRhMpiXwL_RV_aU",
*       "mimeType": "image/jpeg",
*       "mediaMetadata": {
*         "creationTime": "2015-09-21T20:30:02Z",
*         "width": "59",
*         "height": "69",
*         "photo": {}
*       },
*       "filename": "chilkat_gravatar.jpg"
*     },
*     {
*       "id": "AKcbugHdYTp-S-D_EYnSBA4EhrKT86IFbmdRuiDclKka9T5b6UIbeDvhTAu1bebYOCFKH-gv1ME1z6RyMN4eW_9J5ol9_qizMg",
*       "productUrl": "https://photos.google.com/lr/photo/AKcbugHdYTp-S-D_EYnSBA4EhrKT86IFbmdRuiDclKka9T5b6UIbeDvhTAu1bebYOCFKH-gv1ME1z6RyMN4eW_9J5ol9_qizMg",
*       "baseUrl": "https://lh3.googleusercontent.com/lr/AGWb-e4e69WQpYcQX...m87rR6gDBhcB55TL__3ckBYNQ8MjbqpBtmojjYWrLG_j4VsVSA",
*       "mimeType": "image/jpeg",
*       "mediaMetadata": {
*         "creationTime": "2008-05-29T15:30:55Z",
*         "width": "120",
*         "height": "120",
*         "photo": {}
*       },
*       "filename": "starfish.jpg"
*     },
*     {
*       "id": "AKcbugGwtCih2tdl3s1-NMvZFaco3W7XnRwvwtj02J9DJyl6JmrLZDVUFcxQl4AT04LaNrPpsrojeTsDSzOVOF5IgKefD0Y-MQ",
*       "description": "Photo of Penguins",
*       "productUrl": "https://photos.google.com/lr/photo/AKcbugGwtCih2tdl3s1-NMvZFaco3W7XnRwvwtj02J9DJyl6JmrLZDVUFcxQl4AT04LaNrPpsrojeTsDSzOVOF5IgKefD0Y-MQ",
*       "baseUrl": "https://lh3.googleusercontent.com/lr/AGWb-e5Cj3EgyhscdT...X3-W562iiKtTa8lc_QPxCrpJu-m7cZyNGwGTANVpGe1XG",
*       "mimeType": "image/jpeg",
*       "mediaMetadata": {
*         "creationTime": "2008-02-18T05:07:31Z",
*         "width": "1024",
*         "height": "768",
*         "photo": {}
*       },
*       "filename": "penguins.jpg"
*     }
*   ]
* }
* 

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

i = 0
lnCount_i = loJson.SizeOfArray("mediaItems")
DO WHILE i < lnCount_i
    loJson.I = i
    lcId = loJson.StringOf("mediaItems[i].id")
    lcProductUrl = loJson.StringOf("mediaItems[i].productUrl")
    lcBaseUrl = loJson.StringOf("mediaItems[i].baseUrl")
    lcMimeType = loJson.StringOf("mediaItems[i].mimeType")
    lcMediaMetadataCreationTime = loJson.StringOf("mediaItems[i].mediaMetadata.creationTime")
    lcMediaMetadataWidth = loJson.StringOf("mediaItems[i].mediaMetadata.width")
    lcMediaMetadataHeight = loJson.StringOf("mediaItems[i].mediaMetadata.height")
    lcMediaMetadataPhotoCameraMake = loJson.StringOf("mediaItems[i].mediaMetadata.photo.cameraMake")
    lcMediaMetadataPhotoCameraModel = loJson.StringOf("mediaItems[i].mediaMetadata.photo.cameraModel")
    lcMediaMetadataPhotoFocalLength = loJson.StringOf("mediaItems[i].mediaMetadata.photo.focalLength")
    lcMediaMetadataPhotoApertureFNumber = loJson.StringOf("mediaItems[i].mediaMetadata.photo.apertureFNumber")
    lnMediaMetadataPhotoIsoEquivalent = loJson.IntOf("mediaItems[i].mediaMetadata.photo.isoEquivalent")
    lcFilename = loJson.StringOf("mediaItems[i].filename")
    lcDescription = loJson.StringOf("mediaItems[i].description")
    i = i + 1
ENDDO

RELEASE loJsonToken
RELEASE loHttp
RELEASE loJson