我客户端和服务端都使用IDUDPServer控件;;现在服务端广播个 消息 ,可是客户端却没收到,代码如下:
服务端:
IdUDPServer1.Active:=true;
IdUDPServer1.broadcastEnabled:=true;
IdUDPServer1.Broadcast('mmmm',89); //其他的没设置;客户端:
IdUDPServer2.Active:=true;
IdUDPServer2.broadcastEnabled:=true;
IdUDPServer2.defaultPort:=89;
procedure TForm1.IdUDPServer2UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
GetStream: TStringStream;
SoureString: String;
begin
try
application.ProcessMessages;
GetStream:=TStringStream.Create('');
Try
GetStream.CopyFrom(AData,AData.Size);
SoureString:=GetStream.DataString;
memo1.Text:=SoureString;
except
end;
finally
FreeAndNil(GetStream);
end;
end;
哪位大侠帮看一下啊 ;;
服务端:
IdUDPServer1.Active:=true;
IdUDPServer1.broadcastEnabled:=true;
IdUDPServer1.Broadcast('mmmm',89); //其他的没设置;客户端:
IdUDPServer2.Active:=true;
IdUDPServer2.broadcastEnabled:=true;
IdUDPServer2.defaultPort:=89;
procedure TForm1.IdUDPServer2UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
GetStream: TStringStream;
SoureString: String;
begin
try
application.ProcessMessages;
GetStream:=TStringStream.Create('');
Try
GetStream.CopyFrom(AData,AData.Size);
SoureString:=GetStream.DataString;
memo1.Text:=SoureString;
except
end;
finally
FreeAndNil(GetStream);
end;
end;
哪位大侠帮看一下啊 ;;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货