Delphi调用WinSock和API来取MAC地址
来源:互联网 发布:淘宝商品一口价能改吗 编辑:程序博客网 时间:2024/04/29 15:48
1,首先申明API函数如下:
Function GetIpMacStr(IpAdr:PCHAR):PCHAR;stdcall;
Function sendarp(ipaddr:ulong;
temp:dword;
ulmacaddr:pointer;
ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';
2,调用过程如下:
Function GetIpMacStr(IpAdr:PCHAR):PCHAR;stdcall;
var
I:integer;
myip:ulong;
mymac:array[0..5] of byte;
mymaclength:ulong;
rsa:integer;
macstr:string;
begin
macstr := '';
myip:=inet_addr(PCHAR(IpAdr));
try
mymaclength:=length(mymac);
rsa:=sendarp(myip,0,@mymac,@mymaclength);
if rsa = 0 then
begin
for I := 0 to 5 do // Iterate
begin
macstr := macstr + inttohex(integer(mymac[i]), 2);// + '-';
end; // for
Result := PChar(macstr);
end
else
Result := PChar('-1');
except
Result := PChar('-2');
end;
end;
- Delphi调用WinSock和API来取MAC地址
- delphi 實現通過ip地址獲取mac地址
- delphi 获取本机IP地址和MAC地址
- delphi 获取本机IP地址和MAC地址
- delphi 获取本机IP地址和MAC地址
- delphi 获取多网卡IP地址列表和Mac地址
- Delphi 获取Mac地址
- delphi 获取MAC地址
- delphi得到MAC地址
- Delphi下的winsock-api 函数(一)
- Delphi下的winsock-api 函数(二)
- Delphi下的winsock-api有关
- 取MAC地址
- C# 取MAC地址
- 取MAC地址
- C# 取MAC地址
- 通过调用系统API获得网卡真实MAC地址
- JAVA 如何取MAC 地址(Linux和window)
- 模式匹配,匹配结果赋值给变量
- 简单获取键盘的KeyCode
- vista windows mail
- VC中的常用的20个方
- 2008-01-17 编译 java程序出现的一个异常
- Delphi调用WinSock和API来取MAC地址
- RMAN中常用backup命令
- VS2005 安装文件 "由于应用程序配置不正确,应用程序未能启动"
- JMX+J2SE5.0实现Web应用的安全管理
- 如何强行关闭INFORMIX服务器
- 从HWnd得到IWebbrowser2接口
- 一周工作之记录
- 一点小经验,高手不要看
- dwr.xml详解