Tcl Requires Chilkat v11.0.0+

Get Size of File on Web Server

See more HTTP Examples

Demonstrates how to send a HEAD request to fetch information about a file on a web server, which hopefully includes the Content-Length in the response header. Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "HEAD" "https://nodejs.org/dist/v10.16.1/node-v10.16.1-win-x64.zip" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

#  Examine the response header.
puts [CkHttpResponse_header $resp]

#  Here is a sample response header:

#  Date: Thu, 01 Aug 2019 12:47:27 GMT
#  Content-Type: application/zip
#  Content-Length: 17457922
#  Connection: keep-alive
#  Set-Cookie: __cfduid=da5b78dcdd8171683c5a578eb9c9f88c81564663647; expires=Fri, 31-Jul-20 12:47:27 GMT; path=/; domain=.nodejs.org; HttpOnly
#  Last-Modified: Wed, 31 Jul 2019 18:21:57 GMT
#  ETag: "5d41dc45-10a6302"
#  Accept-Ranges: bytes
#  Expect-CT: max-age=604800, report-uri="https://report-uri.cloudflare.com/cdn-cgi/beacon/expect-ct"
#  Server: cloudflare
#  CF-RAY: 4ff7ebb32ac4e1e2-ORD

#  Get the Content-Length header.
set contentLengthStr [CkHttpResponse_getHeaderField $resp "Content-Length"]
#  If the header exists...
if {[CkHttpResponse_get_LastMethodSuccess $resp] == 1} then {
    puts "Content-Length: $contentLengthStr"
    #  Your application can convert the contentLengthStr to an integer and then use it....
}


delete_CkHttp $http
delete_CkHttpResponse $resp