delphi tcpip 点对点
时间: 2023-08-09 15:11:22 浏览: 41
Delphi 中可以使用 Indy 组件库来实现 TCP/IP 点对点通信。下面是一个简单的示例:
1. 创建两个 Form,分别为 Form1 和 Form2。
2. 在 Form1 上放置一个 TEdit、一个 TButton 和一个 TIdTCPClient 组件。在 Form2 上放置一个 TEdit、一个 TButton 和一个 TIdTCPServer 组件。
3. 在 Form1 的 TButton 的 OnClick 事件中编写以下代码:
```
IdTCPClient1.Host := '127.0.0.1'; // 设置服务器 IP 地址
IdTCPClient1.Port := 5000; // 设置服务器监听端口号
IdTCPClient1.Connect; // 连接服务器
IdTCPClient1.WriteLn(Edit1.Text); // 向服务器发送消息
IdTCPClient1.Disconnect; // 断开连接
```
4. 在 Form2 的 TIdTCPServer 的 OnExecute 事件中编写以下代码:
```
AContext.Connection.IOHandler.WriteLn('Hello, ' + AContext.Connection.IOHandler.ReadLn); // 发送消息给客户端
AContext.Connection.Disconnect; // 断开连接
```
5. 在 Form2 的 TButton 的 OnClick 事件中编写以下代码:
```
IdTCPServer1.Active := True; // 启动服务器
```
6. 运行程序,在 Form2 上点击按钮启动服务器。然后,在 Form1 上输入一条消息,点击按钮发送,可以在 Form2 上看到收到的消息。
这就是一个简单的 Delphi TCP/IP 点对点通信的示例。您可以根据自己的需求来修改代码。