(DataFlex) HTTPS GET Request with Authorization Bearer Header

See more HTTP Examples

Demonstrates how to send an HTTPS GET request with an "Authorization: Bearer " header and get the text response (which could be JSON).

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sResponseText
    Handle hoJson
    Boolean iSuccess
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

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

    // Setting the AuthToken property causes the "Authorization: Bearer <token>" header to be added to each request.
    // Set AuthToken equal to your token without the keyword "Bearer".
    Set ComAuthToken Of hoHttp To "Your access token"

    // Send the GET request and get the response text (assuming you know beforehand that the response will be text, such as JSON, XML, HTML, etc.)
    Get ComQuickGetStr Of hoHttp "https://www.example.com/something" To sResponseText
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        // This means something failed where you did not get an HTTP response.
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // If you get here, then you received an HTTP response where you can check the response status code, and the responseText will contain
    // the response body.
    Get ComLastStatus Of hoHttp To iTemp1
    Showln "Response status code = " iTemp1
    Get ComLastStatus Of hoHttp To iTemp1
    If (iTemp1 <> 200) Begin
        // Probably an error from the server.  Examine the HTTP response body.
        Showln sResponseText
        Procedure_Return
    End

    // If you get here, the response status code was the expected value indicating success,
    // if you know the response is JSON, you can load it into a Chilkat JSON object and continue ...
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Set ComEmitCompact Of hoJson To True
    Get ComLoad Of hoJson sResponseText To iSuccess
    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    // Use this online tool to generate parsing code from sample JSON: 
    // Generate Parsing Code from JSON

    // ...
    // ...


End_Procedure