B4X

Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method. B4X

Dim success As Boolean = False

Dim http As ChilkatHttp
http.Initialize("http")

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

Dim sbAccessToken As ChilkatStringBuilder
sbAccessToken.Initialize
sbAccessToken.Append(oauth2_access_token)

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

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


'  See the HTTP request header that was sent.
Log(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 ****