delphi 获取网卡物理地址之内存获取方式函数源码

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：Alana: Integer = 0

返回：string

功能：通过LANA号获取Mac物理地址（内存方式获取），整体步骤如下：

一、枚举系统上可用的所有LANA编号

二、重置计划使用的每个LANA编号

三、适配器命令获取网卡地址

\-----------------------------------------------------------------------------}

function MemGetNetCardName(Alana: Integer = 0): string;

var

NCB: TNCB;//Netbios控制块

AdapterStatus: TAdapterStatus;//取网卡状态

LanaEnum: TLanaEnum; //LANA枚举值

I: Integer;

CRC: Char;//netBios返回值

begin

Result := '';

Try

{ http://blog.csdn.net/sushengmiyan/article/details/8543811

一、枚举LANA值

①.申请分配一个TNCB结构 NCB: TNCB；

②.将TNCB结构变量初始化成O ZeroMemory(@NCB , SizeOf(NCB));

③.置命令为NCBENUM NCB.ncb_Command := chr(NCBENUM);

④.为ncb_buffer分配LANA_ENUM NCB.ncb_buffer := @LANAENUM;

⑤.为NCB_length制定长度 NCB.NCB_length := Sizeof(LANAENUM);

⑥.调用Netbios函数获取Netbios CRC := NetBios(@NCB);

⑦.返回值NRC_GOODRET表示成功 NCB.ncb_retcode = Chr(NRC_GOODRET)

}

ZeroMemory(@NCB , SizeOf(NCB));

NCB.ncb_Command := Chr(NCBENUM);

NCB.ncb_buffer := @LANAENUM;

NCB.NCB_length := Sizeof(LANAENUM);

CRC := NetBios(@NCB);

if not (NCB.ncb_retcode = Chr(NRC_GOODRET)) then Exit;

{ http://blog.csdn.net/sushengmiyan/article/details/8543811

二、重置计划使用的每个LANA编号

①.申请分配一个TNCB结构 NCB: TNCB；

②.将TNCB结构变量初始化成O ZeroMemory(@NCB , SizeOf(NCB));

③.置命令为NCBRESET NCB.ncb_Command := chr(NCBRESET);

④.给命令设置LANA编号 NCB.ncb_lana_num := LanaEnum.lana[Alana];

⑤.调用Netbios函数获取Netbios CRC := NetBios(@NCB);

⑥.返回值NRC_GOODRET表示成功 NCB.ncb_retcode = Chr(NRC_GOODRET)

}

ZeroMemory(@NCB , SizeOf(NCB));

NCb.ncb_Command := Chr(NCBRESET);

NCB.ncb_lana_num := LanaEnum.lana[Alana];

CRC := Netbios(@NCB);

if not (NCB.ncb_retcode = Chr(NRC_GOODRET)) then Exit;

{ http://blog.csdn.net/sushengmiyan/article/details/8543811

三、使用TAdapterStatus结构获取网卡地址

①.申请分配一个TNCB结构 NCB: TNCB；

②.将TNCB结构变量初始化成O ZeroMemory(@NCB , SizeOf(NCB));

③.置命令为NCBASTAT NCB.ncb_Command := chr(NCBASTAT);

④.为ncb_buffer分配LANA_ENUM NCB.ncb_buffer := @LANAENUM;

⑤.设置ncb_callname NCB.ncb_callname := '* ' + #0;

⑥.为ncb_buffer分配AdapterStatus NCB.ncb_buffer := @AdapterStatus;

⑦.为NCB_length制定长度 NCB.NCB_length := Sizeof(AdapterStatus);

⑧.调用Netbios函数获取Netbios CRC := NetBios(@NCB);

}

ZeroMemory(@NCB , SizeOf(NCB));

NCb.ncb_Command := chr(NCBASTAT);

NCB.ncb_lana_num := LANAENUM.lana[Alana];

NCB.ncb_callname := '* ' + #0;

//不明白为何如此设置，*代表啥子？

//有懂的可以邮件分享 429119108@qq.com O(∩_∩)O谢谢

NCB.ncb_buffer := @AdapterStatus;

NCB.ncb_length := SizeOf(AdapterStatus);

CRC := NetBios(@NCB);

//获取形如AA-BB-CC-DD-EE-FF形式的mac物理地址字符串

Result := '';

for I := 0 to 5 do

if SameStr(Result , '') then

Result := Result + IntToHex(Integer(AdapterStatus.adapter_address[I]) , 2)

else

Result := Result + '-' + IntToHex(Integer(AdapterStatus.adapter_address[I]) , 2);

Finally

End;

end;

关于理论方面的知识，前面已经介绍过了，如果遇到不明白的可以去前面几篇文章查看，这里面我也有不明白的，希望有明白的可以指教一下~O(∩_∩)O谢谢。

查看获取的mac地址是否正确的方式：

在Windows 2000/XP/Vista/WIN8中

点击开始-运行-进入后输入ipconfig /all

在出现的结果中查找‘物理地址’或者Physical Address后的字符串即可。

http://blog.csdn.net/sushengmiyan/article/details/8544442

推荐分享