HTTP GET with Custom Header and OAuth2 Bearer Token

LOCAL nSuccess
LOCAL oHttp
LOCAL cUrl
LOCAL oSb
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 adeded.
oHttp:AuthToken := "Just_the_access_token_here"

//  Add one or more custom headers..
oHttp:SetRequestHeader("X-Tenant-ID", "value goes here")
oHttp:SetRequestHeader("blah-blah-blah", "value goes here")

cUrl := "https://www.example.com/abc/123?x=something&y=someOtherThing"

//  Send the GET request and get the response body in the StringBuilder object.
oSb := CreateObject("Chilkat.StringBuilder")
nSuccess := oHttp:QuickGetSb(cUrl, oSb)
IF (nSuccess != 1)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSb:destroy()
    RETURN
ENDIF

? "response status code: " + Str(oHttp:LastStatus)
? "response body:"
? oSb:GetAsString()

//  If the response contains JSON, you can load it into a Chilkat JSON object...
oJson := CreateObject("Chilkat.JsonObject")
oJson:LoadSb(oSb)
oJson:EmitCompact := 0
? oJson:Emit()

oHttp:destroy()
oSb:destroy()
oJson:destroy()