Xbase++

Explicitly set the OAuth2 Access Token

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

LOCAL nSuccess
LOCAL oJson
LOCAL oHttp

nSuccess := 0

//  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.
oJson := CreateObject("Chilkat.JsonObject")
nSuccess := oJson:LoadFile("c:/someDir/tokens/myToken.json")

oHttp := CreateObject("Chilkat.Http")

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

//  ...
//  ...

oJson:destroy()
oHttp:destroy()