Delphi ActiveX 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.

Delphi ActiveX

var
success: Integer;
tokens: TChilkatJsonObject;
oauth2: TChilkatOAuth2;

begin
success := 0;

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

success := 0;

tokens := TChilkatJsonObject.Create(Self);
success := tokens.LoadFile('qa_data/tokens/box_oauth.json');
if (success <> 1) then
  begin
    Memo1.Lines.Add(tokens.LastErrorText);
    Exit;
  end;
oauth2 := TChilkatOAuth2.Create(Self);
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 <> 1) then
  begin
    Memo1.Lines.Add(oauth2.LastErrorText);
    Exit;
  end;
success := tokens.Load(oauth2.AccessTokenResponse);
if (success <> 1) then
  begin
    Memo1.Lines.Add(tokens.LastErrorText);
    Exit;
  end;
//  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 <> 1) then
  begin
    Memo1.Lines.Add(tokens.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('New access and refresh tokens saved. Do not log their values.');