我使用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上就用不了