Visual FoxPro

Paging User Photos with Cursor

See more Facebook Examples

Demonstrates how to iterate over the pages of user photos using a cursor. Visual FoxPro

LOCAL lnSuccess
LOCAL loOauth2
LOCAL loRest
LOCAL lcResponseJson
LOCAL loJson
LOCAL lcAfterCursor

lnSuccess = 0

* 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('Chilkat.OAuth2')
loOauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

loRest = CreateObject('Chilkat.Rest')

* Connect to Facebook.
lnSuccess = loRest.Connect("graph.facebook.com",443,1,1)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loOauth2
    RELEASE loRest
    CANCEL
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 per page using the "limit" field.
loRest.AddQueryParam("limit","20")

* Get 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 <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loOauth2
    RELEASE loRest
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0
loJson.Load(lcResponseJson)
? loJson.Emit()

* 
* See Parsing the Facebook User Photos for code showing how to parse the JSON photos content.
* 

* Get the "after" cursor.
lcAfterCursor = loJson.StringOf("paging.cursors.after")
DO WHILE loJson.LastMethodSuccess = 1

    ? "after cursor: " + lcAfterCursor

    * Prepare for getting the next page of photos.
    * We can continue using the same REST object.
    * If already connected, we'll continue using the existing connection.
    * Otherwise, a new connection will automatically be made if needed.
    loRest.ClearAllQueryParams()
    loRest.AddQueryParam("type","uploaded")
    loRest.AddQueryParam("limit","20")
    loRest.AddQueryParam("after",lcAfterCursor)

    lcResponseJson = loRest.FullRequestNoBody("GET","/v2.7/me/photos")
    IF (loRest.LastMethodSuccess <> 1) THEN
        ? loRest.LastErrorText
        RELEASE loOauth2
        RELEASE loRest
        RELEASE loJson
        CANCEL
    ENDIF

    loJson.Load(lcResponseJson)
    * See Parsing the Facebook User Photos for code showing how to parse the JSON photos content.

    ? loJson.Emit()

    * Get the cursor for the next page.
    lcAfterCursor = loJson.StringOf("paging.cursors.after")
ENDDO

? "No more pages of photos."

RELEASE loOauth2
RELEASE loRest
RELEASE loJson