Xojo Plugin

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 Xojo Plugin Downloads

Download Chilkat for Xojo Plugin

Xojo Plugin

Dim success As Boolean
success = False

Dim rest As New Chilkat.Rest
Dim bTls As Boolean
bTls = True
Dim bAutoReconnect As Boolean
bAutoReconnect = True
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

//  Configure OAuth 2.0 bearer-token authentication.  The provider must contain a valid access token.
Dim oauth2 As New 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.
oauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"

//  Associate the provider so Chilkat adds the bearer token to the Authorization header.
success = rest.SetAuthOAuth2(oauth2)
If (success = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim responseText As String
responseText = rest.FullRequestNoBody("GET","/api/resource")
If (rest.LastMethodSuccess = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

System.DebugLog(responseText)