A客户端发送
ms_send:=TMemoryStream.Create;
RxRichEdit3.Lines.SaveToStream(ms_send);
i:=ms_send.Size;
IdTCPClient2.WriteInteger(i);
IdTCPClient2.WriteStream(ms_send);//发送的是图片和文字
服务端接收
ss:=TStringStream.Create('');
msize:=AThread.Connection.ReadInteger();
AThread.Connection.ReadStream(ss,msize);
RxRichEdit1.Lines.Add(ss.DataString);//这里能显示图片和文字
服务端转发
AThread.Connection.WriteInteger(msize);
AThread.Connection.WriteStream(ss);
B客户端必须线程接收
ss := TStringStream.Create('');
i:=FClient.ReadInteger();
FClient.ReadStream(ss,i);
RxRichEdit2.Lines.Add(ss.DataString);
ms_send:=TMemoryStream.Create;
RxRichEdit3.Lines.SaveToStream(ms_send);
i:=ms_send.Size;
IdTCPClient2.WriteInteger(i);
IdTCPClient2.WriteStream(ms_send);//发送的是图片和文字
服务端接收
ss:=TStringStream.Create('');
msize:=AThread.Connection.ReadInteger();
AThread.Connection.ReadStream(ss,msize);
RxRichEdit1.Lines.Add(ss.DataString);//这里能显示图片和文字
服务端转发
AThread.Connection.WriteInteger(msize);
AThread.Connection.WriteStream(ss);
B客户端必须线程接收
ss := TStringStream.Create('');
i:=FClient.ReadInteger();
FClient.ReadStream(ss,i);
RxRichEdit2.Lines.Add(ss.DataString);