Visual FoxPro

Configure OAuth 2.0 Authentication for REST

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

Background. OAuth 2.0 bearer-token authentication attaches the access token to each request. The token is typically obtained separately through an OAuth 2.0 authorization flow before being assigned to the provider.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnBAutoReconnect
LOCAL loOauth2
LOCAL lcResponseText

lnSuccess = 0

loRest = CreateObject('Chilkat.Rest')
lnBTls = 1
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("example.com",443,lnBTls,lnBAutoReconnect)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

*  Configure OAuth 2.0 bearer-token authentication.  The provider must contain a valid access token.
loOauth2 = CreateObject('Chilkat.OAuth2')
*  Normally you would not hard-code secrets in source.  You should instead obtain them from an
*  interactive prompt, environment variable, or a secrets vault.
loOauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"

*  Associate the provider so Chilkat adds the bearer token to the Authorization header.
lnSuccess = loRest.SetAuthOAuth2(loOauth2)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loOauth2
    CANCEL
ENDIF

lcResponseText = loRest.FullRequestNoBody("GET","/api/resource")
IF (loRest.LastMethodSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loOauth2
    CANCEL
ENDIF

? lcResponseText

RELEASE loRest
RELEASE loOauth2