DataFlex
DataFlex
Google Photos List Media Items
See more Google Photos Examples
List all media items from a user's Google Photos library.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Token Handle hoJsonToken
Handle hoHttp
Variant vResp
Handle hoResp
Handle hoJson
Integer i
Integer iCount_i
String sId
String sProductUrl
String sBaseUrl
String sMimeType
String sMediaMetadataCreationTime
String sMediaMetadataWidth
String sMediaMetadataHeight
String sMediaMetadataPhotoCameraMake
String sMediaMetadataPhotoCameraModel
String sMediaMetadataPhotoFocalLength
String sMediaMetadataPhotoApertureFNumber
Integer iMediaMetadataPhotoIsoEquivalent
String sFilename
String sDescription
String sTemp1
Integer iTemp1
Move False To iSuccess
// 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.
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
If (Not(IsComObjectCreated(hoJsonToken))) Begin
Send CreateComObject of hoJsonToken
End
Get ComLoadFile Of hoJsonToken "qa_data/tokens/googlePhotos.json" To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoJsonToken To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
Get ComStringOf Of hoJsonToken "access_token" To sTemp1
Set ComAuthToken Of hoHttp To sTemp1
// For more information, see Google Photos List Media Items API Documentation
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
If (Not(IsComObjectCreated(hoResp))) Begin
Send CreateComObject of hoResp
End
Get pvComObject of hoResp to vResp
Get ComHttpNoBody Of hoHttp "GET" "https://photoslibrary.googleapis.com/v1/mediaItems?pageSize=100" vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
// Examine the response status code. Success is indicated by a status code of 200.
Get ComStatusCode Of hoResp To iTemp1
Showln "response status code: " iTemp1
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComBodyStr Of hoResp To sTemp1
Get ComLoad Of hoJson sTemp1 To iSuccess
// Sample response:
Set ComEmitCompact Of hoJson To False
Get ComEmit Of hoJson To sTemp1
Showln sTemp1
// (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
Move 0 To i
Get ComSizeOfArray Of hoJson "mediaItems" To iCount_i
While (i < iCount_i)
Set ComI Of hoJson To i
Get ComStringOf Of hoJson "mediaItems[i].id" To sId
Get ComStringOf Of hoJson "mediaItems[i].productUrl" To sProductUrl
Get ComStringOf Of hoJson "mediaItems[i].baseUrl" To sBaseUrl
Get ComStringOf Of hoJson "mediaItems[i].mimeType" To sMimeType
Get ComStringOf Of hoJson "mediaItems[i].mediaMetadata.creationTime" To sMediaMetadataCreationTime
Get ComStringOf Of hoJson "mediaItems[i].mediaMetadata.width" To sMediaMetadataWidth
Get ComStringOf Of hoJson "mediaItems[i].mediaMetadata.height" To sMediaMetadataHeight
Get ComStringOf Of hoJson "mediaItems[i].mediaMetadata.photo.cameraMake" To sMediaMetadataPhotoCameraMake
Get ComStringOf Of hoJson "mediaItems[i].mediaMetadata.photo.cameraModel" To sMediaMetadataPhotoCameraModel
Get ComStringOf Of hoJson "mediaItems[i].mediaMetadata.photo.focalLength" To sMediaMetadataPhotoFocalLength
Get ComStringOf Of hoJson "mediaItems[i].mediaMetadata.photo.apertureFNumber" To sMediaMetadataPhotoApertureFNumber
Get ComIntOf Of hoJson "mediaItems[i].mediaMetadata.photo.isoEquivalent" To iMediaMetadataPhotoIsoEquivalent
Get ComStringOf Of hoJson "mediaItems[i].filename" To sFilename
Get ComStringOf Of hoJson "mediaItems[i].description" To sDescription
Move (i + 1) To i
Loop
End_Procedure