首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

(用SendARP获取MAC)    一个引用有关问题,未定义

2012-02-29 
(用SendARP获取MAC)    一个引用问题,未定义,//用SendARP获取MAC(我在win98使用该函数得不到MAC)functionS

(用SendARP获取MAC)    一个引用问题,未定义,
//       用SendARP获取MAC       (我在win98使用该函数得不到MAC)      
    function       SendARP(       const       DestIP       :       DWord;       const       SrcIP       :       DWord;      
                                                                            const       pMacAddr       :       Pointer;       const       PhyAddrLen       :       PULONG)       :       DWord;      
                                                                            stdcall;       external       'IPHLPAPI.DLL '       name       'SendARP ';      
       
    ....      
       
       
    function       GetRemoteMAC(ip:string):String;      
    var      
            dwResult       :       DWord;      
            ulIPAddr       :       DWord;      
            ulMACAddr       :       Array       [0..5]       of       Byte;      
            ulAddrLen       :       ULONG;      
    begin      
            ulIPAddr       :=       inet_addr(PChar(ip));      
            ulAddrLen       :=       6;      
            FillChar(ulMACAddr,       6,       $ff);      
            dwResult       :=       SendARP(ulIPAddr,0,@ulMACAddr,@ulAddrLen);      
            if       dwResult=0       then      
                    Result:=(IntToHex(ulMACAddr[0],2)+      
                                                                    IntToHex(ulMACAddr[1],2)+      
                                                                    IntToHex(ulMACAddr[2],2)+      


                                                                    IntToHex(ulMACAddr[3],2)+      
                                                                    IntToHex(ulMACAddr[4],2)+      
                                                                    IntToHex(ulMACAddr[5],2));      
    end;      
   


inet_addr           SendARP     未定义,我应该在USES中 引用什么啊?
   小弟初学,,,,,,,




[解决办法]
uses

Winsock;

热点排行