一段检测IP设备是否在线的代码
原理是通过发送ARP包来检测
uses WinSock function SendARP(const DestIP, SrcIP: Cardinal; pMacAddr: PULONG; var PhyAddrLen: ULONG): DWORD; stdcall; external 'iphlpapi.dll'; {调用} var nMacAddr: array[1..6] of Byte; nMacAddrLen: ULONG; nRet: DWORD; begin nMacAddrLen := SizeOf(nMacAddr); nRet := SendARP(inet_addr(PAnsiChar('192.168.1.1')), 0, @nMacAddr, nMacAddrLen); if nRet = 0 then Memo1.Lines.add('IP: 192.168.1.1 MAC: ' + Format('%.2x.%.2x.%.2x.%.2x.%.2x.%.2x', [nMacAddr[1], nMacAddr[2], nMacAddr[3], nMacAddr[4], nMacAddr[5], nMacAddr[6]])) else Memo1.Lines.add('IP: 192.168.1.1 不在线'); end;
--------------------------------------------------------------------------------------------------
作者:黑暗煎饼果子
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利.
--------------------------------------------------------------------------------------------------