编程动动手，Ping程序“跟你走”！[原创]_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

编程动动手，Ping程序“跟你走”！[原创]

作者：闵涛文章来源：闵涛的学习笔记点击数：862 更新时间：2009/4/23 18:39:51

<BODY>

<A HREF="http://home.donews.com/cgi-bin/article.fcgi?sw=77&articleid=23075">编程动动手，Ping程序“跟你走”！[原创]</A> 
---用Delphi打造图形界面的Ping程序[原创]
★ 中共河南省济源市委党校，耿百强 
 
摘要：本文主要介绍利用Delphi6实现一个图形界面Ping程序的方法，其中主要讨论了ICMP协议和ICMP协议控件及其编程方法，并给出了一个实例程序。解决了Ping命令行程序的缺点。 
关键词：Delphi，ICMP协议，Ping程序
一、前言 
在日常网络管理时，我们常用Ping命令来测试是否能与宿主（或路由）连通。但它一般是以命令行的形式提供给我们，不仅使用不方便，而且命令执行速度较快时，常常使我们看不清执行结果。那么，有没有办法来解决这个矛盾呢？答案当然是肯定的。下面，我们将利用Delphi强大的网络编程功能来实现一个图形化的Ping程序，程序的运行界面如图1所示。 
 
<IMG BORDER="0" SRC="http://www.jyzx.com/bbs/pic/jpg.gif" WIDTH="16" HEIGHT="16">此主题相关图片如下： 
<A HREF="http://www.jyzx.com/bbs/uploadImages/20023813304786592.jpg" TARGET="_blank"><IMG ALT="按此在新窗口浏览图片" BORDER="0" ONLOAD="javascript:if(this.width>screen.width-333)this.width=screen.width-333" SRC="http://www.jyzx.com/bbs/uploadImages/20023813304786592.jpg" WIDTH="467"></A> 
程序的主要功能：在Address后的编辑框中可以输入一个计算机的名称或者IP地址，然后按Ping按钮或直接按回车可以测试与宿主计算机的连通性，如果连能正常，则在下面的列表框中显示宿主计算机的IP地址等信息。可以通过Clear功能按钮实现对列表框信息的清除。 
二、编程原理 
ICMP（Internet Control Messages Protocol）是Internet信报控制协议的简写，它将报文放在一个IP数据报的数据部分中通过网络传送，该协议允许路由器向其它的路由器或者主机发送并且回收差错与控制报文，它为发生差错的路由器提供了向源端报告差错的功能。连通性测试程序Ping正是利用了ICMP协议的这种特性，通过向目的端（宿主）发送并且回收信报来测试端到端的连通性。 
Delphi6.0新增了Indy网络控件组，包括了几乎所有的网络协议控件，比如SMTP、POP3、SNMP及ICMP等，避免了程序员直接与WinSocket打交道，大大方便了我们编写网络程序。Indy控件组分为Server和Clent两部分，以适应我们编写不同的服务器/工作站程序。我们可以很方便的在Indy Clent中找到ICMP协议控件TidIcmpClient。 
TidIcmpClient控件的常用属性如下： 
HOST：宿主计算机的IP地址，可以是计算机的名字或者IP地址； 
Port：表示接收报文的本地系统的端口号； 
ReceiveTimeout：表示连接等待宿主计算机回应的最大时间，单位是毫秒。 
TidIcmpClient控件的主要方法： 
Ping()：检测本地计算机与宿主计算机的连通性。 
TidIcmpClient控件的主要事件： 
OnICMPReply(ASender: TComponent; const AReplyStatus: TReplyStatus)：在本地计算机接收到宿主计算机回应时触发，回收消息放在对象AreplyStatus中。 
三、编程实现 
下面我们就来制作一个图形界面的Ping程序。 
1、启动Delphi6.0，打开一个新的标准工程。在窗体中添加所需的控件。 
首先向窗体顶端添加一个Panel控件，在其上再依次添加一个Label、Edit和两个Button控件，并修改Button控件的标题为“Ping”和“Clear”，然后再在Panel下面添加一个ListBox控件，最后再添加一个ICMP控件，并修改其名字属性为“ICMP”。依次设置其有关的属性等，修改后的窗体界面如图2所示。 
 
<IMG BORDER="0" SRC="http://www.jyzx.com/bbs/pic/jpg.gif" WIDTH="16" HEIGHT="16">此主题相关图片如下： 
<A HREF="http://www.jyzx.com/bbs/uploadImages/20023813315035522.jpg" TARGET="_blank"><IMG ALT="按此在新窗口浏览图片" BORDER="0" ONLOAD="javascript:if(this.width>screen.width-333)this.width=screen.width-333" SRC="http://www.jyzx.com/bbs/uploadImages/20023813315035522.jpg" WIDTH="442" HEIGHT="293"></A> 
 
2、Edit1控件是实现IP地址或者计算机名字的输入的， Button1则是实现Ping功能的，将其Default属性设为True，这样当用户按下回车键时，可以直接实现Ping功能。其主要的代码段如下： 
procedure TForm1.Button1Click(Sender: TObject); 
var 
i : integer; 
begin 
 ICMP.Host := Edit1.Text ; file://宿主计算机的名称或IP地址 
 ICMP.ReceiveTimeout := 1000; file://最大等待时间 
 Button1.Enabled := false; 
 try 
 for i:=0 to 3 do file://重复4次 
 begin 
 ICMP.Ping ; 
 Application.ProcessMessages ; file://延时 
 end; 
 finally 
 Button1.Enabled := true; 
 end; 
end; 
3、当本地计算机向宿主计算机发送一个数据包，当本地计算机接收到宿主计算机的信息时，会触发ICMPReply事件，可以在这个事件中实现对回收信息的显示或者差错等。其主要的代码段如下： 
procedure TForm1.ICMPReply(ASender: TComponent; 
const AReplyStatus: TReplyStatus); 
var 
sTime: string; 
begin 
file://检测Ping的回复错误 
if (AReplyStatus.MsRoundTripTime = 0 ) then 
 sTime := ''''<1'''' 
else 
 sTime := ''''='''';
 file://在列表框中显示Ping消息 
ListBox1.Items.Add(Format(''''ICMP_SEQ=%d Reply from %s [%s] : Bytes=%d time%s%d ms TTL=%d'''', 
[AReplyStatus.SequenceId, 
Edit1.Text, 
AReplyStatus.FromIpAddress, 
AReplyStatus.BytesReceived, 
sTime, 
AReplyStatus.MsRoundTripTime, 
AReplyStatus.TimeToLive])); 
end; 

4、Button2按钮是实现对列表框的清除功能的，代码段如下： 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
ListBox1.Clear ; 
end; 
编译上面的程序，一个图形化的Ping程序就这样轻轻松松的展现在您的面前了，是不是很酷？实际上我们还可以通过Delphi6提供的Indy控件组，实现其它的网络程序。自己做一下，你会发现，你在做这些时其实很简单，因为Delphi6已经为程序员做了许多工作。好了，大家如果有什么问题欢迎发信到romanticonline@hotmail.com，大家共同进步吧。 
程序在Windows2000中文版、Delphi6.0下编译通过。
作者：耿百强 
地址：中共河南省济源市委党校 
邮政编码：454650 
联系电话：0391-6666267 
E-Mail:dxgbq@sohu.com 
OICQ:10562208 
写稿日期：2002-3-12

</BODY>

[网络技术]为什么能ping通IP地址，却不能访问对方电脑  [Delphi程序]用delphi实现ping
[Delphi程序]我写了个 Ping 模块很实用！  [Delphi程序]使用 ShellExecute 来进行 Ping 操作!
[Web开发]Asp.net编写的PING工具  [SyBase]Linux学习笔记－网络相关ping finger nslookup ne…
[MySql]使linux系统对ping不反应  [Sql Server]SQL Ping的工具

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi编程实现程序快捷方式[原创]

下一篇教程：通过API访问IE Cache

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……