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

　　 　　 InitNCB(ncbRock);

　　 　　 ret:=9;

　　 　　 ncbname:=random(100);

　　 　　 ncbRock.ncb_name:=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;