HTTP GET with Custom Header and OAuth2 Bearer Token

llSuccess = .F.

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

loHttp = createobject("CkHttp")

// Setting the AuthToken property causes the "Authorization: Bearer <token>" header to be adeded.
loHttp.AuthToken = "Just_the_access_token_here"

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

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

// Send the GET request and get the response body in the StringBuilder object.
loSb = createobject("CkStringBuilder")
llSuccess = loHttp.QuickGetSb(lcUrl,loSb)
if (llSuccess <> .T.) then
    ? loHttp.LastErrorText
    release loHttp
    release loSb
    return
endif

? "response status code: " + str(loHttp.LastStatus)
? "response body:"
? loSb.GetAsString()

// If the response contains JSON, you can load it into a Chilkat JSON object...
loJson = createobject("CkJsonObject")
loJson.LoadSb(loSb)
loJson.EmitCompact = .F.
? loJson.Emit()


release loHttp
release loSb
release loJson