PureBasic

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. PureBasic

IncludeFile "CkJsonObject.pb"
IncludeFile "CkDateTime.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkOAuth2.pb"
IncludeFile "CkRest.pb"
IncludeFile "CkDtObj.pb"

Procedure ChilkatExample()

    success.i = 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
    oauth2.i = CkOAuth2::ckCreate()
    If oauth2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkOAuth2::setCkAccessToken(oauth2, "FACEBOOK-ACCESS-TOKEN")

    rest.i = CkRest::ckCreate()
    If rest.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Connect to Facebook...
    success = CkRest::ckConnect(rest,"graph.facebook.com",443,1,1)
    If success = 0
        Debug CkRest::ckLastErrorText(rest)
        CkOAuth2::ckDispose(oauth2)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    ; Provide the authentication credentials (i.e. the access key)
    CkRest::ckSetAuthOAuth2(rest,oauth2)

    ; 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.

    postId.s = "10224048320139890_10210156138515282"

    sbPath.i = CkStringBuilder::ckCreate()
    If sbPath.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbPath,"/v2.7/")
    CkStringBuilder::ckAppend(sbPath,postId)

    ; Select the fields we want.
    ; This example will select almost all the possible fields.
    ; See https://developers.facebook.com/docs/graph-api/reference/post/
    CkRest::ckAddQueryParam(rest,"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")

    responseJson.s = CkRest::ckFullRequestNoBody(rest,"GET",CkStringBuilder::ckGetAsString(sbPath))
    If CkRest::ckLastMethodSuccess(rest) = 0
        Debug CkRest::ckLastErrorText(rest)
        CkOAuth2::ckDispose(oauth2)
        CkRest::ckDispose(rest)
        CkStringBuilder::ckDispose(sbPath)
        ProcedureReturn
    EndIf

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::setCkEmitCompact(json, 0)
    CkJsonObject::ckLoad(json,responseJson)

    ; Show the JSON in human-readable format.
    Debug CkJsonObject::ckEmit(json)

    ; 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.
    Debug "type: " + CkJsonObject::ckStringOf(json,"type")
    Debug "message: " + CkJsonObject::ckStringOf(json,"message")
    Debug "id: " + CkJsonObject::ckStringOf(json,"id")
    Debug "link: " + CkJsonObject::ckStringOf(json,"link")
    Debug "privacy descripton: " + CkJsonObject::ckStringOf(json,"privacy.description")

    dtime.i = CkDateTime::ckCreate()
    If dtime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    bLocalTime.i = 1
    CkDateTime::ckSetFromTimestamp(dtime,CkJsonObject::ckStringOf(json,"created_time"))
    dt.i = CkDtObj::ckCreate()
    If dt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkDateTime::ckToDtObj(dtime,bLocalTime,dt)

    Debug Str(CkDtObj::ckMonth(dt)) + "/" + Str(CkDtObj::ckDay(dt)) + "/" + Str(CkDtObj::ckYear(dt)) + "  " + Str(CkDtObj::ckHour(dt)) + ":" + Str(CkDtObj::ckMinute(dt))


    CkOAuth2::ckDispose(oauth2)
    CkRest::ckDispose(rest)
    CkStringBuilder::ckDispose(sbPath)
    CkJsonObject::ckDispose(json)
    CkDateTime::ckDispose(dtime)
    CkDtObj::ckDispose(dt)


    ProcedureReturn
EndProcedure