B4X

Paging User Photos with Cursor

See more Facebook Examples

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

Dim success As Boolean = 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 ChilkatOAuth2
oauth2.Initialize("oauth2")
oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

Dim rest As ChilkatRest
rest.Initialize("rest")

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


'  Provide the authentication credentials (i.e. the access key)
rest.SetAuthOAuth2(oauth2)

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

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


Dim json As ChilkatJsonObject
json.Initialize
json.EmitCompact = False
json.Load(responseJson)
Log(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 = json.StringOf("paging.cursors.after")
Do While json.LastMethodSuccess = True

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

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


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

    Log(json.Emit)

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

Log("No more pages of photos.")