Delphi实现NetBIOS广播收发

 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}

　 　　 file://消息处理过程，注意消息宏要与后处理中的一致。

　　　　 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;

　　 　　 file://取后处理例程的地址。

　　 　　 ncbRock.ncb_buffer:=@char_buffer; file://取数据缓冲区的地址。

　　 　　 InitNCB(ncbRock);

　　 　　 ret:=9;

　　 　　 ncbname:=random(100);

　　 　　 ncbRock.ncb_name[1]:=ncbname;

　　 　　 ncbRock.ncb_command:=＄30;

　　 　　 file://加名，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; file://异步接收方式字。

　　　　　 　　 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

　　　　 　　 file://取出数据缓冲区的内容

　　　　 　　 for x:=0 to 511 do

　　　　　 　　 int_buffer[x＋1]:=char_buffer[x];

　　　　　 　　 ////以下可以进行数据处理////

　　　　　 　　 file://重新打开异步接受。

　　　　　 　　 ncbRock.ncb_post:=post_add;

　　　　　 　　 ncbRock.ncb_command:=＄a3;

　　　　　 　　 ncbRock.ncb_event:=0;

　　　　　 　　 ncbRock.ncb_length:=512;

　　　　　 　　 ret:=netbiosSR(ncbRock);

　　　　　 　　end;

　　　 　　end.

　　注:广播发送非常简单，不再详述。上述程序经过一年运行完全可靠。另外，经过改造可以将其改为LAN下的聊天程序。

查看本文来源