DataFlex

Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    String sOauth2_access_token
    Variant vSbAccessToken
    Handle hoSbAccessToken
    String sResponseText
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    Move "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ" To sOauth2_access_token

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbAccessToken
    If (Not(IsComObjectCreated(hoSbAccessToken))) Begin
        Send CreateComObject of hoSbAccessToken
    End
    Get ComAppend Of hoSbAccessToken sOauth2_access_token To iSuccess

    // Causes the "Authorization: Bearer <access_token>" header to be added to all HTTP requests.
    Get pvComObject of hoSbAccessToken to vSbAccessToken
    Get ComSetAuthTokenSb Of hoHttp vSbAccessToken To iSuccess

    Get ComQuickGetStr Of hoHttp "https://chilkatsoft.com/helloWorld.txt" To sResponseText
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // See the HTTP request header that was sent.
    Get ComLastHeader Of hoHttp To sTemp1
    Showln sTemp1

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


End_Procedure