Configure OAuth 2.0 Authentication for REST

See more REST Examples

Demonstrates Rest.SetAuthOAuth2, which associates an OAuth2 provider containing a valid access token so Chilkat adds the bearer token to the Authorization header.

var
success: Boolean;
rest: HCkRest;
bTls: Boolean;
bAutoReconnect: Boolean;
oauth2: HCkOAuth2;
responseText: PWideChar;

begin
success := False;

rest := CkRest_Create();
bTls := True;
bAutoReconnect := True;
success := CkRest_Connect(rest,'example.com',443,bTls,bAutoReconnect);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

//  Configure OAuth 2.0 bearer-token authentication.  The provider must contain a valid access token.
oauth2 := CkOAuth2_Create();
//  Normally you would not hard-code secrets in source.  You should instead obtain them from an
//  interactive prompt, environment variable, or a secrets vault.
CkOAuth2_putAccessToken(oauth2,'OAUTH2_ACCESS_TOKEN');

//  Associate the provider so Chilkat adds the bearer token to the Authorization header.
success := CkRest_SetAuthOAuth2(rest,oauth2);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

responseText := CkRest__fullRequestNoBody(rest,'GET','/api/resource');
if (CkRest_getLastMethodSuccess(rest) = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;
Memo1.Lines.Add(responseText);

CkRest_Dispose(rest);
CkOAuth2_Dispose(oauth2);