(PowerBuilder) 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

integer li_rc
oleobject loo_ChilkatGlob
integer li_Success
oleobject loo_Http
string ls_Html

// All Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
loo_ChilkatGlob = create oleobject
// Use "Chilkat_9_5_0.Global" for versions of Chilkat < 10.0.0
li_rc = loo_ChilkatGlob.ConnectToNewObject("Chilkat.Global")
if li_rc < 0 then
    destroy loo_ChilkatGlob
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_ChilkatGlob.UnlockBundle("Anything for 30-day trial.")
if li_Success <> 1 then
    Write-Debug loo_ChilkatGlob.LastErrorText
    destroy loo_ChilkatGlob
    return
end if

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

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

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

ls_Html = loo_Http.QuickGetStr("http://www.galapagos.org/")

Write-Debug ls_Html


destroy loo_ChilkatGlob
destroy loo_Http