关于delphi中类强烈转换的问题 我想把TStream转换成TStringStream,如何操作呢?我想把TMemoryStream里面的数据存成一个字符串,如何弄呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TStream是一个抽象类MemoryStream.SaveToStream(stringstream) 1)我想把TStream转换成TStringStream,如何操作呢? var sm: TStream; ssm: TStringStream;if sm is TStringStream then ssm := TStringStream(sm);2)我想把TMemoryStream里面的数据存成一个字符串,如何弄呢?var Mem: TMemoryStream; S, sout: String;begin Mem := TMemoryStream.Create;try S := '我想把TMemoryStream里面的数据存成一个字符串,如何弄呢?'; Mem.Write(S[1], Length(S)); SetLength(sout, Mem.Size); Mem.Position := 0; Mem.Read(sout[1], length(sout)); ShowMessage(sout);finally Mem.Free;end;end; ???简单问题,如何实现让rlTreeView1背景图自动伸展??? panel怎么把视频播放在上面 我开发了IE插件然后~同时还申请了数字签名,现在安装完打开在线安装的页面就报错退出 关于ICS中THTTPCli的Relocation的处理错误问题 跪拜求教,帮顶有分 如何将WideChar数组正确转换成中文字符串? delphi如何调用oracle下的存储过程和函数? XML应用的实例! 急!急!急!用户自定义界面的问题 谁能举个例子来说明nmhttp post的用法 散分题 这两天CSDN的访问速度很慢
MemoryStream.SaveToStream(stringstream)
var
sm: TStream;
ssm: TStringStream;if sm is TStringStream then
ssm := TStringStream(sm);2)我想把TMemoryStream里面的数据存成一个字符串,如何弄呢?
var
Mem: TMemoryStream;
S, sout: String;
begin
Mem := TMemoryStream.Create;
try
S := '我想把TMemoryStream里面的数据存成一个字符串,如何弄呢?';
Mem.Write(S[1], Length(S)); SetLength(sout, Mem.Size);
Mem.Position := 0;
Mem.Read(sout[1], length(sout));
ShowMessage(sout);
finally
Mem.Free;
end;
end;