請教各位大俠,如何像vc中的sendarp()函數,輸入連到電腦上的網管或路由器的ip就可以返回mac值?謝謝!
解决方案 »
- 线程中将数据库中的字段内容插入ListVIew控件中出现错误
- delphi 新手,问个新手问题,怎么样把record类型连接成一个 list啊??
- 如何将一个对象的位置随着鼠标的位置的改变而改变
- 高分求教~~~谁能教我找窗口中任一控件的句柄??分不够再开~~~
- 紧急提问:组件安装好以后,我把组件所在目录重命名再打开DELPHI时问是否LOAD几个BPL我选NO.然后再把目录改回原来的,再重启DELPHI时已经找
- 有没有人给我回一下呀,要不然不能结帖了
- dcomconnection为什么会连接服务器失败呢
- 是不是用delphi编写的dll在没有装delphi的机器中不能用?
- 从borland公司下载的interbase6.0限几个用户?
- 关于快速像素替换问题?
- 紧急求助!!关于Delphi通过VPN连接Sql Server数据库
- 怎么控制TWebBrowser,tfrPreview中的滚动条!
http://www.delphifans.com/infoview/Article_520.html uses
WinSock;Function sendarp(ipaddr:ulong;
temp:dword;
ulmacaddr:pointer;
ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';procedure TForm1.Button1Click(Sender: TObject);
var
myip:ulong;
mymac:array[0..5] of byte;
mymaclength:ulong;
r:integer;
begin
myip:=inet_addr(PChar('192.168.6.180'));
mymaclength:=length(mymac);
r:=sendarp(myip,0,@mymac,@mymaclength);
label1.caption:='errorcode:'+inttostr(r);
label2.caption:=format('%2.2x:%2.2x:%2.2x:%2.2x:%2.2x:%2.2x',[mymac[0],mymac[1],mymac[2],mymac[3],mymac[4],mymac[5]]);
end;