IPWorks中的TCP方式双向通信

最新推荐文章于 2025-10-09 10:08:11 发布

转载最新推荐文章于 2025-10-09 10:08:11 发布 · 311 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Stwo/archive/2011/09/09/2172473.html

文章标签：

#网络

本文详细介绍了如何使用Delphi实现TCP/IP通讯，包括服务器端启动、客户端连接、消息发送与接收等核心步骤。通过实例代码展示了如何配置本地主机、端口，建立连接，以及在客户端和服务端双向发送和接收消息。

1、启动服务器端
   ipwIPDaemon1.LocalPort := 'Localhost';
   ipwIPDaemon1.LocalHost := 1981;
   ipwIPDaemon1.Listening := TRUE;

2、连接服务器
ipwIPPort1.RemoteHost := 'Localhost';
ipwIPPort1.RemotePort := 1981;
ipwIPPort1.Connected := TRUE;

3、客户端向服务器发消息
ipwIPPort1.DataToSend := 'Hi~~!!!';

4、服务端向客户端发消息
    procedure BtnSendClick(Sender: TObject);
    var
      i: Integer;
    begin
      for i := 1 to ipwIPDaemon1.ConnectionCount do
        begin
          ipwIPDaemon1.DataToSend[i] := 'Hello~!!!';
          //ipwIPDaemon1.RemoteHost[i]//可以利用这个向指定客户端发消息
        end;
    end;

5、接收消息
   ipwIPPort1和ipwIPDaemon1接收消息的地方有些类似
   都在DataIn事件中，其中的Text参数就是消息内容

转载于:https://www.cnblogs.com/Stwo/archive/2011/09/09/2172473.html