B4X

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

See more Google APIs Examples

Demonstrates how to get the Google OAuth2 v3 userinfo.

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

B4X

Dim success As Boolean = False

'  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

Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/googlePeople.json")
If success <> True Then
    Log("Failed to load googleContacts.json")
    Return
End If


Dim http As ChilkatHttp
http.Initialize("http")

'  -------------------------------------------------------------------------------------
'  Make sure the access token was obtained with "profile" included in the list of scopes.
'  -------------------------------------------------------------------------------------
http.AuthToken = jsonToken.StringOf("access_token")

Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
success = http.QuickGetSb("https://www.googleapis.com/oauth2/v3/userinfo", sbResponseBody)
If success = False Then
    Log(http.LastErrorText)
    Log(sbResponseBody.GetAsString)
    Return
End If


'  Sample JSON Response

Dim json As ChilkatJsonObject
json.Initialize
json.EmitCompact = False
json.Load(sbResponseBody.GetAsString)
Log(json.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"
'  }
'