HTTP HEAD Request

Simple HTTP HEAD request to download only the HTTP header.

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 the HEAD request and get the response.

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

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

    *  Show the HTTP response code and header received.
    ? "HTTP response code: "
    ? loResponse.StatusCode

    ? "---- FULL HEADER ----"
    ? loResponse.Header
    ? "---------------------"

    *  How big will the full response be?  This is a good way to
    *  check the size of a download (if the URL is a .zip)
    ? "Size of resource = " + loResponse.ContentLength

ENDIF