Delphi获取网卡MAC地址

最新推荐文章于 2025-11-15 14:59:01 发布

转载最新推荐文章于 2025-11-15 14:59:01 发布 · 766 阅读

标签

#delphi #integer #command #buffer #string

编程心得专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的函数GetPhysicalAddress，该函数通过NetBios API调用，可以获取本地计算机的第一个网卡适配器的MAC地址。函数首先初始化控制块并发送枚举命令，然后重置适配器并请求适配器地址，最后将得到的MAC地址转换为字符串形式返回。

//MAC地址
function GetPhysicalAddress: string;
//0指定多个网卡适配器中的第一个,你可以改这个参数
var
NCB: TNCB; // Netbios control block file://NetBios控制块
ADAPTER: TADAPTERSTATUS; // Netbios adapter status//取网卡状态
LANAENUM: TLANAENUM; // Netbios lana
intIdx: Integer; // Temporary work value//临时变量
cRC: Char; // Netbios return code//NetBios返回值
strTemp: string; // Temporary string//临时变量

begin
// Initialize
Result := '';

try
// Zero control blocl
ZeroMemory(@NCB, SizeOf(NCB));

// Issue enum command
NCB.ncb_command := Chr(NCBENUM);
cRC := NetBios(@NCB);

// Reissue enum command
NCB.ncb_buffer := @LANAENUM;
NCB.ncb_length := SizeOf(LANAENUM);
cRC := NetBios(@NCB);
if Ord(cRC) <> 0 then
         exit;

      // Reset adapter
      ZeroMemory(@NCB, SizeOf(NCB));
      NCB.ncb_command := Chr(NCBRESET);
      NCB.ncb_lana_num := LANAENUM.lana[0];
      cRC := NetBios(@NCB);
      if Ord(cRC) <> 0 then
         exit;

      // Get adapter address
      ZeroMemory(@NCB, SizeOf(NCB));
      NCB.ncb_command := Chr(NCBASTAT);
      NCB.ncb_lana_num := LANAENUM.lana[0];
      StrPCopy(NCB.ncb_callname, '*');
      NCB.ncb_buffer := @ADAPTER;
      NCB.ncb_length := SizeOf(ADAPTER);
      cRC := NetBios(@NCB);

      // Convert it to string
      strTemp := '';
      for intIdx := 0 to 5 do
         strTemp := strTemp + InttoHex(Integer(ADAPTER.adapter_address[intIdx]), 2);
      Result := strTemp;
   finally
   end;

end;