如何实现UDP广播功能~~请提供思路、代码~~~ 类似于QQ的系统消息....谢谢~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果是局域网,就很简单,假设你的ip是 192.168.0.x 段的, 你只要往 192.168.0.255 发送消息,就是广播了 IdUDPClient.Send('192.168.0.255',8880,'hello'); procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);var DataStringStream: TStringStream; s: String;begin DataStringStream := TStringStream.Create(''); try DataStringStream.CopyFrom(AData, AData.Size); UDPMemo.Lines.Add('Received "' + DataStringStream.DataString + '" from ' + ABinding.PeerIP + ' on port ' + IntToStr(ABinding.PeerPort)); s := 'Replied from ' + UDPServer.LocalName + ' to "' + DataStringStream.DataString + '"'; ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s)); finally DataStringStream.Free; end;end; TO jinjazz(近身剪(N-P攻略)) :采用UDP广播方式时,应用程序该如何处理丢失的和顺序有误的数据文报呢? 哦..这样啊..ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));这句的功能是什么呢?能解释一下嘛... 问下这样的正则我应该怎么写 请问有谁知道如何实现对任一个窗口进行透明化处理,谢谢! 所有的分了!谢谢 如何释放动态库中创建的子窗口? Delphi中如何对一个对象加锁!! 帮忙!窗口最小化成右下角图标后恢复不出来了 怎样使richedit的滚动条跳到0的位置? 在Delphi中有哪些情况会导致OnPaint事件的发生呢? 如果我动态生成数组用SETLENGTH(X)请看? 谁这里有关于在程序中使用pack table的源代码, delphi 的string如何转换成vc 或 vb的string?(在线等待) FastReport中进行套打的问题
var
DataStringStream: TStringStream;
s: String;
begin
DataStringStream := TStringStream.Create('');
try
DataStringStream.CopyFrom(AData, AData.Size);
UDPMemo.Lines.Add('Received "' + DataStringStream.DataString + '" from ' + ABinding.PeerIP + ' on port ' + IntToStr(ABinding.PeerPort));
s := 'Replied from ' + UDPServer.LocalName + ' to "' + DataStringStream.DataString + '"';
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
finally
DataStringStream.Free;
end;
end;
采用UDP广播方式时,应用程序该如何处理丢失的和顺序有误的数据文报呢?
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
这句的功能是什么呢?能解释一下嘛...