Get Size of Download using HTTP HEAD

Get the size of a download using an HTTP HEAD request.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL loResp
LOCAL lcSizeStr

loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

loResp = loHttp.GetHead("http://www.chilkatsoft.com/download/ChilkatDotNet2.msi")
IF (loResp = NULL ) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
ELSE

    lcSizeStr = loResp.GetHeaderField("Content-Length")
    IF (lcSizeStr = NULL ) THEN
        =MESSAGEBOX("No content-length header field")
    ELSE
        *  Show the size of the file.
        *  You may convert the size string to an integer...
        =MESSAGEBOX(lcSizeStr)
    ENDIF

ENDIF