(Visual FoxPro) HTTP HEAD Request

Sends an HTTP HEAD request and gets the response.

Note: The response to an HTTP HEAD request is always just the response header. The reponse body is always 0 length (thus the reason it's called a "HEAD" request..)

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL lnNumHeaderFields
LOCAL i

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* If the URL uses "https://", then the connection will be TLS.
* Otherwise it will be TCP.

* A failure is when we don't get any response.  It could be a timeout, an inability to connect, etc.
* For example, a "404 Not Found" response is still a response, and thus deemed success in terms of the API..

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("HEAD","https://example-code.com/",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

* Examine the response.
? "Status Code = " + STR(loResp.StatusCode)
? "Status Line = " + loResp.StatusLine
? "Status Text = " + loResp.StatusText
? "Full Response Header:"
? loResp.Header
? "----"
lnNumHeaderFields = loResp.NumHeaderFields
? "Num Header Fields: " + STR(lnNumHeaderFields)

FOR i = 0 TO lnNumHeaderFields - 1
    ? loResp.GetHeaderName(i) + ": " + loResp.GetHeaderValue(i)
NEXT

RELEASE loHttp
RELEASE loResp