Xbase++

Get Individual Photo Info

See more Facebook Examples

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

LOCAL nSuccess
LOCAL oOauth2
LOCAL oRest
LOCAL cPhotoId
LOCAL oSbPath
LOCAL cResponseJson
LOCAL oJson
LOCAL nCanDelete
LOCAL nHeight
LOCAL nWidth

nSuccess := 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
oOauth2 := CreateObject("Chilkat.OAuth2")
oOauth2:AccessToken := "FACEBOOK-ACCESS-TOKEN"

oRest := CreateObject("Chilkat.Rest")

//  Connect to Facebook...
nSuccess := oRest:Connect("graph.facebook.com", 443, 1, 1)
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oOauth2:destroy()
    oRest:destroy()
    RETURN
ENDIF

//  Provide the authentication credentials (i.e. the access key)
oRest:SetAuthOAuth2(oOauth2)

//  Assumes we've already obtained a Photo ID.
cPhotoId := "10210199026347451"

oSbPath := CreateObject("Chilkat.StringBuilder")
oSbPath:Append("/v2.7/")
oSbPath:Append(cPhotoId)

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

cResponseJson := oRest:FullRequestNoBody("GET", oSbPath:GetAsString())
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oOauth2:destroy()
    oRest:destroy()
    oSbPath:destroy()
    RETURN
ENDIF

oJson := CreateObject("Chilkat.JsonObject")
oJson:EmitCompact := 0
oJson:Load(cResponseJson)

//  Show the JSON in human-readable format.
? oJson:Emit()

//  A sample response is shown below.
//  Demonstrate how to parse values from the JSON.
? "Album name: " + oJson:StringOf("album.name")
nCanDelete := oJson:BoolOf("can_delete")
? "Can Delete: " + Str(nCanDelete)
? "From Name: " + oJson:StringOf("from.name")
nHeight := oJson:IntOf("height")
nWidth := oJson:IntOf("width")
? "Dimensions: " + Str(nWidth) + "x" + Str(nHeight)
? "First Image Source: " + oJson: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"
//  }
//

oOauth2:destroy()
oRest:destroy()
oSbPath:destroy()
oJson:destroy()