(Visual FoxPro) Google OAuth2 v3 userinfo (https://www.googleapis.com/oauth2/v3/userinfo)

Demonstrates how to get the Google OAuth2 v3 userinfo.

Important: Make sure the OAuth2 access token included "profile" in the list of scopes.

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

LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loHttp
LOCAL loSbResponseBody
LOCAL loJson

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* It is assumed we previously obtained an OAuth2 access token.
* This example loads the JSON access token file 
* originally obtained by this example: Get Google People API OAuth2 Access Token
* or refreshed by this example: Refresh Google People API OAuth2 Access Token

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googlePeople.json")
IF (lnSuccess <> 1) THEN
    ? "Failed to load googleContacts.json"
    RELEASE loJsonToken
    CANCEL
ENDIF

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

* -------------------------------------------------------------------------------------
* Make sure the access token was obtained with "profile" included in the list of scopes.
* -------------------------------------------------------------------------------------
loHttp.AuthToken = loJsonToken.StringOf("access_token")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://www.googleapis.com/oauth2/v3/userinfo",loSbResponseBody)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    ? loSbResponseBody.GetAsString()
    RELEASE loJsonToken
    RELEASE loHttp
    RELEASE loSbResponseBody
    CANCEL
ENDIF

* Sample JSON Response

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0
loJson.Load(loSbResponseBody.GetAsString())
? loJson.Emit()

* Sample response:

* {
*   "sub": "119999690625687999964",
*   "name": "Matt",
*   "given_name": "Matt",
*   "picture": "https://lh3.googleusercontent.com/-b4...eg3Zjo/AAAAAAAAAAI/AAAAAAAAAAA/AMZuu....3RpdA/s96-c/photo.jpg",
*   "locale": "en"
* }
* 

RELEASE loJsonToken
RELEASE loHttp
RELEASE loSbResponseBody
RELEASE loJson