关于UDP的问题 很着急 在线等啊

时间:2021-06-18 21:55:04

 

我使用TidUDpClient T IDUDPSERVER控件的进行UDP传输, 我发现这两个控件在98操作系统下不传输 测试源码如下:

发送端放了一个Edit1 一个button 一个IdUDPClient1控件

button下代码如下:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

IdUDPClient1.Broadcast(edit1.Text,1923);

end;

 

接受端 放了一个MEmo 一个IdUDPServer1控件

代码如下

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;

  ABinding: TIdSocketHandle);

 Var Rec:Tstringstream;

    a:string;

 begin

    Rec:=Tstringstream.Create('');

    Rec.CopyFrom(Adata,0);

    a:=Rec.DataString;

    memo1.Lines.Add(a);

end;

 

我觉得代码应该没问题,只是没有设置两个控件的host属性 port属性都设成1923 对不对啊?为什么在2000上可以传输 98上不行啊???

是不是这两个控件的问题?如果是该怎么解决啊?大侠们 兄弟大恩不言谢啦!!!

 

症状:
还有做测验的98机器访问不了2000操作系统的机器,报错没有权限
两个小程序同时装在2000上传输没问题 装在98上就用不了