(Tcl) Get Response Header for Method that does not Return HttpResponse Object

Demonstrates how to get the response header and individual response header fields for a method that does not return an HTTP response object. (If a method returns an HHTTP response object, then the response header information should be obtained from the response object.)

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]

set strHtml [CkHttp_quickGetStr $http "https://www.duckduckgo.com/"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts [CkHttp_lastResponseHeader $http]

# Here's a sample HTTP response header:

# Server: nginx
# Date: Wed, 30 Sep 2020 13:13:02 GMT
# Content-Type: text/html; charset=UTF-8
# Transfer-Encoding: chunked
# Connection: keep-alive
# Vary: Accept-Encoding
# ETag: W/"5f7371f4-1683"
# Strict-Transport-Security: max-age=31536000
# X-Frame-Options: SAMEORIGIN
# Content-Security-Policy: default-src https: blob: data: 'unsafe-inline' 'unsafe-eval'; frame-ancestors 'self'
# X-XSS-Protection: 1;mode=block
# X-Content-Type-Options: nosniff
# Referrer-Policy: origin
# Expect-CT: max-age=0
# Expires: Wed, 30 Sep 2020 13:13:01 GMT
# Cache-Control: no-cache
# Content-Encoding: gzip

# We can load it into a Chilkat MIME object to get header field values:
set mime [new_CkMime]

set success [CkMime_LoadMime $mime [CkHttp_lastResponseHeader $http]]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkHttp $http
    delete_CkMime $mime
    exit
}

# Get MIME header field values using Chilkat MIME...
puts "----"
puts "ETag: [CkMime_getHeaderField $mime ETag]"

delete_CkHttp $http
delete_CkMime $mime