(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Oauth2
oleobject loo_Rest
integer li_Success
string ls_PhotoId
oleobject loo_SbPath
string ls_ResponseJson
oleobject loo_Json
integer li_CanDelete
integer li_Height
integer li_Width

// 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
loo_Oauth2 = create oleobject
// Use "Chilkat_9_5_0.OAuth2" for versions of Chilkat < 10.0.0
li_rc = loo_Oauth2.ConnectToNewObject("Chilkat.OAuth2")
if li_rc < 0 then
    destroy loo_Oauth2
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")

// Connect to Facebook...
li_Success = loo_Rest.Connect("graph.facebook.com",443,1,1)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Oauth2
    destroy loo_Rest
    return
end if

// Provide the authentication credentials (i.e. the access key)
loo_Rest.SetAuthOAuth2(loo_Oauth2)

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

loo_SbPath = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbPath.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbPath.Append("/v2.7/")
loo_SbPath.Append(ls_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/
loo_Rest.AddQueryParam("fields","id,album,can_delete,can_tag,from,height,width,images,link,name,name_tags,picture,place,target")

ls_ResponseJson = loo_Rest.FullRequestNoBody("GET",loo_SbPath.GetAsString())
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Oauth2
    destroy loo_Rest
    destroy loo_SbPath
    return
end if

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.EmitCompact = 0
loo_Json.Load(ls_ResponseJson)

// Show the JSON in human-readable format.
Write-Debug loo_Json.Emit()

// A sample response is shown below.
// Demonstrate how to parse values from the JSON.
Write-Debug "Album name: " + loo_Json.StringOf("album.name")
li_CanDelete = loo_Json.BoolOf("can_delete")
Write-Debug "Can Delete: " + string(li_CanDelete)
Write-Debug "From Name: " + loo_Json.StringOf("from.name")
li_Height = loo_Json.IntOf("height")
li_Width = loo_Json.IntOf("width")
Write-Debug "Dimensions: " + string(li_Width) + "x" + string(li_Height)
Write-Debug "First Image Source: " + loo_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"
// }
// 


destroy loo_Oauth2
destroy loo_Rest
destroy loo_SbPath
destroy loo_Json