delphi Ping code

回复人： cuteant(我这张旧床票还能否登上你的破床|涛声是否依旧) ( ) 信誉：100 2006-3-10 10:39:00 得分:0      

使用过网络的用户都熟悉“Ping”这个指令，它是一个DOS下的可执行文件，一般用它来检查网络连接的好坏程度。其基本原理是利用TCP/IP协议包中ICMP协议中的一个功能，即向所指定的计算机发送一个请求，收到请求的计算机返回一个应答，借此来判断该计算机是否在网上运行或者检查网络连接是否稳定可靠。在Ping程序执行过程中，双方计算机所耗费的资源都很少，因此，它是一个非常实用的工具。 　　我们可以通过编程来实现“Ping”操作，对其加以改进，使之具有Windows的界面风格，显示比DOS更加直观。 　　首先，对编程中需要的动态链接库作一简要说明：在Windows的System目录下，你可以找到Icmp.dll文件，该动态链接库提供了ICMP协议的所有功能，我们的编程就建立在对该动态链接库的调用上。 　　Icmp.dll文件内的调用函数说明如下： 　　1、IcmpCreateFile 　　打开一个句柄，通过该句柄你可以发送ICMP的请求回送报文。 　　2、IcmpCloseHandle 　　关闭你通过IcmpCreateFile函数打开的句柄。 　　3、IcmpSendEcho 　　通过你打开的句柄发送ICMP请求，在超时或应答报文接收后返回。其参数基本上和它的帧结构一致，可参看下面的程序部分，其具体含意你可以参看有关ICMP协议的书籍。 　　初步了解了上述的三个函数后，我们就可以开始编程了。 　　首先，我们的程序运行后应该有如图1所示的基本功能。为此，我们可先在Delphi的窗口中放入右上图中所示的控件，如按钮、编辑框和文本显示框等。 　　（G72.JPG） 　　例程运行示意图 　　然后，在程序的开始部分（FormCreate）对WinSocket进行初始化，其作用是申明使用的版本信息，同时调入Icmp.dll库。 　　type 　　 PIPOptionInformation = ^TIPOptionInformation; 　　 TIPOptionInformation = packed record 　　 TTL: Byte; 　　 TOS: Byte; 　　 Flags: Byte; 　　 OptionsSize: Byte; 　　 OptionsData: PChar; 　　 end; 　　 PIcmpEchoReply = ^TIcmpEchoReply; 　　 TIcmpEchoReply = packed record 　　 Address: DWORD; 　　 Status: DWORD; 　　 RTT: DWORD; 　　 DataSize: Word; 　　 Reserved: Word; 　　 Data: Pointer; 　　 Options: TIPOptionInformation; 　　 end; 　　 TIcmpCreateFile = function: THandle; stdcall; 　　 TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean; stdcall; 　　 TIcmpSendEcho = function(IcmpHandle:THandle; 　　 DestinationAddress: DWORD; 　　 RequestData: Pointer; 　　 RequestSize: Word; 　　 RequestOptions: PIPOptionInformation; 　　 ReplyBuffer: Pointer; 　　 ReplySize: DWord; 　　 Timeout: DWord 　　 ): DWord; stdcall; 　　 TMyPing = class(TForm) 　　 Panel1: TPanel; 　　 Label1: TLabel; 　　 PingEdit: TEdit; 　　 ExeBtn: TButton; 　　 Button2: TButton; 　　 Button3: TButton; 　　 StatusShow: TMemo; 　　 procedure Button3Click(Sender: TObject); 　　 procedure FormCreate(Sender: TObject); 　　 procedure ExeBtnClick(Sender: TObject); 　　 private 　　 { Private declarations } 　　 hICMP: THANDLE; 　　 IcmpCreateFile : TIcmpCreateFile; 　　 IcmpCloseHandle: TIcmpCloseHandle; 　　 IcmpSendEcho: TIcmpSendEcho; 　　 public 　　 { Public declarations } 　　end; 　　procedure TMyPing.FormCreate(Sender: TObject); 　　var 　　 WSAData: TWSAData; 　　 hICMPdll: HMODULE; 　　begin 　　 WSAStartup($101, WSAData); 　　 // Load the icmp.dll stuff 　　 hICMPdll := LoadLibrary('icmp.dll'); 　　 @ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile'); 　　 @IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle'); 　　 @IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho'); 　　 hICMP := IcmpCreateFile; 　　 StatusShow.Text := ''; 　　 StatusShow.Lines.Add('目的IP地址 字节数 返回时间(毫秒)'); 　　end; 　　接下来，就要进行如下所示的Ping操作的实际编程过程了。 　　procedure TMyPing.ExeBtnClick(Sender: TObject); 　　var 　　 IPOpt:TIPOptionInformation;// IP Options for packet to send 　　 FIPAddress:DWORD; 　　 pReqData,pRevData:PChar; 　　 pIPE:PIcmpEchoReply;// ICMP Echo reply buffer 　　 FSize: DWORD; 　　 MyString:string; 　　 FTimeOut:DWORD; 　　 BufferSize:DWORD; 　　begin 　　 if PingEdit.Text < >  '' then 　　 begin 　　 FIPAddress := inet_addr(PChar(PingEdit.Text)); 　　 FSize := 40; 　　 BufferSize := SizeOf(TICMPEchoReply) + FSize; 　　 GetMem(pRevData,FSize); 　　 GetMem(pIPE,BufferSize); 　　 FillChar(pIPE^, SizeOf(pIPE^), 0); 　　 pIPE^.Data := pRevData; 　　 MyString := 'Hello,World'; 　　 pReqData := PChar(MyString); 　　 FillChar(IPOpt, Sizeof(IPOpt), 0); 　　 IPOpt.TTL := 64; 　　 FTimeOut := 4000; 　　 IcmpSendEcho(hICMP, FIPAddress, pReqData, Length(MyString), @IPOpt, pIPE, BufferSize, FTimeOut); 　　 if pReqData^ = pIPE^.Options.OptionsData^ then 　　 begin 　　 StatusShow.Lines.Add(PChar(PingEdit.Text) + ' ' +IntToStr(pIPE^.DataSize) + ' ' +IntToStr(pIPE^.RTT)); 　　 end; 　　 FreeMem(pRevData); 　　 FreeMem(pIPE); 　　 end 　　end; 　　通过上面的编程，我们就实现了Ping功能的界面操作。实际上，ICMP协议的功能还有很多，都可以通过对Icmp.dll的函数调用来实现。