(PowerBuilder) Get Current User Information

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

// 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
// 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 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