A客户端发,服务端接收,服务端转发,B客户端必须线程接收。

来源:互联网 发布:聊天中vb是什么意思 编辑:程序博客网 时间:2024/06/11 15:17
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);
0 0
原创粉丝点击