이 예에서 설명하는 Delphi 프로그램은 URL이 404인지 여부, 즉 URL이 존재하는지 또는 열 수 있는지 여부를 감지하는 데 사용됩니다. 검사 방법에 따라 결과도 달라집니다.
프로그램의 주요 코드는 다음과 같습니다.
장치 주소;인터페이스는 Windows, 메시지, SysUtils, 클래스, 그래픽, 컨트롤, 양식, 대화 상자, Psock, NMHttp, StdCtrls, ComCtrls를 사용합니다. TForm1 = class(TForm) Label1: TLabel: TEdit Button1: TButton; ; StatusBar1: TStatusBar; Button1Click(Sender: TObject); 프로시저 NMHTTP1Failure(Cmd: CmdType); 프로시저 NMHTTP1InvalidHost(var Handled: TObject); NMHTTP1Connect(Sender: TObject); 프로시저 NMHTTP1ConnectionFailed(Sender: TObject); 프로시저 FormClose(Sender: TObject; var Action: TCloseAction); 프로시저 Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 개인 선언 } public { 공개 선언 } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var url:string;begin url:=Edit1.Text:=' ';NMHTTP1.Head(url);end;절차 확인 중 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.NMHTTP1인증 필요(발신자: TObject);begin StatusBar1.SimpleText:='인증 필요';end;절차 TForm1.NMHTTP1Connect(Sender: TObject);begin StatusBar1.SimpleText:='호스트에 연결';end;절차 TForm1.NMHTTP1ConnectionFailed(Sender: TObject) ; start 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 처리됨: 부울);시작 StatusBar1.SimpleText:='다른 페이지로 리디렉션';end;절차 TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Key=VK_RETURN인 경우 시작하고 StatusBar1.simpletext:='확인 중' ; .Head(Edit1.Text); 끝;끝;끝.