• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • Delphi中用ICMP探测远程主机状态

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

      在Delphi中使用CreateOleObject方法对WORD文件进行操作
      基于Delphi的屏幕抓图技术的实现,Delphi中数据的自动录入,Delphi编程:用流来读取TXT文件中的数据,使用Delphi创建IIS虚拟目录的方法,Delphi初学者应小心的六大陷阱,Delphi“判断服务器路径”与“清空日志文件”,利用VFW在Delphi中开发视频捕获程序,Delphi实现网页表单数据的自动提交,Delphi编程使用HOOK监视Windows,Delphi编程禁止用户关闭操作系统,Delphi中利用钩子实现QQ聊天窗口的修改,一个判断定文件是否为文本文件的函数,把Flash文件转换为Exe文件,用Delphi实现文件下载的几种方法,Delphi中保存图像列表,基于Delphi的接口编程入门,在Delphi中使用CreateOleObject方法对WORD文件进行操作,利用Delphi开发旅游景点微机售票系统,Delphi中用ICMP探测远程主机状态,Delphi7对XML的支持分析
      Delphi

      只要在使用前填充相应的数据结构就可以了。

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

      //用到的协议数据结构

      PIPOptionInfo = ^TIPOptionInfo; // IP 头选项

      TIPOptionInfo = packed record

      TTL: Byte;//存活时间

      TOS: Byte;//Type of Service,请求类型

      Flags: Byte;//标志

      OptionsSize: Byte;//选项长度

      OptionsData: PChar;//选项数据

      end;

      PIcmpEchoReply = ^TIcmpEchoReply;

      TIcmpEchoReply = packed record // ICMP 返回信息

      Address: DWORD;//IP地址

      Status: DWORD;//状态

      RTT: DWORD;

      DataSize: Word;//数据长度

      Reserved: Word;//保留

      Data: Pointer;//数据

      Options: TIPOptionInfo;//选项区

      end;

      //动态库中的函数声明

      TIcmpCreateFile = function: THandle; stdcall; //创建ICMP句柄

      TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean; stdcall; //关闭ICMP句柄

      TIcmpSendEcho = function(IcmpHandle:THandle; DestinationAddress:DWORD;

      RequestData:Pointer; RequestSize:Word; RequestOptions:PIPOptionInfo;

      ReplyBuffer:Pointer; ReplySize:DWord; Timeout:DWord):DWord; stdcall;//发送ICMP探测数据报

      //要用到的变量声明

      hICMPDll,hICMP:THandle;

      wsaData:TWSADATA;

      ICMPCreateFile:TICMPCreateFile;

      IcmpCloseHandle:TIcmpCloseHandle;

      IcmpSendEcho:TIcmpSendEcho;

      //destip:要探测的远程地址,形如 192.168.1.1

      procedure f_CheckOnline(destip:string);

       var

        IPOpt:TIPOptionInfo;// 发包的 IP 选项

        IPAddr:DWORD;

        pReqData,pRevData:PChar;

        pIPE:PIcmpEchoReply;// ICMP Echo 回复缓冲区

        FSize: DWORD;

        MyString:string;

        FTimeOut:DWORD;

        BufferSize:DWORD;

        i:integer;

       begin

        hICMPdll := LoadLibrary('icmp.dll'); //调取icmp 动态库

        if hICMPDll<>NULL then

         begin

          WSAStartup($101,wsaData);//初始化网络协议栈

          @ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile'); //取动态库中的导出函数

          @IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle');

          @IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho');

          hICMP := IcmpCreateFile; //创建 icmp句柄

          IPAddr:= inet_addr(PChar(destip)); //取要探测的远端主机ip地址

          FSize := 40;

          BufferSize := SizeOf(TICMPEchoReply) + FSize;

          GetMem(pRevData,FSize);

          GetMem(pIPE,BufferSize);

          FillChar(pIPE^, SizeOf(pIPE^), 0);

          pIPE^.Data := pRevData;

          MyString := 'Hi, OnLine?';//任意字符串

          pReqData := PChar(MyString);

          FillChar(IPOpt, Sizeof(IPOpt), 0);

          IPOpt.TTL := 64;

          FTimeOut := 500;//等待时长

          i:=IcmpSendEcho(hICMP, IPAddr, pReqData, Length(MyString), @IPOpt, pIPE, BufferSize, FTimeOut);//如果有返回,返回值表示收到的回复的个数。如果为0表示没有回复,主机无法到达

          FreeMem(pRevData);

          FreeMem(pIPE);

          IcmpCloseHandle(hicmp);

          FreeLibrary(hICMPdll);//释放动态库

          WSAcleanup();//清理协议栈

        end;

      end; 

      利用Delphi开发旅游景点微机售票系统
      基于Delphi的屏幕抓图技术的实现,Delphi中数据的自动录入,Delphi编程:用流来读取TXT文件中的数据,使用Delphi创建IIS虚拟目录的方法,Delphi初学者应小心的六大陷阱,Delphi“判断服务器路径”与“清空日志文件”,利用VFW在Delphi中开发视频捕获程序,Delphi实现网页表单数据的自动提交,Delphi编程使用HOOK监视Windows,Delphi编程禁止用户关闭操作系统,Delphi中利用钩子实现QQ聊天窗口的修改,一个判断定文件是否为文本文件的函数,把Flash文件转换为Exe文件,用Delphi实现文件下载的几种方法,Delphi中保存图像列表,基于Delphi的接口编程入门,在Delphi中使用CreateOleObject方法对WORD文件进行操作,利用Delphi开发旅游景点微机售票系统,Delphi中用ICMP探测远程主机状态,Delphi7对XML的支持分析
      Delphi

    • 0
    • 0
    • 0
    • 84
    • 单栏布局 侧栏位置: