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