IPWorks中的TCP方式双向通信

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参数就是消息内容