如何把 MyStream :TMemoryStream 转化为string

[披着虎皮的石头]

如何把IdHTTP1返回的TMemoryStream，转化为string型。

[xhz8000]

strStream := TStringStream.Create(''); memStream.SaveToStream(strStream); strStream.DataString; //这个就是你要的字符串！

• 打赏
• 举报

回复 赞

[披着虎皮的石头]

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; 比较偷懒，论坛里发帖较简单的问题，不如搜索一下快。

• 打赏
• 举报

回复 赞