HTTPS GET Request with Authorization Bearer Header

LOCAL nSuccess
LOCAL oHttp
LOCAL cResponseText
LOCAL oJson

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  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".
oHttp:AuthToken := "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.)
cResponseText := oHttp:QuickGetStr("https://www.example.com/something")
IF (oHttp:LastMethodSuccess == 0)
    //  This means something failed where you did not get an HTTP response.
    ? oHttp:LastErrorText
    oHttp:destroy()
    RETURN
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.
? "Response status code = " + Str(oHttp:LastStatus)
IF (oHttp:LastStatus != 200)
    //  Probably an error from the server.  Examine the HTTP response body.
    ? cResponseText
    oHttp:destroy()
    RETURN
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 ...
oJson := CreateObject("Chilkat.JsonObject")
oJson:EmitCompact := 1
oJson:Load(cResponseText)
? oJson:Emit()

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

//  ...
//  ...

oHttp:destroy()
oJson:destroy()