(Visual FoxPro) Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcOauth2_access_token
LOCAL loSbAccessToken
LOCAL lcResponseText

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

lcOauth2_access_token = "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ"

loSbAccessToken = CreateObject('Chilkat.StringBuilder')
loSbAccessToken.Append(lcOauth2_access_token)

* Causes the "Authorization: Bearer <access_token>" header to be added to all HTTP requests.
loHttp.SetAuthTokenSb(loSbAccessToken)

lcResponseText = loHttp.QuickGetStr("https://chilkatsoft.com/helloWorld.txt")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbAccessToken
    CANCEL
ENDIF

* See the HTTP request header that was sent.
? loHttp.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 ****

RELEASE loHttp
RELEASE loSbAccessToken