{"id":36182,"date":"2012-05-30T22:34:25","date_gmt":"2012-05-30T14:34:25","guid":{"rendered":"http:\/\/www.lanmaowang.com\/?p=36182"},"modified":"2015-04-01T15:32:26","modified_gmt":"2015-04-01T07:32:26","slug":"delphi-get-mac-address","status":"publish","type":"post","link":"http:\/\/www.lanmaowang.com\/?p=36182","title":{"rendered":"delphi\u83b7\u53d6MAC\u5730\u5740"},"content":{"rendered":"<p>\u3000\u3000\u83b7\u53d6MAC\u5730\u5740\u6709\u5f88\u591a\u79cd\u65b9\u6cd5\uff0c\u53ef\u4ee5\u8bfb\u53d6\u6ce8\u518c\u8868\uff0c\u53ef\u4ee5\u8bfb\u53d6\u5e95\u5c42\u4fe1\u606f\u7b49\u7b49\u3002\u672c\u4f8b\u91c7\u7528\u8c03\u7528\u7cfb\u7edfdll\u65b9\u6cd5\u83b7\u53d6\u7f51\u5361MAC\u5730\u5740\u3002\u5728\u8be5\u4f8b\u5b50\u7684\u57fa\u7840\u4e0a\u7a0d\u52a0\u4fee\u6539\u5c31\u53ef\u4ee5\u7528\u7f51\u5361MAC\u5730\u5740\u8fdb\u884c\u8f6f\u4ef6\u52a0\u5bc6\u3002<br \/><strong>\u3000\u3000\u6ce8\u610f\uff1a\u5fc5\u987b\u5728uses\u90e8\u5206\u52a0\u5165NB30&nbsp;<\/strong><br \/>\u3000\u3000\u6f14\u793a\uff1a<\/p>\n<p style=\"text-align: center;\"><img decoding=\"async\" loading=\"lazy\" border=\"0\" data-cke-saved-src=\"http:\/\/www.lanmaowang.com\/old\/upFiles\/infoImg\/2012053082497889.gif\" src=\"http:\/\/www.lanmaowang.com\/wp-content\/uploads\/2015\/03\/2012053082497889.jpg\" style=\"cursor: default; width: 363px; height: 219px;\" width=\"363\" height=\"219\" vspace=\"0\" title=\"\" alt=\"\"\/><\/p>\n<pre class=\"brush:delphi;toolbar:false\">\/\/\u4ee3\u7801\u5982\u4e0b\uff1a&nbsp;\r\nunit&nbsp;Unit1;\r\ninterface\r\nuses&nbsp;\r\n&nbsp;&nbsp;Windows,&nbsp;Messages,&nbsp;SysUtils,&nbsp;Variants,&nbsp;Classes,&nbsp;Graphics,&nbsp;Controls,&nbsp;Forms,&nbsp;\r\n&nbsp;&nbsp;Dialogs,&nbsp;StdCtrls,&nbsp;Nb30;&nbsp;\r\ntype&nbsp;\r\n&nbsp;&nbsp;TForm1&nbsp;=&nbsp;class(TForm)&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Edit_1:&nbsp;TEdit;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Button_1:&nbsp;TButton;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Button_2:&nbsp;TButton;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Label_1:&nbsp;TLabel;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Button_2Click(Sender:&nbsp;TObject);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Button_1Click(Sender:&nbsp;TObject);&nbsp;\r\n&nbsp;&nbsp;private&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;Private&nbsp;declarations&nbsp;}&nbsp;\r\n&nbsp;&nbsp;public&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;Public&nbsp;declarations&nbsp;}&nbsp;\r\n&nbsp;&nbsp;end;\r\nvar&nbsp;\r\n&nbsp;&nbsp;Form1:&nbsp;TForm1;&nbsp;\r\nimplementation&nbsp;\r\n{$R&nbsp;*.dfm}&nbsp;\r\n\/\/\u53e6\u4e00\u79cd\u83b7\u53d6\u65b9\u5f0ffunction&nbsp;GetMACAdress:&nbsp;string;&nbsp;\r\nvar&nbsp;\r\n&nbsp;&nbsp;NCB:&nbsp;TNCB;&nbsp;\r\n&nbsp;&nbsp;Adapter:&nbsp;TAdapterStatus;&nbsp;\r\n&nbsp;&nbsp;LanEnum:&nbsp;TlanaEnum;&nbsp;\r\n&nbsp;&nbsp;procedure&nbsp;ResetAdapter(num:AnsiChar);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Fillchar(NCB,&nbsp;SizeOf(NCB),&nbsp;0);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NCB.ncb_command&nbsp;:=&nbsp;Char(NCBRESET);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NCB.ncb_lana_num&nbsp;:=&nbsp;num;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Netbios(@NCB);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;\r\n&nbsp;&nbsp;var&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;i:Integer;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;LanNum:AnsiChar;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Address:record&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Part1:LongInt;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Part2:Word;&nbsp;\r\n&nbsp;&nbsp;end&nbsp;absolute&nbsp;Adapter;&nbsp;\r\n&nbsp;&nbsp;begin&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;&nbsp;&nbsp;&nbsp;:=&nbsp;&#39;&#39;;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Fillchar(NCB,&nbsp;SizeOf(NCB),&nbsp;0);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ncb.ncb_command&nbsp;&nbsp;:=&nbsp;Char(NCBRESET);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ncb.ncb_buffer&nbsp;:=@LanEnum;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NCB.ncb_length:=SizeOf(LanEnum);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Netbios(@NCB);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;LanEnum.length=#0&nbsp;then&nbsp;Exit;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;LanNum:=LanEnum.lana[0];&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;ResetAdapter(LanNum);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;FillChar(NCB,&nbsp;SizeOf(NCB),&nbsp;0);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ncb.ncb_command&nbsp;&nbsp;:=&nbsp;Char(NCBRESET);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ncb.ncb_lana_num&nbsp;:=LanNum;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NCB.ncb_callname[0]:=&#39;*&#39;;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ncb.ncb_buffer&nbsp;:=@Adapter;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NCB.ncb_length:=SizeOf(Adapter);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;Netbios(@NCB);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;ResetAdapter(LanNum);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i&nbsp;:=&nbsp;0&nbsp;to&nbsp;5&nbsp;do&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result:=Result+IntToHex(Integer(Adapter.adapter_address),&nbsp;2);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;i&lt;5&nbsp;then&nbsp;Result:=Result+&#39;-&#39;;\/\/\u8fd4\u56deMAC\u5730\u5740&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;\r\nend;&nbsp;\r\n\/\/\u8c03\u7528\u51fd\u6570\r\nFunction&nbsp;MacAddress:&nbsp;string;&nbsp;\r\nvar&nbsp;\r\n&nbsp;&nbsp;&nbsp;Lib:&nbsp;Cardinal;&nbsp;\r\n&nbsp;&nbsp;&nbsp;Func:&nbsp;function(GUID:&nbsp;PGUID):&nbsp;Longint;&nbsp;stdcall;&nbsp;\r\n&nbsp;&nbsp;&nbsp;GUID1,&nbsp;GUID2:&nbsp;TGUID;&nbsp;\r\nbegin&nbsp;\r\n&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;&#39;&#39;;&nbsp;\r\n&nbsp;&nbsp;&nbsp;Lib&nbsp;:=&nbsp;LoadLibrary(&#39;rpcrt4.dll&#39;);&nbsp;\r\n&nbsp;&nbsp;&nbsp;if&nbsp;Lib&nbsp;&lt;&gt;&nbsp;0&nbsp;then&nbsp;\r\n&nbsp;&nbsp;&nbsp;begin&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Win32Platform&nbsp;&lt;&gt;VER_PLATFORM_WIN32_NT&nbsp;then&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;@Func&nbsp;:=&nbsp;GetProcAddress(Lib,&nbsp;&#39;UuidCreate&#39;)&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;@Func&nbsp;:=&nbsp;GetProcAddress(Lib,&nbsp;&#39;UuidCreateSequential&#39;);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Assigned(Func)&nbsp;then&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(Func(@GUID1)&nbsp;=&nbsp;0)&nbsp;and&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Func(@GUID2)&nbsp;=&nbsp;0)&nbsp;and&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(GUID1.D4[2]&nbsp;=&nbsp;GUID2.D4[2])&nbsp;and&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(GUID1.D4[3]&nbsp;=&nbsp;GUID2.D4[3])&nbsp;and&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(GUID1.D4[4]&nbsp;=&nbsp;GUID2.D4[4])&nbsp;and&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(GUID1.D4[5]&nbsp;=&nbsp;GUID2.D4[5])&nbsp;and&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(GUID1.D4[6]&nbsp;=&nbsp;GUID2.D4[6])&nbsp;and&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(GUID1.D4[7]&nbsp;=&nbsp;GUID2.D4[7])&nbsp;then&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IntToHex(GUID1.D4[2],&nbsp;2)&nbsp;+&nbsp;&#39;-&#39;&nbsp;+&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IntToHex(GUID1.D4[3],&nbsp;2)&nbsp;+&nbsp;&#39;-&#39;&nbsp;+&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IntToHex(GUID1.D4[4],&nbsp;2)&nbsp;+&nbsp;&#39;-&#39;&nbsp;+&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IntToHex(GUID1.D4[5],&nbsp;2)&nbsp;+&nbsp;&#39;-&#39;&nbsp;+&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IntToHex(GUID1.D4[6],&nbsp;2)&nbsp;+&nbsp;&#39;-&#39;&nbsp;+&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IntToHex(GUID1.D4[7],&nbsp;2);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FreeLibrary(Lib);&nbsp;\r\n&nbsp;&nbsp;&nbsp;end;&nbsp;\r\nend;&nbsp;\/\/\u70b9\u51fb\u83b7\u53d6MAC\u5730\u5740\r\nprocedure&nbsp;TForm1.Button_1Click(Sender:&nbsp;TObject);&nbsp;\r\nbegin&nbsp;\r\n&nbsp;&nbsp;Edit_1.Text:=MacAddress;&nbsp;\r\nend;&nbsp;\r\n\/\/\u5173\u95ed\u7a0b\u5e8f\r\nprocedure&nbsp;TForm1.Button_2Click(Sender:&nbsp;TObject);&nbsp;\r\nbegin&nbsp;\r\n&nbsp;&nbsp;Close;&nbsp;\r\nend;\r\nend.<\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3000\u3000\u83b7\u53d6MAC\u5730\u5740\u6709\u5f88\u591a\u79cd\u65b9\u6cd5\uff0c\u53ef\u4ee5\u8bfb\u53d6\u6ce8\u518c\u8868\uff0c\u53ef\u4ee5\u8bfb\u53d6\u5e95\u5c42\u4fe1\u606f\u7b49\u7b49\u3002\u672c\u4f8b\u91c7\u7528\u8c03\u7528\u7cfb\u7edfdll\u65b9\u6cd5\u83b7\u53d6\u7f51\u5361MAC [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":36149,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[193],"tags":[198,209],"_links":{"self":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36182"}],"collection":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=36182"}],"version-history":[{"count":1,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36182\/revisions"}],"predecessor-version":[{"id":36183,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36182\/revisions\/36183"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/media\/36149"}],"wp:attachment":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=36182"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=36182"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=36182"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}