(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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...
Dim success As Boolean
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)

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

Dim sbPath As New Chilkat.StringBuilder
success = sbPath.Append("/v2.7/")
success = 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/
success = rest.AddQueryParam("fields","id,album,can_delete,can_tag,from,height,width,images,link,name,name_tags,picture,place,target")

Dim responseJson As String
responseJson = rest.FullRequestNoBody("GET",sbPath.GetAsString())
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)

// Show the JSON in human-readable format.
System.DebugLog(json.Emit())

// A sample response is shown below.
// Demonstrate how to parse values from the JSON.
System.DebugLog("Album name: " + json.StringOf("album.name"))
Dim canDelete As Boolean
canDelete = json.BoolOf("can_delete")
System.DebugLog("Can Delete: " + Str(canDelete))
System.DebugLog("From Name: " + json.StringOf("from.name"))
Dim height As Int32
height = json.IntOf("height")
Dim width As Int32
width = json.IntOf("width")
System.DebugLog("Dimensions: " + Str(width) + "x" + Str(height))
System.DebugLog("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"
// }
//