(Lianja) Get the Photos for a User

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

// 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
loOauth2 = createobject("CkOAuth2")
loOauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

loRest = createobject("CkRest")

// Connect to Facebook.
llSuccess = loRest.Connect("graph.facebook.com",443,.T.,.T.)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loOauth2
    release loRest
    return
endif

// Provide the authentication credentials (i.e. the access key)
loRest.SetAuthOAuth2(loOauth2)

// Indicate that we only want the photos the user has personally uploaded.
loRest.AddQueryParam("type","uploaded")

// We could limit the number of photos by setting a limit.
loRest.AddQueryParam("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.
lcResponseJson = loRest.FullRequestNoBody("GET","/v2.7/me/photos")
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loOauth2
    release loRest
    return
endif

loJson = createobject("CkJsonObject")
loJson.EmitCompact = .F.
loJson.Load(lcResponseJson)
? loJson.Emit()

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

loDtime = createobject("CkDateTime")
llBLocalTime = .T.

i = 0
lnNumItems = loJson.SizeOfArray("data")
do while i < lnNumItems
    loJson.I = i
    ? "--- " + str(i)
    lcName = loJson.StringOf("data[i].name")
    if (loJson.LastMethodSuccess = .T.) then
        ? "name: " + lcName
    endif

    ? "id: " + loJson.StringOf("data[i].id")

    // We can load the created_time into a CkDateTime...
    loDtime.SetFromTimestamp(loJson.StringOf("data[i].created_time"))
    loDt = loDtime.GetDtObj(llBLocalTime)
    ? str(loDt.Month) + "/" + str(loDt.Day) + "/" + str(loDt.Year) + "  " + str(loDt.Hour) + ":" + str(loDt.Minute)
    release loDt
    i = i + 1
enddo

// We can get the paging information as follows:
? "URL for next page: " + loJson.StringOf("paging.next")
? "before cursor: " + loJson.StringOf("paging.cursors.before")
? "after cursor: " + loJson.StringOf("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"
//   }
// }
// 


release loOauth2
release loRest
release loJson
release loDtime