Checking the HTTP Response Status Code

Download Chilkat HTTP ActiveX

Simple HTTP GET request to download the HTML of a web page. Check the HTTP response status code (i.e. 200, 404, etc) to see if it downloaded successfully.

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcHtml
LOCAL lnStatus

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 HTTP GET and return the content in a string.

lcHtml = loHttp.QuickGetStr("http://www.google.com/")

lnStatus = loHttp.LastStatus

IF (lnStatus = 200) THEN
    ? "status = 200, OK!"
ELSE
    ? "HTTP Response status = " + STR(lnStatus)

    * Display the complete response header.
    ? loHttp.LastResponseHeader
ENDIF

* Now try a URL where we know we'll get a 404 response:
lcHtml = loHttp.QuickGetStr("http://www.chilkatsoft.com/NothingHere.html")

lnStatus = loHttp.LastStatus

IF (lnStatus = 200) THEN
    ? "status = 200, OK!"
ELSE
    ? "HTTP Response status = " + STR(lnStatus)

    * Display the complete response header.
    ? loHttp.LastResponseHeader
ENDIF