B4X Requires Chilkat v11.5.0+

Box: Refresh and Save Rotated OAuth Tokens

See more Box Examples

Refresh the user token saved by the authorization example. Box refresh tokens are single-use and expire after 60 days. Serialize refreshes for a token pair and save the replacement immediately; do not run concurrent refresh jobs.

See the Box API guide for setup and the complete workflow.

B4X

Dim success As Boolean = False

'  Requires Chilkat 11.5.0 or later and a previously unlocked Chilkat bundle.
'  See Global Unlock Sample.
'  Guide: Box API Guide.

success = False

Dim tokens As ChilkatJsonObject
tokens.Initialize
success = tokens.LoadFile("qa_data/tokens/box_oauth.json")
If success <> True Then
    Log(tokens.LastErrorText)
    Return
End If

Dim oauth2 As ChilkatOAuth2
oauth2.Initialize("oauth2")
oauth2.TokenEndpoint = "https://api.box.com/oauth2/token"
oauth2.ClientId = "BOX_CLIENT_ID"
oauth2.ClientSecret = "BOX_CLIENT_SECRET"
oauth2.RefreshToken = tokens.StringOf("refresh_token")
success = oauth2.RefreshAccessToken
If success <> True Then
    Log(oauth2.LastErrorText)
    Return
End If

success = tokens.Load(oauth2.AccessTokenResponse)
If success <> True Then
    Log(tokens.LastErrorText)
    Return
End If

'  The previous refresh token is now invalid. Preserve this response even if
'  your normal token-store write fails. Do not retry with the old refresh token.
success = tokens.WriteFile("qa_data/tokens/box_oauth.json")
If success <> True Then
    Log(tokens.LastErrorText)
    Return
End If

Log("New access and refresh tokens saved. Do not log their values.")