Tcl

HTTP Response Inspection

See more HTTP Examples

Demonstrates how to inspect the HTTP response, including the status code, status text, and response headers, for Chilkat methods that don't use an HttpResponse object. Tcl

load ./chilkat.dll

set http [new_CkHttp]

# Returns the contents of the response body.
set jsonText [CkHttp_quickGetStr $http "https://chilkatsoft.com/helloWorld.json"]

# Examine the response status code.
puts "response status code: [CkHttp_get_LastStatus $http]"

# Examine the response status text
puts "response status text: [CkHttp_lastStatusText $http]"

# Examine the full response header.
puts "response header:"
puts [CkHttp_lastResponseHeader $http]
puts "----"

# Examine the response content-type
puts "LastContentType = [CkHttp_lastContentType $http]"

# Examine the response last-mod date
puts "LastModDate = [CkHttp_lastModDate $http]"

# Load the response header into a Chilkat MIME object to access its fields individually.
set mime [new_CkMime]

CkMime_LoadMime $mime [CkHttp_lastResponseHeader $http]

set numHeaders [CkMime_get_NumHeaderFields $mime]
set i 0
puts "---- MIME Headers ----"
while {$i < $numHeaders} {
    puts "name:  [CkMime_getHeaderFieldName $mime $i]"
    puts "value: [CkMime_getHeaderFieldValue $mime $i]"
    set i [expr $i + 1]
}
puts "----"

# Get a header field value by name:
puts "ETag: [CkMime_getHeaderField $mime ETag]"

# Output:

# response status code: 200
# response status text: OK
# response header:
# Content-Type: application/json
# Last-Modified: Sun, 20 Aug 2023 11:36:27 GMT
# Accept-Ranges: bytes
# ETag: "34c27f8e5ad3d91:0"
# Server: Microsoft-IIS/10.0
# X-Powered-By: ASP.NET
# Date: Sat, 30 Aug 2025 14:38:13 GMT
# Content-Length: 22
# ----
# LastContentType = application/json
# LastModDate = 2023-08-20
# ---- MIME Headers ----
# name:  Content-Type
# value: application/json
# name:  Last-Modified
# value: Sun, 20 Aug 2023 11:36:27 GMT
# name:  Accept-Ranges
# value: bytes
# name:  ETag
# value: "34c27f8e5ad3d91:0"
# name:  Server
# value: Microsoft-IIS/10.0
# name:  X-Powered-By
# value: ASP.NET
# name:  Date
# value: Sat, 30 Aug 2025 14:38:13 GMT
# name:  Content-Length
# value: 22
# ----
# ETag: "34c27f8e5ad3d91:0"

delete_CkHttp $http
delete_CkMime $mime