5,928
社区成员
发帖
与我相关
我的任务
分享如何把 MyStream :TMemoryStream 转化为string
如何把IdHTTP1返回的TMemoryStream，转化为string型。
...全文
请发表友善的回复…
发表回复
披着虎皮的石头 2013-06-21
- 打赏
- 举报
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; //这个就是你要的字符串！
