Delphi 通过 ARP 协议获取局域网内指定 IP 地址的机器的 MAC 地址

本文整理自网络，侵删。

 

function SendARP(ipaddr: ulong; temp: dword; ulmacaddr: pointer; ulmacaddrleng:
    pointer): dword; stdcall; external 'Iphlpapi.dll' Name 'SendARP';
 
function IP2Mac(ipaddr:ULong):String;
var
  AMac: array [0 .. 5] of BYTE;
  l: ulong;
  r: integer;
begin
  l:=6;  
  r := SendARP(ipaddr, 0, @AMac, @l);
  if r=0 then
    Result:=Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x', [AMac[0], AMac[1], AMac[2], AMac[3], AMac[4],AMac[5]])
  else
    Result:='';
end;

来源：http://blog.qdac.cc/?p=2902
 

相关阅读 >>

Delphi tms web core js callproc

Delphi中把执行文件内存中的dll的代码全部保存下来

Delphi savelog 方便的记录日志

Delphi 实现一个程序在另一个程序内运行

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi fmx 安卓跳转到支付宝付款页面

Delphi 无dll版下载者

Delphi 取windows登录用户名

Delphi中exit,abort,break,continue的区别介绍

Delphi for android 获取手机号

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 通过 ARP 协议获取局域网内指定 IP 地址的机器的 MAC 地址