(Visual FoxPro) 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

LOCAL loOauth2
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL lnSuccess
LOCAL lcResponseJson

* 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
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.OAuth2')
loOauth2 = CreateObject('Chilkat.OAuth2')
loOauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* Connect to Facebook and send the following GET request:

* GET /v2.7/me HTTP/1.1
* Host: graph.facebook.com
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("graph.facebook.com",443,1,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loOauth2
    RELEASE loRest
    CANCEL
ENDIF

* Provide the authentication credentials (i.e. the access key)
loRest.SetAuthOAuth2(loOauth2)

lcResponseJson = loRest.FullRequestNoBody("GET","/v2.7/me")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loOauth2
    RELEASE loRest
    CANCEL
ENDIF

? lcResponseJson

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

RELEASE loOauth2
RELEASE loRest