PureBasic
PureBasic
Google Photos List Media Items
See more Google Photos Examples
List all media items from a user's Google Photos library.Chilkat PureBasic Downloads
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"
Procedure ChilkatExample()
success.i = 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.
jsonToken.i = CkJsonObject::ckCreate()
If jsonToken.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/googlePhotos.json")
If success = 0
Debug CkJsonObject::ckLastErrorText(jsonToken)
CkJsonObject::ckDispose(jsonToken)
ProcedureReturn
EndIf
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token"))
; For more information, see Google Photos List Media Items API Documentation
resp.i = CkHttpResponse::ckCreate()
If resp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkHttp::ckHttpNoBody(http,"GET","https://photoslibrary.googleapis.com/v1/mediaItems?pageSize=100",resp)
If success = 0
Debug CkHttp::ckLastErrorText(http)
CkJsonObject::ckDispose(jsonToken)
CkHttp::ckDispose(http)
CkHttpResponse::ckDispose(resp)
ProcedureReturn
EndIf
; Examine the response status code. Success is indicated by a status code of 200.
Debug "response status code: " + Str(CkHttpResponse::ckStatusCode(resp))
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckLoad(json,CkHttpResponse::ckBodyStr(resp))
; Sample response:
CkJsonObject::setCkEmitCompact(json, 0)
Debug CkJsonObject::ckEmit(json)
; (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.i
count_i.i
id.s
productUrl.s
baseUrl.s
mimeType.s
mediaMetadataCreationTime.s
mediaMetadataWidth.s
mediaMetadataHeight.s
mediaMetadataPhotoCameraMake.s
mediaMetadataPhotoCameraModel.s
mediaMetadataPhotoFocalLength.s
mediaMetadataPhotoApertureFNumber.s
mediaMetadataPhotoIsoEquivalent.i
filename.s
description.s
i = 0
count_i = CkJsonObject::ckSizeOfArray(json,"mediaItems")
While i < count_i
CkJsonObject::setCkI(json, i)
id = CkJsonObject::ckStringOf(json,"mediaItems[i].id")
productUrl = CkJsonObject::ckStringOf(json,"mediaItems[i].productUrl")
baseUrl = CkJsonObject::ckStringOf(json,"mediaItems[i].baseUrl")
mimeType = CkJsonObject::ckStringOf(json,"mediaItems[i].mimeType")
mediaMetadataCreationTime = CkJsonObject::ckStringOf(json,"mediaItems[i].mediaMetadata.creationTime")
mediaMetadataWidth = CkJsonObject::ckStringOf(json,"mediaItems[i].mediaMetadata.width")
mediaMetadataHeight = CkJsonObject::ckStringOf(json,"mediaItems[i].mediaMetadata.height")
mediaMetadataPhotoCameraMake = CkJsonObject::ckStringOf(json,"mediaItems[i].mediaMetadata.photo.cameraMake")
mediaMetadataPhotoCameraModel = CkJsonObject::ckStringOf(json,"mediaItems[i].mediaMetadata.photo.cameraModel")
mediaMetadataPhotoFocalLength = CkJsonObject::ckStringOf(json,"mediaItems[i].mediaMetadata.photo.focalLength")
mediaMetadataPhotoApertureFNumber = CkJsonObject::ckStringOf(json,"mediaItems[i].mediaMetadata.photo.apertureFNumber")
mediaMetadataPhotoIsoEquivalent = CkJsonObject::ckIntOf(json,"mediaItems[i].mediaMetadata.photo.isoEquivalent")
filename = CkJsonObject::ckStringOf(json,"mediaItems[i].filename")
description = CkJsonObject::ckStringOf(json,"mediaItems[i].description")
i = i + 1
Wend
CkJsonObject::ckDispose(jsonToken)
CkHttp::ckDispose(http)
CkHttpResponse::ckDispose(resp)
CkJsonObject::ckDispose(json)
ProcedureReturn
EndProcedure