Xbase++ Requires Chilkat v11.0.0+

Read a Single Facebook Post

See more Facebook Examples

Demonstrates how to read the contents of a single Facebook post. A post is an individual entry in a profile's feed. The profile could be a user, page, app, or group. Xbase++

LOCAL nSuccess
LOCAL oOauth2
LOCAL oRest
LOCAL cPostId
LOCAL oSbPath
LOCAL cResponseJson
LOCAL oJson
LOCAL oDtime
LOCAL nBLocalTime
LOCAL oDt

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 == 0)
    ? oRest:LastErrorText
    oOauth2:destroy()
    oRest:destroy()
    RETURN
ENDIF

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

//  This example assumes a post id was already retrieved.
//  For example, it could've been retrieved by reading the user's feed:
//  See Parsing the Facebook User Feed for code showing how to parse the JSON feed content.

cPostId := "10224048320139890_10210156138515282"

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

//  Select the fields we want.
//  This example will select almost all the possible fields.
//  See https://developers.facebook.com/docs/graph-api/reference/post/
oRest:AddQueryParam("fields", "id,message,created_time,caption,description,from,link,name,object_id,picture,place,privacy,properties,shares,source,status_type,story,targeting,to,type,updated_time,with_tags")

cResponseJson := oRest:FullRequestNoBody("GET", oSbPath:GetAsString())
IF (oRest:LastMethodSuccess == 0)
    ? 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 JSON response is shown here.  
//  { 
//    "id": "12345678901234567_12345678900000004",
//    "message": "Ignore my posts -- I'm doing some testing for Facebook related programming...",
//    "created_time": "2016-09-29T20:46:18+0000",
//    "from": { 
//      "name": "John Doe",
//      "id": "12345678901234567"
//    },
//    "link": "https:\/\/www.facebook.com\/photo.php?fbid=10210199026247451&set=a.1237223526054.2038240.1094202869&type=3",
//    "object_id": "10210139026347451",
//    "picture": "https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/14462791_10210199026647451_7830642117574407060_n.jpg?oh=a7f9ed10ce9cd81a82adeb541c60e2e2&oe=58ABB195",
//    "privacy": { 
//      "allow": "",
//      "deny": "",
//      "description": "Public",
//      "friends": "",
//      "value": "EVERYONE"
//    },
//    "status_type": "added_photos",
//    "type": "photo",
//    "updated_time": "2016-09-29T20:46:18+0000"
//  }

//  This is the code to parse some fields in the JSON response.
? "type: " + oJson:StringOf("type")
? "message: " + oJson:StringOf("message")
? "id: " + oJson:StringOf("id")
? "link: " + oJson:StringOf("link")
? "privacy descripton: " + oJson:StringOf("privacy.description")

oDtime := CreateObject("Chilkat.CkDateTime")
nBLocalTime := 1
oDtime:SetFromTimestamp(oJson:StringOf("created_time"))
oDt := CreateObject("Chilkat.DtObj")
oDtime:ToDtObj(nBLocalTime, oDt)

? Str(oDt:Month) + "/" + Str(oDt:Day) + "/" + Str(oDt:Year) + "  " + Str(oDt:Hour) + ":" + Str(oDt:Minute)

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