如何把 MyStream :TMemoryStream 转化为string

披着虎皮的石头 2013-06-21 11:31:37
如何把IdHTTP1返回的TMemoryStream,转化为string型。
...全文
173 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
Function getStrFromStream :String; var t :TStream; s :String; i :Int64; begin t :=TFileStream.Create('c:\1.txt', fmOpenRead); try i :=t.Size; SetLength(s, i); t.ReadBuffer(s[1], i); //ShowMessage(s); result :=s; finally t.Free; end; end; 比较偷懒,论坛里发帖较简单的问题,不如搜索一下快。
xhz8000 2013-06-21
  • 打赏
  • 举报
回复
strStream := TStringStream.Create(''); memStream.SaveToStream(strStream); strStream.DataString; //这个就是你要的字符串!

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧