如何合并2个内存流?

Question

有2个MemoryStream: s1,s2 ，要求合并后通过tcp/udp 发送出去，不要告诉我分两次发送啊！如何合并?

Answer 1

流有一个CopyFrom的方法，看帮助。

Answer 2

linzhengqun(风。我回来了) :先谢谢了.procedure TForm1.Button1Click(Sender: TObject);
  var C1,C2:string;
      Str1,str2:TMemoryStream;
begin
 try
  str1:=TMemoryStream.Create;
  str2:=TMemoryStream.Create;
  C1:='张三';
  C2:='你好';
  Str1.Write(C1[1],Length(C1));
  str2.Write(C2[1],Length(C2));
  str1.Position:=str1.Size+1;
  str1.CopyFrom(str2,str2.Size);  //此处出错，Stream read error.
  str1.Position:=0;
  Memo1.Lines.LoadFromStream(str1);
 except
  str1.Free;
  str2.Free;
 end;
end;

Answer 3

出错处前加上一句: str2.Position:=0;
搞定，谢谢了。