用Delphi實現NetBIOS廣播收發 (2001年5月17日) 

本站更新  分類:局域網,通訊   作者:成都　firefly  推薦:   閱讀次數:231  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

　　NetBIOS網絡協議對于很多讀者來說可能比較陌生，但其實它是由IBM開發的一很古老的協議，當年在LAN上也風光一時。說它老，其實也不過10年光景，IT業的展實在是太快。由于NetBIOS不具備路由功能，也就是說它的數據包無法跨網段傳，因此在廣域網、城域網大行其道的今天，它已退居配角。如果你有心的話，能發現在Window95/98的網絡協議中仍然保留著NetBIOS，不過它已經改名叫NetBEUINetBIOS擴展用戶接口)，是NetBIOS的Microsoft改進版。另外在TCP/IP以及IPX/SPX 協議中，也依然保留了對NetBIOS的支持，只要查看網絡議屬性中的高級，就能看到啟用NetBIOS的選項。
　　之所以這樣是有原因的。NetBIOS協議短小精悍，非常適用于小型局域網，特別是一些對實時性要求較高的網絡環境。NetBIOS的廣播功能由于有開發使用方便、系統開銷小的優點，所以在很多場合仍然被大量使用。筆者由于工作需要，在一個航天測控軟件的編制中就使用了NetBIOS廣播功能。
　　我原以為這是件很簡單的工作，因為WIN32API中提供了一個Netbios函數，里面封裝了所有函數和數據結構，用起來很方便，在BC和VC下都如此。可是由于這次是使用流行的Delphi作編譯器，卻遇到了意想不到的麻煩:號稱全面移植WIN32API的Dlphi
中偏偏沒有Netbios函數!這下頓時讓我方寸大亂。怎么辦?總不能從底層干起吧?而且時間也不允許。在冷靜下來之后，我忽然想到，既然WIN95支持NetBIOS，那么系統就一定會提供DLL支持，編譯器本身是沒有底層支持的。于是我在機器中搜索，果然，
在SYSTEM目錄下有一個Netbios.dll，用快速查看將其打開，在導出表部分顯示如下:
　　導出表:
　　序數 入口 名稱
　　0000 00001a37 NetbiosAddthd
　　0001 000019eb NetbiosDelete
　　0002 00001a96 NetbiosDelthd
　　0003 000019b1 NetbiosInitialize
　　0004 0000186b PostRoutineCaller
　　0005 0000102e _Netbios
　　注意到那個0005號_Netbios導出函數了嗎?那就是我需要的!經過緊張的試驗調試，證明它和WIN32API手冊上的Netbios完全一樣。剩下的工作就比較簡單了，定義一個NCB(Netbios控制塊)記錄，將NCB數據結構封裝在里面;聲明一個后處理例程以及消息處理過程，以完成廣播數據的接收和發送。有關NCB數據結構的詳細內容以及 NetBIOS廣播的原理，限于篇幅我就省略了。需要的朋友可以查看BC或VC的Help或相關書籍。下面是有關的Delphi源代碼。
　　/////////Netbios單元///////////
　　unit netbios;
　　interface
　　uses windows，messages，Forms，SysUtils;
　　type
　　{＄X＋}{＄A＋}
　　 //聲明一個NCB記錄指針。
　　 PNCB=^NCB;
　　//聲明一個后處理例程的過程類型。
　　 POST=procedure(var ncbR:PNCB);
　　　//以下是NCB記錄，教訓1:將上面的編譯選項置為{＄A＋}以取消數據對齊。
如果在廣播中有浮點數的話，數據對齊會讓你大吃苦頭!我已經有過慘痛教訓!:(
　　 NCB=record
　　 ncb_command:UCHAR;
　　 ncb_retcode:UCHAR;
　　 ncb_lsn:UCHAR;
　　 ncb_num:UCHAR;
　　 ncb_buffer:PCHAR;
　　 ncb_length:WORD;
　　 ncb_callname:array [1..16] of UCHAR;
　　 ncb_name:array [1..16] of UCHAR;
　　 ncb_rto:UCHAR;
　　 ncb_sto:UCHAR;
　　 ncb_post:POST;
　　 ncb_lana_num:UCHAR;
　　 ncb_cmd_cplt:UCHAR;
　　 ncb_reserve:array [1..10] of UCHAR;
　　 ncb_event:HANDLE;
　　 end;
　　//聲明自己的Netbios函數。教訓2:一定要使用pascal調用規范，否則，嘿嘿!!
　　function NetbiosSR(ncbX:PNCB):UCHAR;pascal;
　　//初始化NCB。
　　procedure InitNCB(var ncbY:PNCB);
　　//后處理例程，注意使用遠指針。
　　procedure postrout(var ncbR:PNCB);stdcall;far;
　　var
　　 char_buffer:array[0..511]of UCHAR;
　　 int_buffer:array[1..512]of Byte;
　　implementation
　　 //調用系統的Netbios。dll中的Netbios函數標號是6。Delphi搜索外部文件的
順序是當前目錄→系統目錄→其他目錄，別忘了保證存在Netbios.dll。
　　 function NetbiosSR(ncbX:PNCB):UCHAR;external ‘netbios' index 6;
　　 procedure InitNCB(var ncbY:PNCB);
　　 var
　　 x:integer;
　　 begin
　　 ncbY.ncb_command:=0;
　　 ncbY.ncb_retcode:=0;
　　 ncbY.ncb_lsn:=0;
　　 ncbY.ncb_num:=0;
　　 ncbY.ncb_length:=512; //數據緩沖長度，最大512B。
　　 for x:=1 to 16 do
　　 begin
　　 ncbY.ncb_callname[x]:=0;
　　 ncbY.ncb_name[x]:=0;
　　 end;
　　 ncbY.ncb_rto:=0;
　　 ncbY.ncb_sto:=0;
　　 ncbY.ncb_lana_num:=0;
　　 ncbY.ncb_cmd_cplt:=0;
　　 for x:=1 to 10 do
　　 ncbY.ncb_reserve[x]:=0;
　　 ncbY.ncb_event:=0;
　　 end;
　　//后處理例程的作用是當接收到廣播消息時，立即向相應窗口發送消息。我在這里偷了點懶，以廣播方式發送一個定時器消息。如果你愿意可以向指定窗口發送自定義消息，這樣要復雜一些。首先，要把指定窗口的句柄傳遞給后處理例程。通常這是做不到的，但可以利用一些技巧做到。在NCB記錄后面緊挨著聲明一個句柄類型，然后把指定窗口的句柄賦值給它的實例變量;這樣句柄變量的地址與NCB是連續的。在后處理中通過指針或匯編語句將ncbR的地址移到最后一個字節＋1，就是窗口句柄的起始地址。明白嗎?至于自定義消息，需要重新編譯連接庫，限于篇幅我就不羅嗦了，有興趣的可以自己嘗試。
　　 procedure postrout(var ncbR:PNCB);
　　begin 
　　sendMessage(wnd_BROADCAST，WM_TIMER，0，0);
　　 end;
　　end.
　　////////窗口單元//////////
　　unit broadcast;
　　interface
　　uses
　　 Windows，Messages，SysUtils，Classes，Graphics，Controls，Forms，Dialogs，
　　 netbios;
　　type
　　 Tmain=class(TForm)
　　 private
　　 {Private declarations}
　　 //消息處理過程，注意消息宏要與后處理中的一致。
　　 procedure post_main(var Message:TMessage);message WM_TIMER;
　　 public
　　 {Public declarations}
　　 end;
　　var
　　 main: Tmain;
　　 ncbname:UCHAR;
　　 ncbRock:PNCB;
　　 post_add:POST;
　　implementation
　　{＄R ＊.DFM}{＄A－}{＄I－}
　　/////////主窗口建立過程/////////
　　procedure Tmain.FormCreate(Sender: TObject);
　　var
　　 ret:UCHAR;
　　 i，x，y:integer;
　　 p:single;
　　begin
　　 new(ncbRock);
　　 randomize();i:=0;
　　 FillChar(char_buffer，sizeof(char_
　　buffer)，0);
　　 post_add:=@postrout;
　　 //取后處理例程的地址。
　　 ncbRock.ncb_buffer:=@char_buf
　　fer; //取數據緩沖區的地址。
　　 InitNCB(ncbRock);
　　 ret:=9;
　　 ncbname:=random(100);
　　 ncbRock.ncb_name[1]:=ncbna
　　me;
　　 ncbRock.ncb_command:=＄30;
　　 //加名，ret為0加名成功。
　　 while ((i<10)and(ret<>0)) do
　　 begin
　　 ret:=netbiosSR(ncbRock);
　　 i:=i＋1;
　　 end;
　　 if ret<>0 then
　　 begin
　　 for i:=1 to 20 do
　　 messagebeep(－1);
　　 MessageDlg(‘網絡通信無法實現！您需要關閉程序重新運行.'，mtWarning，
　　 [mbOk]，0);
　　 end
　　 else if ret=0 then
　　 begin
　　 ncbRock.ncb_post:=post_add;
　　 ncbRock.ncb_command:=＄a3; //異步接收方式字。
　　 ncbRock.ncb_event:=0;
　　 ncbRock.ncb_length:=512;
　　 ret:=netbiosSR(ncbRock);
　　 end;
　　end;
　　///////////廣播消息處理過程/////
　　procedure Tmain.post_main(var Message:TMessage);
　　var
　　x:integer;
　　ret:UCHAR;
　　begin
　　 //取出數據緩沖區的內容
　　 for x:=0 to 511 do
　　 int_buffer[x＋1]:=char_buffer[x];
　　 ////以下可以進行數據處理////
　　 //重新打開異步接受。
　　 ncbRock.ncb_post:=post_add;
　　 ncbRock.ncb_command:=＄a3;
　　 ncbRock.ncb_event:=0;
　　 ncbRock.ncb_length:=512;
　　 ret:=netbiosSR(ncbRock);
　　end;
　　end.
　　注:廣播發送非常簡單，不再詳述。上述程序經過一年運行完全可靠。另外， 經過改造可以將其改為LAN下的聊天程序。
有什么問題可以Email到ywfirefly@ynmail.com與我聯系。歡迎切磋。