请问用TUDPSocket如何收发信息?(100分)

  • 主题发起人 主题发起人 夏雪儿
  • 开始时间 开始时间

夏雪儿

Unregistered / Unconfirmed
GUEST, unregistred user!
请问用TUDPSocket如何收发信息?
请给出简短代码,谢谢!
 
用indy的吧,这个很不好用
indy的有例子
--------
http://www.8421.org
 
Delphi里面也有UDP的例子,不过是NMUDP,用法差不多
Send:
var
MyStream: TMemoryStream;
MyStream := TMemoryStream.Create;
MyStream.Write(@s,Length(s));
UDP1.SendStream(MyStream);
Receive:
procedure OnUDP1DataReceived(....)
var
MyStream: TMemoryStream;
MyStream := TMemoryStream.Create;
MyStream.Read(@s,NumberBytes);
 
D6 里面 IndyClients 页里的第二个控件:TIdUdpClient
向 192.168.110.75 主机的 1234 端口发送一个 'hello':
IdUDPClient1.Send('192.168.110.75', 1234, 'hello');
 
多人接受答案了。
 
后退
顶部