使用流:
var
Buf :array of Byte;
MyStream:TMemoryStream;
begin
//创建MyStream
SetLength(Buf ,Len); //分配Buf的长度
// 存放文本入Buf 并记下文本的长度 大致格式 | TxtLen(文本长度)| Txt(文本)| 图象 |
CopyMemory(@Buf[0],Txt[1],Length(Txt));
//然后将Buf存入 MyStream;
//MyStream.copyfrom(ImageStream) (将图象流读倒MyStream)
// 然后发送myStream
// MyStream.free
end;