Check File Size using HEAD Request

Demonstrates how to quickly check the size of an HTTP download by using the HEAD request.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL loResponse

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

*  Send a HEAD request to get the response header:

loResponse = loHttp.GetHead("http://www.chilkatsoft.com/download/ChilkatDotNet2.msi")

IF (loResponse = NULL ) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
ELSE

    *  The ContentLength property of the HTTP response is
    *  the size of the remote file:
    ? "Size of download = " + loResponse.ContentLength

ENDIF