indy组件页里的TIdUdpClient可以发送数据给TIdUdpServer接收,但它如何接收TIdUdpServer发送来的数据呢,它没有类似receive或read事件,而只有一个status事件,听有人说用UDP断口侦听,该怎么做?
解决方案 »
- DELPHI 7 从入门到精通 你们都看过没?
- Delphi窗体问题!
- 做一个简单的类似于电子地图的东东
- 有关登录窗体?
- 100分够吗?求高手修改一下代码,我的窗体里有两个按钮,一个开始,一个关闭窗体,当我点击了开始,程序就停止不了了,根本按不了关闭窗
- 判断日期是否是一个月的最后一天的问题
- 十六转字符问题,得分简单
- 如何增加数据时不会立刻写入数据库中,而是调用POST方法后才写入呢
- 谁有关于delphi实现Epson LQ-1600K打印小票据的资料?
- 用Batchmove追加数据时,下面这段代码为什么老是出错。(两个库结构相同)。
- delphi中用Richtext控件写入sql server的一个Text字段,用Asp读取时不能正常显示,何解?
- 怎么解决三层应用程序死机的问题?
TIdUdpServer 接受端+发送端
与TIdTcpClient TIdTcpServer是有区别的你直接用TIdUdpServer 就可以了
TIdUdpServer 用做发送端和TIdUdpClient 比起来有啥不同呢
DataStringStream: TStringStream;
s: String;
AD:Tstream,
Msg:TSendMSg;
begin
New(msg);
DataStringStream := TStringStream.Create(''); try
UDPMemo.Lines.AddStrings(GetpreceptList);
DataStringStream.CopyFrom(AData, AData.Size); UDPMemo.Lines.Add(DataStringStream.DataString + ' IP£º' + ABinding.PeerIP + ' port£º ' + IntToStr(ABinding.PeerPort));
s := 'ÒÑÊÕµ½: ' + UDPServer.LocalName +'·¢µÄ: '+ DataStringStream.DataString;
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
finally
DataStringStream.Free;
end;