UDP在windows NT下通信问题 ( 积分: 20 )

我的程序在WINDOWS2000下UDP通信正常
但是程序在WINDOWS NT下就不能正常通信
按理说，系统都是NT结构，不会出现这种问题，是不是DELPHI自生控件的原因 啊？？？
请高手指点
以下是我UDP 能信的代码
Function TFrmMainServer.SendDataBase(IP,Content:String):Boolean ;
var
MyStream: TMemoryStream;
TmpStr: String;
Begin
ServerUDP.ReportLevel := Status_Basic;
ServerUDP.LocalPort:=8888;
ServerUDP.RemotePort:=9999;
ServerUDP.RemoteHost :=IP;
TmpStr := Content;
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[1], Length(TmpStr));
ServerUDP.SendStream(MyStream);
finally
MyStream.Free;
end;
Result:=True;
Exit ;
end;

我的程序在WINDOWS2000下UDP通信正常
但是程序在WINDOWS NT下就不能正常通信
按理说，系统都是NT结构，不会出现这种问题，是不是DELPHI自生控件的原因 啊？？？
请高手指点
以下是我UDP 能信的代码
Function TFrmMainServer.SendDataBase(IP,Content:String):Boolean ;
var
MyStream: TMemoryStream;
TmpStr: String;
Begin
ServerUDP.ReportLevel := Status_Basic;
ServerUDP.LocalPort:=8888;
ServerUDP.RemotePort:=9999;
ServerUDP.RemoteHost :=IP;
TmpStr := Content;
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[1], Length(TmpStr));
ServerUDP.SendStream(MyStream);
finally
MyStream.Free;
end;
Result:=True;
Exit ;
end;

ServerUDP.LocalPort:=8888;
ServerUDP.RemotePort:=9999;
改为20000以上看看
NT的Port可能保留的比较多

不会吧，问题是接收都能接收到哇，发送就不行

不会是发送的端口封了吧

肯定不是哈，在一个网内测试过