この例で説明する Delphi プログラムは、URL が 404 であるかどうかを検出するために使用されます。つまり、URL が存在するかどうか、または開くことができるかどうかを検出するために使用されます。検査方法が異なれば、結果も異なります。
プログラムの主なコードは次のとおりです。
ユニット アドレス; インターフェイスは Windows、メッセージ、SysUtils、クラス、グラフィックス、コントロール、フォーム、ダイアログ、Psock、NMHttp、StdCtrls、ComCtrls を使用します。タイプ TForm1 = class(TForm) Label1: TLabel; Button1: TButton; ; StatusBar1: TStatusBar プロシージャButton1Click(送信者: TObject); プロシージャ NMHTTP1Failure(Cmd: CmdType); プロシージャ NMHTTP1InvalidHost(var Handled: Boolean); プロシージャNMHTTP1Connect(Sender: TObject); プロシージャ NMHTTP1ConnectionFailed(Sender: TObject); プロシージャ FormClose(Sender: TObject; var Action: TCloseAction); プロシージャ Edit1KeyDown(Sender: TObject; var キー: Word; TShiftState); } public { パブリック宣言 } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var url:string;begin url:=Edit1.Text:='チェック中';NMHTTP1.Head(url);終了;プロシージャTForm1.NMHTTP1Success(Cmd: CmdType);CmdHEAD の cmd の開始: StatusBar1.SimpleText:='URL は正しいです' end;end;procedure TForm1.NMHTTP1Failure(Cmd: CmdType);CmdHEAD の cmd の開始: StatusBar1.SimpleText: =' URL が間違っています。そのようなページはありません' end;end;procedure TForm1.NMHTTP1HostResolved(Sender: TComponent);begin StatusBar1.SimpleText:='ホスト名は正しく解決できます';end;procedure 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) ; begin StatusBar1.SimpleText:='ホストへの接続に失敗しました';終了;手順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(処理される変数: ブール値);begin StatusBar1.SimpleText:='他のページにリダイレクト';終了;手順 TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);Key=VK_RETURN の場合に開始、StatusBar1.simpletext:='Verifying' ; .Head(Edit1.Text); 終了;終了;終了。