(Visual FoxPro) HTTP GET with Custom Header and OAuth2 Bearer Token

See more HTTP Examples

Demonstrate how to send a GET request with customer headers and an "Authorization: Bearer " header.

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

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcUrl
LOCAL loSb
LOCAL loJson

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb(lcUrl,loSb)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSb
    CANCEL
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...
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSb)
loJson.EmitCompact = 0
? loJson.Emit()

RELEASE loHttp
RELEASE loSb
RELEASE loJson