PowerBuilder

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). PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Oauth2
oleobject loo_Rest
integer li_BAutoReconnect
string ls_ResponseJson

li_Success = 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
loo_Oauth2 = create oleobject
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
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")

// Connect to Facebook and send the following GET request:

// GET /v2.7/me HTTP/1.1
// Host: graph.facebook.com
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("graph.facebook.com",443,1,li_BAutoReconnect)
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)

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

Write-Debug ls_ResponseJson

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


destroy loo_Oauth2
destroy loo_Rest