A客戶端發,服務端接收,服務端轉發,B客戶端必須線程接收。


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);

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2020 ITdaan.com