如何得到TStream里面的内容?就是把TStream转换成string?

Question

如题,谢谢

Answer 1

用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;

Answer 2

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;

Answer 3

楼上的都可以条条大路通重庆。也可以用Tmemo...
memo1.Lines.LoadFromStream(Tstream);
呵呵