Das in diesem Beispiel beschriebene Delphi-Programm wird verwendet, um zu erkennen, ob die URL 404 ist, d. h. um zu erkennen, ob die URL existiert oder ob sie geöffnet werden kann. Verschiedene Prüfmethoden liefern unterschiedliche Ergebnisse.
Der Hauptcode des Programms lautet wie folgt:
Einheitenadresse; Schnittstellen: Windows, Nachrichten, Steuerelemente, Formulare, Dialoge, Psock, NMHttp, StdCtrls, ComCtrls; Typ TForm1 = Klasse (TForm) Label1: TLabel; Button1: TButton; NMHTTP1: TNMHTTP ; StatusBar1: TStatusBar-Prozedur; Button1Click(Sender: TObject); procedure NMHTTP1Failure(Cmd: CmdType); procedure NMHTTP1InvalidHost(var Handled: Boolean); NMHTTP1Connect(Sender: TObject); procedure FormActivate(Sender: TObject); procedure FormClose(Sender: TObject); procedure NMHTTP1Redirect(var Handled: Boolean); TObject; var Key: Word; Shift: TShiftState); private { Private Deklarationen } public { Öffentliche Deklarationen } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var url:string;begin url:=Edit1.Text:=' Überprüfung';NMHTTP1.Head(url);Ende;Prozedur TForm1.NMHTTP1Success(Cmd: CmdType);begin case cmd of CmdHEAD: StatusBar1.SimpleText:='Die URL ist korrekt' end;end;procedure TForm1.NMHTTP1Failure(Cmd: CmdType);begin case cmd of CmdHEAD: StatusBar1.SimpleText: =' Die URL ist falsch, es gibt keine solche Seite' end;end;procedure TForm1.NMHTTP1HostResolved(Sender: TComponent);begin StatusBar1.SimpleText:='Der Hostname kann korrekt aufgelöst werden';end;procedure TForm1.NMHTTP1InvalidHost(var Handled: Boolean);begin StatusBar1.SimpleText:='Der Hostname kann nicht aufgelöst werden gelöst';Ende; Prozedur TForm1.NMHTTP1AuthenticationNeeded(Sender: TObject);begin StatusBar1.SimpleText:='Authentifizierung erforderlich';end;procedure TForm1.NMHTTP1Connect(Sender: TObject);begin StatusBar1.SimpleText:='Mit Host verbinden';end;procedure TForm1.NMHTTP1ConnectionFailed(Sender: TObject) ; begin StatusBar1.SimpleText:='Verbindung zum Host fehlgeschlagen';end;prozedur 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:='Zu anderen Seiten umleiten';end;procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if Key=VK_RETURN then begin StatusBar1.simpletext:='Verifying' ; .Head(Edit1.Text); Ende;Ende;Ende.