Sample code for 30+ languages & platforms
Tcl

Google Photos List Media Items

See more Google Photos Examples

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

Chilkat Tcl Downloads

Download Chilkat for Tcl
Tcl 

load ./chilkat.dll

set success 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.

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/googlePhotos.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkJsonObject $jsonToken
    exit
}

set http [new_CkHttp]

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

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

set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "GET" "https://photoslibrary.googleapis.com/v1/mediaItems?pageSize=100" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkJsonObject $jsonToken
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

# Examine the response status code.  Success is indicated by a status code of 200.
puts "response status code: [CkHttpResponse_get_StatusCode $resp]"

set json [new_CkJsonObject]

CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]

# Sample response:
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $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

set i 0
set count_i [CkJsonObject_SizeOfArray $json "mediaItems"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set id [CkJsonObject_stringOf $json "mediaItems[i].id"]
    set productUrl [CkJsonObject_stringOf $json "mediaItems[i].productUrl"]
    set baseUrl [CkJsonObject_stringOf $json "mediaItems[i].baseUrl"]
    set mimeType [CkJsonObject_stringOf $json "mediaItems[i].mimeType"]
    set mediaMetadataCreationTime [CkJsonObject_stringOf $json "mediaItems[i].mediaMetadata.creationTime"]
    set mediaMetadataWidth [CkJsonObject_stringOf $json "mediaItems[i].mediaMetadata.width"]
    set mediaMetadataHeight [CkJsonObject_stringOf $json "mediaItems[i].mediaMetadata.height"]
    set mediaMetadataPhotoCameraMake [CkJsonObject_stringOf $json "mediaItems[i].mediaMetadata.photo.cameraMake"]
    set mediaMetadataPhotoCameraModel [CkJsonObject_stringOf $json "mediaItems[i].mediaMetadata.photo.cameraModel"]
    set mediaMetadataPhotoFocalLength [CkJsonObject_stringOf $json "mediaItems[i].mediaMetadata.photo.focalLength"]
    set mediaMetadataPhotoApertureFNumber [CkJsonObject_stringOf $json "mediaItems[i].mediaMetadata.photo.apertureFNumber"]
    set mediaMetadataPhotoIsoEquivalent [CkJsonObject_IntOf $json "mediaItems[i].mediaMetadata.photo.isoEquivalent"]
    set filename [CkJsonObject_stringOf $json "mediaItems[i].filename"]
    set description [CkJsonObject_stringOf $json "mediaItems[i].description"]
    set i [expr $i + 1]
}

delete_CkJsonObject $jsonToken
delete_CkHttp $http
delete_CkHttpResponse $resp
delete_CkJsonObject $json