โปรแกรม Delphi ที่อธิบายในตัวอย่างนี้ใช้เพื่อตรวจสอบว่า URL เป็น 404 หรือไม่ กล่าวคือ เพื่อตรวจสอบว่ามี URL อยู่หรือสามารถเปิดได้หรือไม่ วิธีการตรวจสอบที่แตกต่างกันจะให้ผลลัพธ์ที่แตกต่างกัน
รหัสหลักของโปรแกรมมีดังนี้:
ที่อยู่ของหน่วย อินเทอร์เฟซ Windows, ข้อความ, SysUtils, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, Psock, NMHttp, StdCtrls, ComCtrls; พิมพ์ TForm1 = class (TForm) Label1: TLabel; Edit1: TButton; ; StatusBar1: ขั้นตอน TStatus; Button1Click (ผู้ส่ง: TObject); ขั้นตอน NMHTTP1InvalidHost (var จัดการ: บูลีน); NMHTTP1Connect (ผู้ส่ง: TObject); ขั้นตอน NMHTTP1ConnectionFailed (var จัดการ: Boolean); TObject; var Key: Word; Shift: TShiftState); ส่วนตัว { } สาธารณะ { ประกาศสาธารณะ } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var url:string;begin url:=Edit1.Text; StatusBar1.simpletext:=' กำลังตรวจสอบ ';NMHTTP1.Head(url);end;ขั้นตอน TForm1.NMHTTP1Success (Cmd: CmdType); เริ่มต้น case cmd ของ CmdHEAD: StatusBar1.SimpleText: = 'URL ถูกต้อง' end; end; ขั้นตอน TForm1.NMHTTP1Failure (Cmd: CmdType); เริ่มต้น case cmd ของ CmdHEAD: StatusBar1.SimpleText: =' URL ไม่ถูกต้อง ไม่มีหน้าดังกล่าว' end;end;procedure TForm1.NMHTTP1HostResolved(Sender: TComponent);begin StatusBar1.SimpleText:='ชื่อโฮสต์สามารถแก้ไขได้อย่างถูกต้อง';end;ขั้นตอน TForm1.NMHTTP1InvalidHost(var Handled: Boolean);begin StatusBar1.SimpleText:='ชื่อโฮสต์ไม่สามารถ แก้ไขแล้ว '; สิ้นสุด; ขั้นตอน TForm1.NMHTTP1AuthenticationNeeded (ผู้ส่ง: TObject);begin StatusBar1.SimpleText:='ต้องมีการรับรองความถูกต้อง';end;ขั้นตอน TForm1.NMHTTP1Connect(Sender: TObject);begin StatusBar1.SimpleText:='เชื่อมต่อกับโฮสต์';end;ขั้นตอน TForm1.NMHTTP1ConnectionFailed(Sender: TObject) ; start StatusBar1.SimpleText:='ไม่สามารถเชื่อมต่อกับโฮสต์';สิ้นสุด;ขั้นตอน TForm1.FormActivate (ผู้ส่ง: TObject); เริ่มต้น Edit1.Text: = 'http://www.'; end; ขั้นตอน TForm1.FormClose (ผู้ส่ง: TObject; var Action: TCloseAction); เริ่มต้น NMHTTP1.Destroy; end; ขั้นตอน TForm1 .NMHTTP1Redirect(var จัดการ: บูลีน);begin StatusBar1.SimpleText:='เปลี่ยนเส้นทางไปยังหน้าอื่น';end;ขั้นตอน TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if Key=VK_RETURN then start StatusBar1.simpletext:='Verifying' ; .Head(Edit1.Text); end;end;end.