delphi 的idtcpserver如何发送消息到idtcpclient,并在idtcpclient接收

在Delphi中，`IDTCPServer` 和 `IDTCPClient` 是用于网络通信的组件，它们通常用于实现基于TCP的点对点通信。要从服务器向客户端发送消息并让客户端接收，你可以按照以下步骤操作：

1. **设置连接**:
- 创建 `IDTCPServer` 实例，并将其绑定到特定的端口上，例如：

     server := TIdTCPServer.Create(nil);
     server.BindPort(YourServerPort);
     server.OnAccept := ServerAccepted;
     server.Active := True;

- 客户端通过连接请求触发 `ServerAccepted` 事件处理程序，在这里创建一个新的 `IDTCPClient` 对象。

2. **实现消息传输**:
- 当接受到连接请求时，创建一个 `TIdTCPConnection` 对象，它表示连接：

     var
       client: TIdTCPConnection;
     begin
       client := TIdTCPConnection.Create(server.Acceptor);
       // 确保连接建立成功
       if client.Connected then
       begin
         // 发送数据
         client.WriteLn('Hello from server!');
       end;
       client.Disconnect;
     end;

- 在这个例子中，我们发送了一个简单的字符串消息。

3. **接收消息** (在客户端):
- 为了在客户端接收消息，需要开启一个循环监听输入数据：

     client.OnDataAvailable := ClientDataReceived;

4. **处理接收到的数据**:

     procedure ClientDataReceived(Sender: TObject; const AContext: TIdContext);
     var
       data: string;
     begin
       data := Client.ReadStringLn;
       ShowMessage('Received message: ' + data);
     end;

这里，当客户端接收到数据时，`ReadStringLn` 函数会读取一行文本作为消息。

5. **关闭连接**:
- 完成数据交换后，记得关闭连接释放资源：

     client.Free;