社区
Delphi
帖子详情
请问读网卡号的函数
ccc
2000-02-01 04:23:00
...全文
214
6
打赏
收藏
请问读网卡号的函数
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
skt642
2001-05-31
打赏
举报
回复
21747关注!
lixia01
2001-05-14
打赏
举报
回复
谢谢楼上兄。
TechnoFantasy
2001-05-14
打赏
举报
回复
Function NBGetAdapterAddress(a:integer) : String;
Implementation
{$R *.DFM}
Procedure TForm1.Button1Click(Sender : TObject);
Begin
label1.Caption:=NBGetAdapterAddress(StrtoInt(Edit1.Text));
End;
Function NBGetAdapterAddress(a:Integer) : String;
Var
NCB : TNCB; // Netbios control block //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[a];
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[a];
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[in
tIdx]),2);
Result := strTemp;
Finally
End;
End;
Kingron
2001-05-14
打赏
举报
回复
请搜索“网卡”或者“MAC”即可找到答案。
附加功能:
提问者:如要继续讨论请定期提前贴子,如不想讨论请结束贴子。
radish
2000-02-01
打赏
举报
回复
如是指物理号,在我的网子上有篇帖子,有两种方法(radsworld.myrice.com)
jiangtao
2000-02-01
打赏
举报
回复
Question :
How can I get network card unique ID ?
Answer :
function _SysGetNICAddress: string;
var
Tmp : TGUID;
tmpstr : string;
newstr : string;
cnt : integer;
begin
try
CoCreateGuid(Tmp);
tmpstr := GuidToString(Tmp);
tmpstr := Copy(tmpstr, Length(tmpstr)-12, 12);
for cnt := 1 to 5 do
newstr := newstr + copy(tmpstr, cnt*2-1, 2) + '-';
newstr := newstr + copy(tmpstr, 11, 2);
except
newstr := '';
end;
Result := newstr;
end;
Linux驱动程序之
网卡
先讲框架,在编写一个虚拟
网卡
驱动
FreeRTOS+Lwip+STM32
网卡
驱动
函数
运行原理(
网卡
+wifi)
在Lwip当中,源码作者用netif结构体来表示一个
网卡
接口,内含
网卡
的IP地址、数据接收
函数
、数据发送
函数
等。然后通过netif_add
函数
添加到
网卡
链表当中去。 在源码当中存在一个ethernetif.c文件,这个文件存在5个...
Linux下利用ioctl
函数
获取
网卡
信息
linux下的ioctl
函数
原型如下: #include int ioctl(int handle, int cmd, [int *argc, int argv])
函数
成功返回0,失败返回-1. 其相关命令接口如下: 类别 Request 说明 数据类型 套 接 口 ...
DPDK
网卡
PMD驱动常用属性字段和API
函数
汇总
使用方法:rte_eth_dev_configure
函数
的struct rte_eth_conf的参数指定rxmode.mq_mode = RTE_ETH_MQ_RX_RSS_FLAG,rx_adv_conf.rss_conf指定哈希key。如果
网卡
支持RTE_ETH_TX_OFFLOAD_MT_LOCKFREE属性,则多个线程...
linux_socket网络套接字
函数
(TCP通信)-socket
函数
-bind
函数
-listen
函数
-accept
函数
-connect
函数
-send
函数
-recv
函数
socket
函数
bind
函数
listen
函数
accept
函数
connect
函数
send
函数
recv
函数
首先将整个结构体清零,然后设置地址类型为AF_INET,网络地址为INADDR_ANY,这个宏表示本地的任意IP地址,因为服务器可能有多个
网卡
,每...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章