(PureBasic) Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

    success.i = 0

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    oauth2_access_token.s = "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ"

    sbAccessToken.i = CkStringBuilder::ckCreate()
    If sbAccessToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbAccessToken,oauth2_access_token)

    ; Causes the "Authorization: Bearer <access_token>" header to be added to all HTTP requests.
    CkHttp::ckSetAuthTokenSb(http,sbAccessToken)

    responseText.s = CkHttp::ckQuickGetStr(http,"https://chilkatsoft.com/helloWorld.txt")
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbAccessToken)
        ProcedureReturn
    EndIf

    ; See the HTTP request header that was sent.
    Debug CkHttp::ckLastHeader(http)

    ; 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 ****


    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbAccessToken)


    ProcedureReturn
EndProcedure