(Visual FoxPro) Explicitly set the OAuth2 Access Token

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

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

LOCAL loJson
LOCAL lnSuccess
LOCAL loHttp

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
lnSuccess = loJson.LoadFile("c:/someDir/tokens/myToken.json")

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

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

* ...
* ..

RELEASE loJson
RELEASE loHttp