(Visual FoxPro) Add Custom Header to HTTP GET

Demonstrates how to add a custom HTTP request header to an HTTP GET. This is not a request parameter, but is a header added to the MIME header of the HTTP request.

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

LOCAL loChilkatGlob
LOCAL lnSuccess
LOCAL loHttp
LOCAL lcHtml

* All Chilkat classes can be unlocked at once at the beginning of a program
* by calling UnlockBundle.  It requires a Bundle unlock code.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Global')
loChilkatGlob = CreateObject('Chilkat.Global')
lnSuccess = loChilkatGlob.UnlockBundle("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    ? loChilkatGlob.LastErrorText
    RELEASE loChilkatGlob
    CANCEL
ENDIF

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

* Add a custom header.  The MIME field name is "X-CSRF-Token", and the 
* header field value is "Fetch".
loHttp.SetRequestHeader("X-CSRF-Token","Fetch")

* Send the HTTP GET and return the content in a string.

lcHtml = loHttp.QuickGetStr("http://www.galapagos.org/")

? lcHtml

RELEASE loChilkatGlob
RELEASE loHttp