delphi tcpcomm

Delphi中的TCP通信可以使用Indy组件库中的TIdTCPClient和TIdTCPServer组件来实现。

TIdTCPClient组件用于客户端，可以建立到指定IP地址和端口号的TCP连接，发送数据到服务器，并接收来自服务器的响应信息。

TIdTCPServer组件用于服务器端，可以监听指定的端口号，接收客户端的连接请求，并处理来自客户端的数据请求。

以下是一个简单的示例代码：

客户端：

var
  TCPClient: TIdTCPClient;
begin
  TCPClient := TIdTCPClient.Create(nil);
  try
    TCPClient.Host := '127.0.0.1'; // 设置服务器IP地址
    TCPClient.Port := 8888; // 设置服务器端口号
    TCPClient.Connect; // 建立连接
    TCPClient.SendCmd('Hello, server!'); // 发送数据
    ShowMessage(TCPClient.LastCmdResult.Text); // 接收服务器响应
  finally
    TCPClient.Disconnect; // 断开连接
    TCPClient.Free;
  end;
end;

服务器端：

var
  TCPServer: TIdTCPServer;
begin
  TCPServer := TIdTCPServer.Create(nil);
  try
    TCPServer.DefaultPort := 8888; // 设置监听端口号
    TCPServer.OnExecute := TCPServerExecute;
    TCPServer.Active := True; // 开始监听
    ShowMessage('Server started.');
  finally
    TCPServer.Active := False;
    TCPServer.Free;
  end;
end;

procedure TCPServerExecute(AContext: TIdContext);
var
  Data: string;
begin
  Data := AContext.Connection.IOHandler.ReadLn; // 接收客户端数据
  AContext.Connection.IOHandler.WriteLn('Hello, client!'); // 发送响应数据
end;