全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3336
推到 Plurk!
推到 Facebook!

如何取的網卡的MAC號

 
ddy
站務副站長


發表:262
回覆:2105
積分:1169
註冊:2002-07-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-11-23 23:49:47 IP:211.74.xxx.xxx 未訂閱
如何取的網卡的MAC號 簡介: function TForm1.NBGetAdapterAddress(a: integer): String; //a指定多個網卡適配器中的哪一個0,1,2... Var NCB:TNCB; // Netbios control block file://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[intIdx]),2); Result := strTemp; Finally End; 最後別忘了uses nb30.pas 經測試,98,2000下皆可用 發表人 - ddy 於 2002/11/23 23:57:24 發表人 - ddy 於 2002/11/24 00:03:24
i_am_jcl
一般會員


發表:3
回覆:9
積分:2
註冊:2002-04-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-01-21 14:35:56 IP:61.231.xxx.xxx 未訂閱
DELPHI的語法看不太懂說~~ 有bcb版本的解答嗎? 請大大賜教~
ddy
站務副站長


發表:262
回覆:2105
積分:1169
註冊:2002-07-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-01-21 16:37:42 IP:61.218.xxx.xxx 未訂閱
i_am_jcl  不好意思啦…bcb 我也是看不懂的:p 可請教ccchen/RaynorPao/axsoft... 雙修的高手^^        =============================================================================== 提醒您,貼錯文章可立即傳訊通知該版版主/站長/副站長協助處理,不要放著不管喔
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-15 13:30:40 IP:218.16.xxx.xxx 未訂閱
If Ord(cRC)0 Then 應是 if Ord(cRC) <> 0 罷。 前幾個月已參考網上資料寫好了這個功能但不知放到何處(可能重裝 Window 時刪了),要重來剛好這裡有,謝謝啦。
cyl
中階會員


發表:163
回覆:171
積分:66
註冊:2002-07-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-05-13 09:28:55 IP:202.181.xxx.xxx 未訂閱
請問compiler不過,還要uses哪些unit???
leeelong
一般會員


發表:0
回覆:2
積分:0
註冊:2003-04-08

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-06-25 16:27:25 IP:203.204.xxx.xxx 未訂閱
引言: 請問compiler不過,還要uses哪些unit???
要加上 use nb30 還有要改Ord(cRC)0 ->Ord(cRC)<>0 即可我用Delhpi6.0 試過了可以Complier
shaofu
高階會員


發表:5
回覆:136
積分:103
註冊:2003-01-07

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-07-01 15:13:52 IP:210.243.xxx.xxx 未訂閱
引言: DELPHI的語法看不太懂說~~ 有bcb版本的解答嗎? 請大大賜教~
嗯, 參考看看 http://community.borland.com/article/0,1410,26040,00.html
kakene
一般會員


發表:22
回覆:52
積分:19
註冊:2003-01-07

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-07-29 09:40:16 IP:203.204.xxx.xxx 未訂閱
function TForm1.NBGetAdapterAddress(a: integer): String; //a指定多個《網卡適配器》中的哪一個0,1,2... 請問《網卡適配器》是指什麼? 因為朋友電腦只有一張網路卡,但是參數帶入1~6卻出現三種不同的號碼,但是只有一個是正確的。 在我的電腦帶入參數1~6是只有一種號碼,但是要怎麼確定網卡在幾號位置呢?
系統時間:2024-05-02 0:12:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!