新版网络设备监控的编程实现汇编摘要：本文使用DELPHI编程工具，结合WINDOWS的ICMP协议，实现了网络设备的监控，通过一个实例详细的介绍了网络设备的自动化监测的实现过程。关键词：DELPHI；ICMP协议；监控中图分类号：***文献标识码：*文章编号：*-*(*)*-*-*1DELPHI简介Delphi，是Windows平台下著名的快速应用程序开发工具（RapidApplicationDevelopment，简称RAD）。它的前身，即是DOS时代盛行一时的“BorlandTurboPascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为AndersHejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的ObjectPascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。2ICMP协议2.1ICMP简介ICMP是（InternetControlMessageProtocol）Internet控制报文协议。它是TCP/IP协议族的一个子协议，用于在IP主机、路由器之间传递控制消息。控制消息是指网络通不通、主机是否可达、路由是否可用等网络本身的消息。这些控制消息虽然并不传输用户数据，但是对于用户数据的传递起着重要的作用。ICMP在网络中的主要作用是：主机探测、路由维护、路由选择、流量控制。Ping的过程实际上就是ICMP协议工作的过程。还有其他的网络命令如跟踪路由的Tracert命令也是基于ICMP协议的。Windows202x提供的icmp.dll模块，用于网络ICMP请求。2.2ICMP报文ICMP报文分为两种，一是错误报告报文，二是查询报文。每个ICMP报头均包含类型、编码和校验和这三项内容，长度为8位，8位和16位，其余选项则随ICMP的功能不同而不同。在网络设备监测时主要用到是ICMP_ECHO和ICMP_ECHOREPLY，它们分别代表：请求回送和请求回应。2.3工作原理简单来ICMP的工作原理是使用一个ICMPECHO数据包来探测主机地址是否存活，通过简单的发送一个ICMPECHO（Type8）数据包到目标主机，如果ICMPECHOReply（ICMPtype0）数据包接受到，说明主机是存活状态。如果没有就可以初步判断主机没有在线或者使用了某些过滤设备过滤了ICMP的REPLY。这种机制就是我们通常所用的ping命令来检测目标主机是否可以ping到。回送消息的源地址是回送响应消息的目的地址。若要形成一个回送响应消息，应该将源和目的地址交换，将类型代码更改为0，重新计算机校验码。下面结合一个编程语言对实现过程做一个详解。3实现方式3.1创建PING操作的一个类为了调用方便，首先创建一个类，供程序中使用。源代码如下：constructorTping.create；begininheritedcreate；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；trytStr：=''；ttPing.pinghost（tPingTask.Strings[1]，tStr）；ifpos（'Cannotfindhost'，tStr）=0thenbeginAddMsg（self.CurentTaskLog，'正常'）；endelsebeginaddmsg（self.TaskLog，tPingTask.Strings[0]+tPingTask.Strings[1]+'出现异常，请查找原因'）；Windows.Beep（480，202x0）；endfinallytPingTask.Free；ttPing.Free；end；3.4广域网监控实现以上程序可...