用 ICMP 通訊協定探測遠端主機狀態

bestlong

网络通讯中经常需要确定远程主机是否存活，以决定下一部进行的操作。可以直接使用 ICMP 协议来实现，但是要考虑许多协议细节，实现起来比较麻烦。Windows 自带的 ICMP 库里有现成的函数可以使用，只要在使用前填充相应的数据结构就可以了。

以下是要使用的数据结构。这些结构 MSDN 里有 C 形式的声明，这里给出的是 Delphi 的形式。

1. //用到的协议数据结构
   
2. PIPOptionInfo = ^TIPOptionInfo; // IP 头选项
   
3. TIPOptionInfo = packed record
   
4.   TTL: Byte;//存活时间
   
5.   TOS: Byte;//Type of Service，请求类型
   
6.   Flags: Byte;//标志
   
7.   OptionsSize: Byte;//选项长度
   
8.   OptionsData: PChar;//选项数据
   
9. end;
   
10. PIcmpEchoReply = ^TIcmpEchoReply;
    
11. TIcmpEchoReply = packed record // ICMP 返回信息
    
12.   Address: DWORD;//IP地址
    
13.   Status: DWORD;//状态
    
14.   RTT: DWORD;
    
15.   DataSize: Word;//数据长度
    
16.   Reserved: Word;//保留
    
17.   Data: Pointer;//数据
    
18.   Options: TIPOptionInfo;//选项区
    
19. end;
    
20. 
    
21. //动态库中的函数声明
    
22. TIcmpCreateFile = function: THandle; stdcall; //创建ICMP句柄
    
23. TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean; stdcall; //关闭ICMP句柄
    
24. TIcmpSendEcho = function(IcmpHandle:THandle; DestinationAddress:DWORD;
    
25. RequestData:Pointer; RequestSize:Word; RequestOptions:PIPOptionInfo;
    
26. ReplyBuffer:Pointer; ReplySize:DWord; Timeout:DWord):DWord; stdcall;//发送ICMP探测数据报
    
27. 
    
28. //要用到的变量声明
    
29. hICMPDll,hICMP:THandle;
    
30. wsaData:TWSADATA;
    
31. ICMPCreateFile: TICMPCreateFile;
    
32. IcmpCloseHandle: TIcmpCloseHandle;
    
33. IcmpSendEcho:TIcmpSendEcho;
    
34. 
    
35. //destip: 要探测的远程地址，形如 192.168.1.1
    
36. procedure f_CheckOnline(destip:string);
    
37. var
    
38.   IPOpt:TIPOptionInfo;// 发包的 IP 选项
    
39.   IPAddr:DWORD;
    
40.   pReqData,pRevData:PChar;
    
41.   pIPE:PIcmpEchoReply;// ICMP Echo 回复缓冲区
    
42.   FSize: DWORD;
    
43.   MyString:string;
    
44.   FTimeOut:DWORD;
    
45.   BufferSize:DWORD;
    
46.   i:integer;
    
47. begin
    
48.   hICMPdll := LoadLibrary('icmp.dll'); //调取icmp 动态库
    
49.   if hICMPDll<>NULL then
    
50.   begin
    
51.     WSAStartup($101,wsaData);//初始化网络协议栈
    
52.     @ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile'); //取动态库中的导出函数
    
53.     @IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle');
    
54.     @IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho');
    
55.     hICMP := IcmpCreateFile; //创建 icmp句柄
    
56.     IPAddr:= inet_addr(PChar(destip)); //取要探测的远端主机ip地址
    
57. 
    
58.     FSize := 40;
    
59.     BufferSize := SizeOf(TICMPEchoReply) + FSize;
    
60.     GetMem(pRevData,FSize);
    
61.     GetMem(pIPE,BufferSize);
    
62.     FillChar(pIPE^, SizeOf(pIPE^), 0);
    
63.     pIPE^.Data := pRevData;
    
64.     MyString := 'Hi, OnLine?';//任意字符串
    
65.     pReqData := PChar(MyString);
    
66.     FillChar(IPOpt, Sizeof(IPOpt), 0);
    
67.     IPOpt.TTL := 64;
    
68.     FTimeOut := 500;//等待时长
    
69.     i := IcmpSendEcho(hICMP, IPAddr, pReqData, Length(MyString), @IPOpt, pIPE, BufferSize, FTimeOut);//如果有返回，返回值表示收到的回复的个数。如果为0表示没有回复，主机无法到达
    
70.     FreeMem(pRevData);
    
71.     FreeMem(pIPE);
    
72.     IcmpCloseHandle(hicmp);
    
73.     FreeLibrary(hICMPdll);//释放动态库
    
74.     WSAcleanup();//清理协议栈
    
75.   end;
    
76. end;

複製代碼