B4X

Explicitly set the OAuth2 Access Token

This example shows how to set the AuthToken property using a previously obtained access token. B4X

Dim success As Boolean = False

'  Assume we previously obtained JSON containing the access token such as this:

'  	{
'  	 "access_token": "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ",
'  	 "token_type": "Bearer",
'  	 "expires_in": 3600,
'  	 "refresh_token": "1/r_2c_7jddspcdfesrrfKqfXtqo08D6Q-gUU0DsdfVMsx0c"
'  	}
'  

'  Load the JSON and use the access_token to authenticate an HTTP request.
Dim json As ChilkatJsonObject
json.Initialize
success = json.LoadFile("c:/someDir/tokens/myToken.json")

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

'  After setting this property, all HTTP requests sent using this object instance
'  will include the request header: Authorization: Bearer <access_token> 
http.AuthToken = json.StringOf("access_token")

'  ...
'  ...