Checking the HTTP Response Status Code

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.

Download Chilkat HTTP ActiveX

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