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创建证书密钥库文件

Delphi 反转字符串方法2

Delphi 运行带参数的程序等待其并获取结果

Delphi 创建圆形或椭圆形窗体

Delphi 10进制数与33进制数的转换

Delphi 禁止alt+f4关闭

Delphi 创建大窗口

Delphi整理五（枚举、子界、集合）

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi 得到ip三个值

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

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