Delphi的UDP网络传输编程

1、打开Delphi7集成开发环境，将默认工程的Form1窗体Caption属性设置为：服务端，在窗体上放一个idUDPServer1控件。

3、在idUDPServer1控件的OnRead事件方法写如下代码：procedure TForm1.IdUDPServer1UDPRead(Sender: TObj髫潋啜缅ect; AData: TStream; ABinding: TIdSocketHandle);var Ds: TStringStream;begin Ds:= TStringStream.Create(''); //接收数据流 Ds.CopyFrom( AData, AData.Size); ShowMessage('接收到消息：'+Ds.DataString); //显示数据流内容 Ds.Free;end;保存工程工程名为ProServer.dpr，F5运行程序，生成ProServer.exe

6、双击Button1进入OnClick事件方法，写代码如下：procedure TForm1.Button1Click(Sender: TObject);begin idUDPClient1.Send('发送消息abc');end;