Delphi实现判断网址是否存在及是否可以打开的方法
2014-07-11 14:42
537 查看
本例所述Delphi程序用于检测网址是否为404,也就是检测网址是否存在,或是否可以打开,针对不同的检查方法,会返回不同的结果。
程序主要代码如下:
unit address; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Psock, NMHttp, StdCtrls, ComCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; NMHTTP1: TNMHTTP; StatusBar1: TStatusBar; procedure Button1Click(Sender: TObject); procedure NMHTTP1Success(Cmd: CmdType); procedure NMHTTP1Failure(Cmd: CmdType); procedure NMHTTP1HostResolved(Sender: TComponent); procedure NMHTTP1InvalidHost(var Handled: Boolean); procedure NMHTTP1AuthenticationNeeded(Sender: TObject); procedure NMHTTP1Connect(Sender: TObject); procedure NMHTTP1ConnectionFailed(Sender: TObject); procedure FormActivate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure NMHTTP1Redirect(var Handled: Boolean); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var url:string; begin url:=Edit1.Text; StatusBar1.simpletext:='正在检验'; NMHTTP1.Head(url); end; procedure TForm1.NMHTTP1Success(Cmd: CmdType); begin case cmd of CmdHEAD: StatusBar1.SimpleText:='网址正确' end; end; procedure TForm1.NMHTTP1Failure(Cmd: CmdType); begin case cmd of CmdHEAD: StatusBar1.SimpleText:='网址不正确,没有这个页面' end; end; procedure TForm1.NMHTTP1HostResolved(Sender: TComponent); begin StatusBar1.SimpleText:='正确解析主机名'; end; procedure TForm1.NMHTTP1InvalidHost(var Handled: Boolean); begin StatusBar1.SimpleText:='不能解析主机名'; end; procedure TForm1.NMHTTP1AuthenticationNeeded(Sender: TObject); begin StatusBar1.SimpleText:='需要身份验证'; end; procedure TForm1.NMHTTP1Connect(Sender: TObject); begin StatusBar1.SimpleText:='连接到主机'; end; procedure TForm1.NMHTTP1ConnectionFailed(Sender: TObject); begin 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; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then begin StatusBar1.simpletext:='正在检验'; NMHTTP1.Head(Edit1.Text); end; end; end.
您可能感兴趣的文章:
相关文章推荐
- Delphi_判断Webbrowser打开的网页组件是否存在?
- 简单的方法实现判断Mysql内某个字段Fields是否存在
- Android开发实现判断通知栏是否打开及前往设置页面的方法
- JS实现的判断方法、变量是否存在功能示例
- 原生js实现增加(addclass),删除(removeclass),判断是否存在(hasclass),如果存在删除,如果不存在添加(toggleclass)和获取类名(getbyclass)的方法
- 用js方法判断某个js方法是否存在,如果存在就执行的实现
- 简单的方法实现判断Mysql内某个字段Fields是否存在
- Delphi_判断Webbrowser打开的网页组件是否存在?
- 在进行C#编程时候,有的时候我们需要判断一个字符串是否是数字字符串,我们可以通过以下两种方法来实现。 【方法一】:使用 try{} catch{} 语句。 我们可以在try语句块中试图
- Android编程判断SD卡是否存在及使用容量查询实现方法
- Java编程实现判断网上邻居文件是否存在的方法
- 答案错误!!!判断有向图是否存在回路,除了可以利用拓扑排序方法外,还可以利用()
- 2014-03-31工作日志:判断文件是否存在可以使用GetFileAttributes 方法。
- 用Sql添加删除字段,判断字段是否存在的方法
- 判断一个字符串是否全是数字的多种方法及其性能比较(C#实现)
- VC中判断目录,文件是否存在,创建目录的方法
- 判断文件夹是否存在的方法,以及创建文件夹
- ASP 判断Session变量是否存在的4种方法
- 判断临时表是否存在的俩方法
- 原创Ajax实现无刷新判断用户是否可以注册