memo1为啥读不到Stream

2013-01-08

memo1为什么读不到Stream?代码如下：var mstr:TMemoryStreambeginmstr:TMemoryStream.Createmstr:getkq

memo1为什么读不到Stream?
代码如下：

var mstr:TMemoryStream;
begin
  mstr:=TMemoryStream.Create;
  mstr:=getkqinfo;

  memo1.Lines.LoadFromStream(mstr);
end;

function getkqinfo:TMemoryStream;
var mstr:TMemoryStream;
begin
  mstr:=TMemorySTream.Create;
  with Adoqry2 do
  begin
    Active := True;
    if not IsEmpty then
    begin
      TBlobField(FieldByName('kqinfo')).SaveToStream(mstr);
    end;
  end;
  result := mstr;
end;

请大家帮忙看下，为什么memo1取不到数，我测试了的，返回来的mstr size大小超过20000。
[解决办法]

引用:

这个我可以肯定的是mstr是取到数了，但memo1就是读不了这个mstr

上边的例子演示了stream读取

如果你确定mstr不为nil, 执行下 mstr.Position := 0;

热点排行

.NET

memo1为啥读不到Stream