(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

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

    ; 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".
    CkHttp::setCkAuthToken(http, "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.)
    responseText.s = CkHttp::ckQuickGetStr(http,"https://www.example.com/something")
    If CkHttp::ckLastMethodSuccess(http) = 0
        ; This means something failed where you did not get an HTTP response.
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; 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.
    Debug "Response status code = " + Str(CkHttp::ckLastStatus(http))
    If CkHttp::ckLastStatus(http) <> 200
        ; Probably an error from the server.  Examine the HTTP response body.
        Debug responseText
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; 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 ...
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::setCkEmitCompact(json, 1)
    CkJsonObject::ckLoad(json,responseText)
    Debug CkJsonObject::ckEmit(json)

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

    ; ...
    ; ...


    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure