摘要：本文使用DELPHI编程工具，结合WINDOWS的ICMP协议，实现了网络设备的监控，通过一个实例详细的介绍了网络设备的自动化监测的实现过程。 关键词：DELPHI；ICMP协议；监控
中图分类号：TP311.11 文献标识码：A 文章编号：1007-9599 （2012） 17-0000-02
1 DELPHI简介
Delphi，是Windows平台下著名的快速应用程序开发工具（Rapid Application Development，简称RAD）。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。
2 ICMP协议
2.1 ICMP简介
ICMP是（Internet Control Message Protocol）Internet控制报文协议。它是TCP/IP协议族的一个子协议，用于在IP主机、路由器之间传递控制消息。控制消息是指网络通不通、主机是否可达、路由是否可用等网络本身的消息。这些控制消息虽然并不传输用户数据，但是对于用户数据的传递起着重要的作用。ICMP在网络中的主要作用是：主机探测、路由维护、路由选择、流量控制。Ping的过程实际上就是ICMP协议工作的过程。还有其他的网络命令如跟踪路由的Tracert命令也是基于ICMP协议的。Windows 2000提供的icmp.dll模块，用于网络ICMP请求。
2.2 ICMP报文
ICMP报文分为两种，一是错误报告报文，二是查询报文。每个ICMP报头均包含类型、编码和校验和这三项内容，长度为8位，8位和16位，其余选项则随ICMP的功能不同而不同。在网络设备监测时主要用到是ICMP_ECHO和ICMP_ECHOREPLY，它们分别代表：请求回送和请求回应。
2.3 工作原理
简单来ICMP的工作原理是使用一个ICMPECHO数据包来探测主机地址是否存活，通过简单的发送一个ICMPECHO（Type 8）数据包到目标主机，如果ICMPECHOReply（ICMPtype0）数据包接受到，说明主机是存活状态。如果没有就可以初步判断主机没有在线或者使用了某些过滤设备过滤了ICMP的REPLY。这种机制就是我们通常所用的ping命令来检测目标主机是否可以ping到。回送消息的源地址是回送响应消息的目的地址。若要形成一个回送响应消息，应该将源和目的地址交换，将类型代码更改为0，重新计算机校验码。
下面结合一个编程语言对实现过程做一个详解。
3 实现方式
3.1 创建PING操作的一个类
为了调用方便，首先创建一个类，供程序中使用。源代码如下：
constructor Tping.create；
begin
inherited create；
hICMPdll ：= LoadLibrary（"icmp.dll"）；
@ICMPCreateFile ：= GetProcAddress（hICMPdll， "IcmpCreateFile"）；
@IcmpCloseHandle ：= GetProcAddress（hICMPdll，"IcmpCloseHandle"）；
@IcmpSendEcho ：= GetProcAddress（hICMPdll， "IcmpSendEcho"）；
hICMP ：= IcmpCreateFile；
end；
3.2 主机活动判断
用IcmpSendEcho函数包含ICMP.DLL中，它是用于Internet控制报文协议测试的，可以直观地测试本地计算机的网络速度。利用这个函数，可以判断主机是否活动。它包含主机IP，数据包大小、延迟时间等8个参数。如果有返回值，返回值表示收到的回复的个数。如果为0表示没有回复，主机无法到达。通过IcmpSendEcho函数进行主机活动的判断。
3.3 主程序的实现
在主程序中放置一个Timer控件，设置扫描时间为10分钟。定义一个ttPing ： TPing 变量，并进行初始化。在OnTimer事件中，加入ping操作的代码，根据返回值，显示该主机是否在线，当出现异常时，通过文字和声音进行提示。实现对网络及关键主机的监控。程序代码如下：
ttPing ：= tPing.create；
try
tStr ：= ""；
ttPing.pinghost（tPingTask.Strings[1]，tStr）；
if pos（"Can not find host"，tStr） = 0 then
begin
AddMsg（self.CurentTaskLog，"正常"）；
end
else
begin
addmsg（self.TaskLog，tPingTask.Strings[0]+ tPingTask.Strings[1]+"出现异常，请查找原因"）；
Windows.Beep（480， 20000）；
end
finally
tPingTask.Free；
ttPing.Free；
end；
3.4 广域网监控实现
以上程序可以实现对局域网内设备进行监控。但要监控外网地址入口就需要增加路由来实现。Windows下添加路由命令为“Route add 目的IP段 mask 子网掩码 路由器IP”，将外网入口地址加到Windows路由表中，通过以上程序就可直接针对外网地址进行PING测试，实现广域网的监控。
4 结束语
本文结合DELPHI编程工具，对icmp.dll实现PING功能做了说明。这只是简单的应用，通过深入开发，可以方便的实现局域网设备、关键主机、广域网入口等设备的监控，以最大程度地减少人工劳动强度，提高工作效率，提高自动化程度，为设备正常、高效的运转奠定良好的基础。
参考文献：
[1]杜新华，杜力耘，张蓓蓓.基于ICMP的Ping软件实现[J].上海交通大学学报，1997，05.
[2]黄跃青，崔智慧，崔炳俭等.MAS系统的二次开发[J].气象与环境科学，2010，33（B09），201-202.
[3]王新刚，柴乔林，李琳.基于Windows的综合网络性能监测系统[J].计算机应用研究，2002，10.
[作者简介]
崔智慧（1979.9-），女，河南郑州人，郑州市气象局，工程师，学士，主要从事大气探测工作。