社区
Delphi
帖子详情
请问读网卡号的函数
ccc
2000-02-01 04:23:00
...全文
212
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;
FreeRTOS+Lwip+STM32
网卡
驱动
函数
运行原理(
网卡
+wifi)
塞2564196 项目背景 主板是野火的STM32H743,例程也是野火附带的例程,有需要的可以去野火大学堂下载。因为野火只是给出了以太网和wifi的单独例程,而项目需要两者结合在一个工程,所以需要弄清楚两者驱动
函数
都是如何编写的,方便合并。 Lwip网络接口
函数
在Lwip当中,源码作者用netif结构体来表示一个
网卡
接口,内含
网卡
的IP地址、数据接收
函数
、数据发送
函数
等。然后通过netif_add
函数
添加到
网卡
链表当中去。 在源码当中存在一个ethernetif.c文件,这个文件存在5个
函数
的
linux_socket网络套接字
函数
(TCP通信)-socket
函数
-bind
函数
-listen
函数
-accept
函数
-connect
函数
-send
函数
-recv
函数
socket
函数
bind
函数
listen
函数
accept
函数
connect
函数
send
函数
recv
函数
首先将整个结构体清零,然后设置地址类型为AF_INET,网络地址为INADDR_ANY,这个宏表示本地的任意IP地址,因为服务器可能有多个
网卡
,每个
网卡
也可能绑定多个IP地址,这样设置可以在所有的IP地址上监听,直到与某个客户端建立了连接时才确定下来到底用哪个IP地址,端口
号
为6666。客户端需要调用connect()连接服务器,connect和bind的参数形式一致,区别在于bind的参数是
Linux下利用ioctl
函数
获取
网卡
信息
linux下的ioctl
函数
原型如下: #include int ioctl(int handle, int cmd, [int *argc, int argv])
函数
成功返回0,失败返回-1. 其相关命令接口如下: 类别 Request 说明 数据类型 套 接 口 SIOCAT
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属性,则多个线程可以在没有锁的情况下,在同一个Tx队列上并发地调用rte_eth_tx_burst()发送报文。请注意,扩展统计信息标识符是驱动程序特定的,因此对于不同的端口可能不一样。
QT获取有线或无线
网卡
的MAC地址、IP地址、可
读
网卡
名称
QT获取有线或无线
网卡
的MAC地址、IP地址、可
读
网卡
名称 #include <iphlpapi.h> #include <QProcess> #pragma comment(lib, "IPHLPAPI.lib") bool MainWindow::IPConnectCheck(QString IP, QString sourceIP) { QString cmdString; if (sourceIP.compare("0.0.0.0") == 0) {
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章