Le programme Delphi décrit dans cet exemple est utilisé pour détecter si l'URL est 404, c'est-à-dire pour détecter si l'URL existe ou si elle peut être ouverte. Différentes méthodes de vérification renverront des résultats différents.
Le code principal du programme est le suivant :
adresse de l'unité ; interface utilise Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Psock, NMHttp, StdCtrls, ComCtrls ; tapez TForm1 = class(TForm) Label1 : TLabel ; TEdit Button1 : NMHTTP1 : TNMHTTP ; ; StatusBar1 : TStatusBar ; Button1Click (Expéditeur : TObject); procédure NMHTTP1Success (Cmd : CmdType); procédure NMHTTP1Failure (Cmd : CmdType); procédure NMHTTP1HostResolved (Expéditeur : TObject) ; NMHTTP1Connect(Expéditeur : TObject) ; procédure NMHTTP1ConnectionFailed(Expéditeur : TObject) ; procédure FormActivate(Expéditeur : TObject) ; procédure FormClose(Expéditeur : TObject ; var Action : TCloseAction) ; procédure NMHTTP1Redirect(var Handled : Boolean) ; TObject ; var Clé : Word ; Shift : TShiftState); private { Déclarations privées } public { Déclarations publiques } end;var Form1: TForm1;implementation{$R *.DFM}procédure TForm1.Button1Click(Sender: TObject);var url:string;begin url:=Edit1.Text; StatusBar1.simpletext:=' Vérification';NMHTTP1.Head(url);fin;procédure TForm1.NMHTTP1Success(Cmd: CmdType);begin case cmd de CmdHEAD: StatusBar1.SimpleText:='L'URL est correcte' end;end;procédure TForm1.NMHTTP1Failure(Cmd: CmdType);begin case cmd de CmdHEAD: StatusBar1.SimpleText: =' L'URL est incorrecte, cette page n'existe pas' end;end;procedure TForm1.NMHTTP1HostResolved(Sender: TComponent);begin StatusBar1.SimpleText:='Le nom d'hôte peut être résolu correctement';end;procedure TForm1.NMHTTP1InvalidHost(var Handled: Boolean);begin StatusBar1.SimpleText:='Le nom d'hôte ne peut pas être résolu';fin; procédure TForm1.NMHTTP1AuthenticationNeeded(Expéditeur : TObject) ; start StatusBar1.SimpleText:='Échec de la connexion à l'hôte';end;procédure TForm1.FormActivate(Expéditeur : TObject);begin Edit1.Text:='http://www.';end;procedure TForm1.FormClose(Expéditeur: TObject; var Action: TCloseAction);begin NMHTTP1.Destroy;end;procedure TForm1 .NMHTTP1Redirect(var gérée : booléenne);commencer StatusBar1.SimpleText:='Redirection vers d'autres pages';end;procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);commencer si Key=VK_RETURN puis commencer StatusBar1.simpletext:='Verifying' ; .Head(Edit1.Text);fin;fin;fin.