Visual FoxPro

HTTP GET with Custom Header and OAuth2 Bearer Token

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

Chilkat Visual FoxPro Downloads

Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcUrl
LOCAL loSb
LOCAL loJson

lnSuccess = 0

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

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.
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...
loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSb)
loJson.EmitCompact = 0
? loJson.Emit()

RELEASE loHttp
RELEASE loSb
RELEASE loJson