IdTCPClient 客户端不知道怎么接收服务端转发来的文字?
搞了3天3夜没搞定,中间打手枪一次,虚脱了。
我的目的是A客户端发送文字到服务端,服务端转发给B客户端,
现在A数据发送到了服务端,服务端发送到了B客户端,现在B客户端怎么接收服务端发来的文字?
用的是Delphi7自带的 IdTCPClient2 和 IdTCPServer1,不是Delphi2007,也不是Delphi XE
//A客户端已经连上了服务端,也能发送数据到服务端,服务端也接收成功
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
IdTCPClient2.WriteLn(host+'#4>'+Memo1.Text);
//服务端转发到B客户端
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
...
begin
str:=AThread.Connection.ReadLn;
cmd:=pos('#4>',str); //查找分隔符
ip:=copy(str,1,cmd-1); //提取文件名
sendStr:=copy(str,cmd+1,Length(str)-cmd-1);
sm:=TStringStream.Create(sendStr);
msize:=sm.Size;//这里有大小
AThread.Connection.WriteInteger(msize);
AThread.Connection.WriteStream(sm);
sm.Free;
现在B客户端怎么接收数据?