يتم استخدام برنامج دلفي الموصوف في هذا المثال لاكتشاف ما إذا كان عنوان URL هو 404، أي لاكتشاف ما إذا كان عنوان URL موجودًا أو ما إذا كان من الممكن فتحه، وستؤدي طرق التحقق المختلفة إلى نتائج مختلفة.
الكود الرئيسي للبرنامج هو كما يلي:
عنوان الوحدة؛ يستخدم Windows، الرسائل، SysUtils، الفئات، الرسومات، عناصر التحكم، النماذج، مربعات الحوار، Psock، NMHttp، StdCtrls، ComCtrls؛ اكتب TForm1 = class(TForm) Label1: TLabel; ؛ StatusBar1: إجراء TStatusBar Button1click (Sender: Orgense) ؛ TP1Authenticationneeded (المرسل: TOBJECT) ؛ NMHTTP1Connect(Sender: TObject); الإجراء NMHTTP1ConnectionFailed(Sender: TObject); الإجراء FormActivate(Sender: TObject); الإجراء FormClose(Sender: TObject; var Action: TCloseAction); TObject; var Key: Word; Shift: TShiftState); } public { الإعلانات العامة } end;var Form1: TForm1;implementation{$R *.DFM} الإجراء TForm1.Button1Click(Sender: TObject);var url:string;begin url:=Edit1.Text StatusBar1.simpletext:=' التحقق';NMHTTP1.Head(url);end;procedure TForm1.NMHTTP1Success(Cmd: CmdType);بدء حالة cmd لـ CmdHEAD: StatusBar1.SimpleText:='عنوان URL صحيح' end;end;إجراء TForm1.NMHTTP1Failure(Cmd: CmdType);بدء حالة 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(Sender: TObject);begin StatusBar1.SimpleText:='المصادقة مطلوبة';end;الإجراء TForm1.NMHTTP1Connect(Sender: TObject);begin StatusBar1.SimpleText:='الاتصال بالمضيف';end;الإجراء TForm1.NMHTTP1ConnectionFailed(Sender: TObject) ; begin StatusBar1.SimpleText:='فشل الاتصال بالمضيف';end;procedure TForm1.FormActivate(Sender: TObject);begin Edit1.Text:='http://www.';end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin NMHTTP1.Destroy;end;procedure TForm1 .NMHTTP1Redirect(var Handled: Boolean);begin StatusBar1.SimpleText:='إعادة التوجيه إلى صفحات أخرى';end;procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);ابدأ إذا كان Key=VK_RETURN ثم ابدأ StatusBar1.simpletext:='Verifying' ; .Head(Edit1.Text);نهاية;نهاية;نهاية.