(Tcl) Get the Photos for a User

Demonstrates how to get the photos that the user has uploaded.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# This example assumes a previously obtained an access token
set oauth2 [new_CkOAuth2]

CkOAuth2_put_AccessToken $oauth2 "FACEBOOK-ACCESS-TOKEN"

set rest [new_CkRest]

# Connect to Facebook.
set success [CkRest_Connect $rest "graph.facebook.com" 443 1 1]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkOAuth2 $oauth2
    delete_CkRest $rest
    exit
}

# Provide the authentication credentials (i.e. the access key)
CkRest_SetAuthOAuth2 $rest $oauth2

# Indicate that we only want the photos the user has personally uploaded.
CkRest_AddQueryParam $rest "type" "uploaded"

# We could limit the number of photos by setting a limit.
CkRest_AddQueryParam $rest "limit" "5"

# Gets the 1st page of photos. (Not the actual image data, but the information about each photo.)
# See https://developers.facebook.com/docs/graph-api/reference/user/photos/ for more information.
set responseJson [CkRest_fullRequestNoBody $rest "GET" "/v2.7/me/photos"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkOAuth2 $oauth2
    delete_CkRest $rest
    exit
}

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0
CkJsonObject_Load $json $responseJson
puts [CkJsonObject_emit $json]

# A sample JSON response is shown below.  
# This is the code to parse the JSON response.

set dtime [new_CkDateTime]

set bLocalTime 1

# dt is a CkDtObj

set i 0
set numItems [CkJsonObject_SizeOfArray $json "data"]
while {$i < $numItems} {
    CkJsonObject_put_I $json $i
    puts "--- $i"
    set name [CkJsonObject_stringOf $json "data[i].name"]
    if {[CkJsonObject_get_LastMethodSuccess $json] == 1} then {
        puts "name: $name"
    }

    puts "id: [CkJsonObject_stringOf $json {data[i].id}]"

    # We can load the created_time into a CkDateTime...
    CkDateTime_SetFromTimestamp $dtime [CkJsonObject_stringOf $json "data[i].created_time"]
    set dt [CkDateTime_GetDtObj $dtime $bLocalTime]
    puts [CkDtObj_get_Month $dt]/[CkDtObj_get_Day $dt]/[CkDtObj_get_Year $dt]  [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]
    delete_CkDtObj $dt

    set i [expr $i + 1]
}

# We can get the paging information as follows:
puts "URL for next page: [CkJsonObject_stringOf $json paging.next]"
puts "before cursor: [CkJsonObject_stringOf $json paging.cursors.before]"
puts "after cursor: [CkJsonObject_stringOf $json paging.cursors.after]"

# This is a sample JSON response:
# { 
#   "data": [
#     {
#       "created_time": "2016-09-29T20:46:18+0000",
#       "name": "Ignore my posts -- I'm doing some testing for Facebook related programming...",
#       "id": "10210199026347451"
#     },
#     { 
#       "created_time": "2016-09-19T02:00:42+0000",
#       "id": "10210091531240138"
#     },
#     { 
#       "created_time": "2016-09-19T02:00:42+0000",
#       "id": "10210091520620125"
#     },
#     { 
#       "created_time": "2016-09-19T01:59:46+0000",
#       "name": "I would've went for a swim had it not been for the sign",
#       "id": "10210091522299917"
#     },
#     { 
#       "created_time": "2016-09-12T00:37:35+0000",
#       "id": "10210023316834798"
#     }
#   ],
#   "paging": { 
#     "cursors": { 
#       "before": "MTAyMTAxOTkwMjYzNDc0NTEZD",
#       "after": "MTAyMTAwMjMzMTU4MzQ3OTgZD"
#     },
#     "next": "https:\/\/graph.facebook.com\/v2.7\/10224048320139890\/photos?type=uploaded&limit=5&after=MTAyMTAwMjMzMTU4MzQ3OTgZD"
#   }
# }
# 

delete_CkOAuth2 $oauth2
delete_CkRest $rest
delete_CkJsonObject $json
delete_CkDateTime $dtime