El programa Delphi descrito en este ejemplo se utiliza para detectar si la URL es 404, es decir, para detectar si la URL existe o si se puede abrir. Diferentes métodos de verificación arrojarán resultados diferentes.
El código principal del programa es el siguiente:
dirección de unidad; interfaz utiliza Windows, Mensajes, SysUtils, Clases, Gráficos, Controles, Formularios, Diálogos, Psock, NMHttp, StdCtrls, ComCtrls; escriba TForm1 = clase (TForm) Etiqueta1: TLabel; TEdit; Botón1: NMHTTP1: TNMHTTP; ; Barra de estado1: procedimiento TStatusBar; Button1Click(Remitente: TObject); procedimiento NMHTTP1Success(Cmd: CmdType); procedimiento NMHTTP1Failure(Cmd: CmdType); procedimiento NMHTTP1AuthenticationNeeded(Remitente: TObject); NMHTTP1Connect(Remitente: TObject); procedimiento NMHTTP1ConnectionFailed(Remitente: TObject); procedimiento FormActivate(Remitente: TObject); procedimiento FormClose(Remitente: TObject; var Acción: TCloseAction); procedimiento NMHTTP1Redirect(var Manejado: Booleano); TObject; var Clave: Palabra; Shift: TShiftState); privado { Declaraciones privadas } public { Declaraciones públicas } end;var Form1: TForm1;implementación{$R *.DFM}procedimiento TForm1.Button1Click(Remitente: TObject);var url:string;begin url:=Edit1.TextBar1.simpletext:='; Comprobando';NMHTTP1.Head(url);end;procedimiento TForm1.NMHTTP1Success(Cmd: CmdType);comienzo del cmd del caso de CmdHEAD: StatusBar1.SimpleText:='La URL es correcta' end;end;procedimiento TForm1.NMHTTP1Failure(Cmd: CmdType);comienzo del cmd del caso de CmdHEAD: StatusBar1.SimpleText: =' La URL es incorrecta, no existe dicha página' end;end;procedure TForm1.NMHTTP1HostResolved(Sender: TComponent);begin StatusBar1.SimpleText:='El nombre de host se puede resolver correctamente';end;procedure TForm1.NMHTTP1InvalidHost(var Handled: Boolean);begin StatusBar1.SimpleText:='El nombre de host no puede ser resuelto';finalizar; procedimiento TForm1.NMHTTP1AuthenticationNeeded(Remitente: TObject);begin StatusBar1.SimpleText:='Autenticación requerida';end;procedimiento TForm1.NMHTTP1Connect(Remitente: TObject);begin StatusBar1.SimpleText:='Conectar al host';end;procedimiento TForm1.NMHTTP1ConnectionFailed(Remitente: TObject); comenzar StatusBar1.SimpleText:='Error al conectarse al host';end;procedimiento TForm1.FormActivate(Remitente: TObject);begin Edit1.Text:='http://www.';end;procedure TForm1.FormClose(Remitente: TObject; var Acción: TCloseAction);begin NMHTTP1.Destroy;end;procedure TForm1 .NMHTTP1Redirect(var manejada: booleana);comenzar StatusBar1.SimpleText:='Redireccionar a otras páginas';fin;procedimiento TForm1.Edit1KeyDown(Remitente: TObject; var Clave: Word; Shift: TShiftState);comience si Clave=VK_RETURN luego comience StatusBar1.simpletext:='Verificar'; .Cabeza(Editar1.Texto); fin;fin;fin.