Xojo Plugin

Paging User Photos with Cursor

See more Facebook Examples

Demonstrates how to iterate over the pages of user photos using a cursor. Xojo Plugin

Dim success As Boolean
success = False

// 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
Dim oauth2 As New Chilkat.OAuth2
oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

Dim rest As New Chilkat.Rest

// Connect to Facebook.
success = rest.Connect("graph.facebook.com",443,True,True)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

// Provide the authentication credentials (i.e. the access key)
success = rest.SetAuthOAuth2(oauth2)

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

// We could limit the number of photos per page using the "limit" field.
success = rest.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.
Dim responseJson As String
responseJson = rest.FullRequestNoBody("GET","/v2.7/me/photos")
If (rest.LastMethodSuccess <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim json As New Chilkat.JsonObject
json.EmitCompact = False
success = json.Load(responseJson)
System.DebugLog(json.Emit())

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

// Get the "after" cursor.
Dim afterCursor As String
afterCursor = json.StringOf("paging.cursors.after")
While json.LastMethodSuccess = True

    System.DebugLog("after cursor: " + afterCursor)

    // 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.
    success = rest.ClearAllQueryParams()
    success = rest.AddQueryParam("type","uploaded")
    success = rest.AddQueryParam("limit","20")
    success = rest.AddQueryParam("after",afterCursor)

    responseJson = rest.FullRequestNoBody("GET","/v2.7/me/photos")
    If (rest.LastMethodSuccess <> True) Then
        System.DebugLog(rest.LastErrorText)
        Return
    End If

    success = json.Load(responseJson)
    // See Parsing the Facebook User Photos for code showing how to parse the JSON photos content.

    System.DebugLog(json.Emit())

    // Get the cursor for the next page.
    afterCursor = json.StringOf("paging.cursors.after")
Wend

System.DebugLog("No more pages of photos.")