Delphi的UDP网络传输编程

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

2、在uses单元引用加入IdSocketHandle;在Form1的OnCreate糙怍牢莱事件方法写如下代码：procedure TForm1.FormCreate(Sender: TObje艘早祓胂ct);begin idudpServer1.DefaultPort:=5000; idudpServer1.Active:=True;end;在Form1的OnDestroy事件方法写如下代码：procedure TForm1.FormDestroy(Sender: TObject);begin idudpServer1.Active:=False;end;

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

4、新建一个Delphi工程，更改默认Form1的Caption属性为：客户端，在窗体上放一个idUDPClient1控件和一个Button1控件

5、在Form1的OnCreate事件方法写如下代码：procedure TForm1.FormCreate(Sender: TObject);begin idUDPClient1.Host:= '127.0.0.1'; idUDPClient1.Port:= 5000; idUDPClient1.Active:= True;end;在Form1的OnDestroy事件方法写如下代码：procedure TForm1.FormDestroy(Sender: TObject);begin idudpClient1.Active:=False;end;

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

7、F5运行程序，再运行第3步生成的ProServer.exe程序，点击客户端的Button1按钮，服务端弹出对话框，显示客户端传过去的内容,数据传输成功。