Xojo Plugin

Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method. Xojo Plugin

Dim success As Boolean
success = False

Dim http As New Chilkat.Http

Dim oauth2_access_token As String
oauth2_access_token = "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ"

Dim sbAccessToken As New Chilkat.StringBuilder
success = sbAccessToken.Append(oauth2_access_token)

// Causes the "Authorization: Bearer <access_token>" header to be added to all HTTP requests.
success = http.SetAuthTokenSb(sbAccessToken)

Dim responseText As String
responseText = http.QuickGetStr("https://chilkatsoft.com/helloWorld.txt")
If (http.LastMethodSuccess = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// See the HTTP request header that was sent.
System.DebugLog(http.LastHeader)

// Output:
// 
// GET /helloWorld.txt HTTP/1.1
// Host: chilkatsoft.com
// Accept: */*
// Accept-Encoding: gzip
// Authorization: Bearer ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ

// Note: Starting in v11.2.0, the information that should be kept secret in the Authorization header
// will be redacted.  Thus, in Chilkat v11.2.0 and later, the LastHeader property will show the following:

// Authorization: Bearer ****