(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Setting the AuthToken property causes the "Authorization: Bearer <token>" header to be adeded.
CkHttp_put_AuthToken $http "Just_the_access_token_here"

# Add one or more custom headers..
CkHttp_SetRequestHeader $http "X-Tenant-ID" "value goes here"
CkHttp_SetRequestHeader $http "blah-blah-blah" "value goes here"

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

# Send the GET request and get the response body in the StringBuilder object.
set sb [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http $url $sb]
if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sb
    exit
}

puts "response status code: [CkHttp_get_LastStatus $http]"
puts "response body:"
puts [CkStringBuilder_getAsString $sb]

# If the response contains JSON, you can load it into a Chilkat JSON object...
set json [new_CkJsonObject]

CkJsonObject_LoadSb $json $sb
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

delete_CkHttp $http
delete_CkStringBuilder $sb
delete_CkJsonObject $json