PowerBuilder

Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Http
string ls_Oauth2_access_token
oleobject loo_SbAccessToken
string ls_ResponseText

li_Success = 0

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

loo_SbAccessToken = create oleobject
li_rc = loo_SbAccessToken.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbAccessToken.Append(ls_Oauth2_access_token)

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

ls_ResponseText = loo_Http.QuickGetStr("https://chilkatsoft.com/helloWorld.txt")
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_SbAccessToken
    return
end if

//  See the HTTP request header that was sent.
Write-Debug loo_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 ****


destroy loo_Http
destroy loo_SbAccessToken