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

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATHTTPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
success: Integer;
html: String;
status: Integer;

begin
http := TChilkatHttp.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := http.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(http.LastErrorText);

  end;

//  Send the HTTP GET and return the content in a string.

html := http.QuickGetStr('http://www.google.com/');

status := http.LastStatus;

if (status = 200) then
  begin
    Memo1.Lines.Add('status = 200, OK!');
  end
else
  begin
    Memo1.Lines.Add('HTTP Response status = '
         + IntToStr(status));

    //  Display the complete response header.
    Memo1.Lines.Add(http.LastResponseHeader);
  end;

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

status := http.LastStatus;

if (status = 200) then
  begin
    Memo1.Lines.Add('status = 200, OK!');
  end
else
  begin
    Memo1.Lines.Add('HTTP Response status = '
         + IntToStr(status));

    //  Display the complete response header.
    Memo1.Lines.Add(http.LastResponseHeader);
  end;
end;