PureBasic

Get Current User Information

See more Facebook Examples

Demonstrates how to retrieve information about the current Facebook user. This is the most basic thing to get working first (after obtaining an access token). PureBasic

IncludeFile "CkOAuth2.pb"
IncludeFile "CkRest.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 we 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 and send the following GET request:

    ; GET /v2.7/me HTTP/1.1
    ; Host: graph.facebook.com
    bAutoReconnect.i = 1
    success = CkRest::ckConnect(rest,"graph.facebook.com",443,1,bAutoReconnect)
    If success <> 1
        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)

    responseJson.s = CkRest::ckFullRequestNoBody(rest,"GET","/v2.7/me")
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkOAuth2::ckDispose(oauth2)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    Debug responseJson

    ; The responseJson looks like this:
    ; {"name":"John Doe","id":"10111011320111110"}


    CkOAuth2::ckDispose(oauth2)
    CkRest::ckDispose(rest)


    ProcedureReturn
EndProcedure