PureBasic

Explicitly set the OAuth2 Access Token

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

IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 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.
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(json,"c:/someDir/tokens/myToken.json")

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; After setting this property, all HTTP requests sent using this object instance
    ; will include the request header: Authorization: Bearer <access_token> 
    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(json,"access_token"))

    ; ...
    ; ..


    CkJsonObject::ckDispose(json)
    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure