Xbase++

Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL cOauth2_access_token
LOCAL oSbAccessToken
LOCAL cResponseText

nSuccess := 0

oHttp := CreateObject("Chilkat.Http")

cOauth2_access_token := "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ"

oSbAccessToken := CreateObject("Chilkat.StringBuilder")
oSbAccessToken:Append(cOauth2_access_token)

//  Causes the "Authorization: Bearer <access_token>" header to be added to all HTTP requests.
oHttp:SetAuthTokenSb(oSbAccessToken)

cResponseText := oHttp:QuickGetStr("https://chilkatsoft.com/helloWorld.txt")
IF (oHttp:LastMethodSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSbAccessToken:destroy()
    RETURN
ENDIF

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

oHttp:destroy()
oSbAccessToken:destroy()