(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..)

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

LOCAL loHttp
LOCAL loResp
LOCAL lnNumHeaderFields
LOCAL i

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* If the URL uses "https://", then the connection will be TLS.
* Otherwise it will be TCP.
loResp = loHttp.GetHead("https://example-code.com/")
IF (loHttp.LastMethodSuccess <> 1) THEN
    * 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..
    ? loHttp.LastErrorText
    RELEASE loHttp
    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 loResp

RELEASE loHttp