Программа Delphi, описанная в этом примере, используется для определения того, является ли URL-адрес 404, то есть для определения того, существует ли URL-адрес и можно ли его открыть. Различные методы проверки возвращают разные результаты.
Основной код программы следующий:
адрес устройства; интерфейсы используют Windows, сообщения, SysUtils, классы, графику, элементы управления, формы, диалоги, Psock, NMHttp, StdCtrls, ComCtrls; тип TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: NMHTTP1: TNMHTTP; ; СтатусБар1: Процедура ТСтатусБар; Button1Click (Отправитель: TObject); процедура NMHTTP1Success (Cmd: CmdType); процедура NMHTTP1Failure (Cmd: CmdType); процедура NMHTTP1HostResolved (Отправитель: TComponent); процедура NMHTTP1InvalidHost (var Handled: Boolean); процедура NMHTTP1AuthenticationNeeded (Отправитель: TObject); NMHTTP1Connect (Отправитель: TObject); процедура NMHTTP1ConnectionFailed (Отправитель: TObject); процедура FormClose (Отправитель: TObject; var Action: TCloseAction); процедура NMHTTP1Redirect (var Handled: Boolean); процедура Edit1KeyDown (Sender: TObject; var Key: Word; Shift: TShiftState); частный {Частные объявления; } public {публичные объявления} end;var Form1: TForm1;реализация{$R *.DFM}процедура TForm1.Button1Click(Sender: TObject);var url:string;begin url:=Edit1.Text:='; Проверка';NMHTTP1.Head(url);end;процедура TForm1.NMHTTP1Success(Cmd: CmdType);begin case cmd of CmdHEAD: StatusBar1.SimpleText:='URL-адрес правильный' end;end;процедура TForm1.NMHTTP1Failure(Cmd: CmdType);begin 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) ; начало 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;процедура TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if Key=VK_RETURN then start StatusBar1.simpletext:='Verifying' ; .Head(Edit1.Text); конец;конец;конец.