Indy10 IdUdpServer使用方法

Indy10是Delphi中一个常用的网络编程库，IdUDPServer是其中一个组件，用于实现UDP协议相关的服务器程序。下面是一个简单的使用示例：

1. 在Delphi中创建一个新的控制台应用程序项目。
2. 在工具箱中选择"Indy UDP Server"组件，将其拖拽到主窗体上。
3. 设置IdUDPServer的一些属性，比如端口号、地址等，可以在窗体的OnCreate事件中进行设置，示例代码如下：

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdUDPServer1.DefaultPort := 8888;  //设置监听端口为8888
  IdUDPServer1.Bindings.Add.IP := '0.0.0.0'; //设置监听地址为任意地址
  IdUDPServer1.Bindings.Add.Port := 8888;
  IdUDPServer1.Active := True;  //启动UDP服务器
end;

4. 在IdUDPServer1Read事件中处理接收到的数据，示例代码如下：

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);
var
  Str: string;
begin
  SetLength(Str, Length(AData));
  Move(AData[0], Str[1], Length(AData));
  WriteLn('Received message from ' + ABinding.PeerIP + ':' + IntToStr(ABinding.PeerPort));
  WriteLn('Message: ' + Str);
end;

以上代码实现了一个简单的UDP服务器，当有客户端发送数据到该服务器时，服务器会接收到数据并在控制台上打印出来。

需要注意的是，当启动UDP服务器时，可能会出现端口被占用的情况，需要根据具体情况选择其他可用的端口号。