Xbase++

HTTP HEAD Request

See more HTTP Examples

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

Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oResp
LOCAL nNumHeaderFields
LOCAL i

nSuccess := 0

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

oHttp := 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..

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpNoBody("HEAD", "https://example-code.com/", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Examine the response.
? "Status Code = " + Str(oResp:StatusCode)
? "Status Line = " + oResp:StatusLine
? "Status Text = " + oResp:StatusText
? "Full Response Header:"
? oResp:Header
? "----"
nNumHeaderFields := oResp:NumHeaderFields
? "Num Header Fields: " + Str(nNumHeaderFields)

FOR i := 0 TO nNumHeaderFields - 1
    ? oResp:GetHeaderName(i) + ": " + oResp:GetHeaderValue(i)
NEXT

oHttp:destroy()
oResp:destroy()