B4X
Get Individual Photo Info

Assuming we have the ID of a Photo, this example demonstrates how to retrieve the photo information and parse the JSON.
Chilkat B4X Downloads

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)

'  Assumes we've already obtained a Photo ID.
Dim photoId As String = "10210199026347451"

Dim sbPath As ChilkatStringBuilder
sbPath.Initialize
sbPath.Append("/v2.7/")
sbPath.Append(photoId)

'  Select the fields we want.
'  This example will select many of the possible fields.
'  See https://developers.facebook.com/docs/graph-api/reference/photo/
rest.AddQueryParam("fields", "id,album,can_delete,can_tag,from,height,width,images,link,name,name_tags,picture,place,target")

Dim responseJson As String = rest.FullRequestNoBody("GET", sbPath.GetAsString)
If rest.LastMethodSuccess <> True Then
    Log(rest.LastErrorText)
    Return
End If


Dim json As ChilkatJsonObject
json.Initialize
json.EmitCompact = False
json.Load(responseJson)

'  Show the JSON in human-readable format.
Log(json.Emit)

'  A sample response is shown below.
'  Demonstrate how to parse values from the JSON.
Log("Album name: " & json.StringOf("album.name"))
Dim canDelete As Boolean = json.BoolOf("can_delete")
Log("Can Delete: " & canDelete)
Log("From Name: " & json.StringOf("from.name"))
Dim height As Int = json.IntOf("height")
Dim width As Int = json.IntOf("width")
Log("Dimensions: " & width & "x" & height)
Log("First Image Source: " & json.StringOf("images[0].source"))

'  A sample JSON response is shown here.  
'  { 
'    "id": "10210199026347451",
'    "album": { 
'      "created_time": "2009-10-19T00:06:46+0000",
'      "name": "Timeline Photos",
'      "id": "1237223526054"
'    },
'    "can_delete": true,
'    "can_tag": true,
'    "from": { 
'      "name": "Matt Smith",
'      "id": "10224048320139890"
'    },
'    "height": 120,
'    "width": 120,
'    "images": [
'      { 
'        "height": 120,
'        "source": "https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/14462791_10210199026347451_7830642117574407060_n.jpg?oh=a7f9ed10cf9cd81a82adeb541c60e2e2&oe=58ABB195",
'        "width": 120
'      }
'    ],
'    "link": "https:\/\/www.facebook.com\/photo.php?fbid=10210199026347451&set=a.1237223526054.2038240.1093202869&type=3",
'    "name": "Ignore my posts -- I'm doing some testing for Facebook related programming...",
'    "picture": "https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/14462791_10210199026347451_7830642117574407060_n.jpg?oh=a7f9ed10cf9cd81a82adeb541c60e2e2&oe=58ABB195"
'  }
'