Delphi實現NetBIOS廣播收發 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
原始出處 http://xuguohua.myrice.com/skill/35.htm
作者 DELPHI大學 許國華整理 Delphi實現NetBIOS廣播收發
NetBIOS網路協定對於很多讀者來說可能比較陌生,但其實它是由IBM開發的一個很古老的協定,當年在LAN上也風光一時。說它老,其實也不過10年光景,IT業的發展實在是太快。由於NetBIOS不具備路由功能,也就是說它的資料包無法跨網段傳輸,因此在廣域網、城域網大行其道的今天,它已退居配角。如果你有心的話,能夠發現在Window95 / 98的網路協定中仍然保留著NetBIOS,不過它已經改名叫NetBEUI(NetBIOS擴展用戶介面),是NetBIOS的Microsoft改進版。另外在TCP/IP以及IPX/SPX協定中,也依然保留了對NetBIOS的支援,只要查看網路協定屬性中的高級,就能看到啓用NetBIOS的選項。
之所以這樣是有原因的。NetBIOS協定短小精悍,非常適用於小型局域網,特別是一些對即時性要求較高的網路環境。NetBIOS的廣播功能由於有開發使用方便、系統開銷小的優點,所以在很多場合仍然被大量使用。筆者由於工作需要,在一個航太測控軟體的編制中就使用了NetBIOS廣播功能。
我原以爲這是件很簡單的工作,因爲WIN32API中提供了一個Netbios函數,裏面封裝了所有函數和資料結構,用起來很方便,在BC和VC下都如此。可是由於這次是使用流行的Delphi作編譯器,卻遇到了意想不到的麻煩:號稱全面移植WIN32API的Delphi中偏偏沒有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_buffer; //取資料緩衝區的位址。
InitNCB(ncbRock);
ret:=9;
ncbname:=random(100);
ncbRock.ncb_name[1]:=ncbname;
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下的聊天程式。
------
~~~Delphi K.Top討論區站長~~~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |