如何得到TStream里面的内容?就是把TStream转换成string?
如题,谢谢
[解决办法]
用ReadBuffer方法, 将TStream对象中的内容读出。
例如：
var
t : TFileStream;
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);
finally
t.Free;
end;
end;
[解决办法]
function GetStreamString( stream:TStream ):string;
var
strStream:TStringStream;
begin
strStream:= TStringStream.Create( ' ' );
try
strStream.CopyFrom( stream, stream.Size );
Result:=strStream.DataString;
finally
strStream.Free;
end;
end;
[解决办法]
楼上的都可以
条条大路通重庆。。。。
也可以用Tmemo...
memo1.Lines.LoadFromStream(Tstream);
呵呵
