操作TStream的小心得

   也是原来很少操作流的恶果.

   我在将一个流的数据载入到FastReport的时候,我临时用这样的代码来写

(aStream as TMemoryStream).SaveToFile('tmp');
LoadPreparedReport('tmp');
ShowPreparedReport;

   它可以非常正确的执行,在其他的问题解决之后,我尝试不读写硬盘,而LoadPreparedReport方法的源码是这样的

procedure TfrReport.LoadPreparedReport(FName: String);
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(FName, fmOpenRead);
  EMFPages.LoadFromStream(Stream);
  Stream.Free;
  CanRebuild := False;
end;

   于是我把代码改成了这样:

EMFPages.LoadFromStream((aStream as TMemoryStream));
CanRebuild := False;
ShowPreparedReport;

   快乐的时光总是短暂的,在我正准备完成这最后一击时,缺发生了载入错误的异常,太faint了.半个小时后我改成了这样:

aStream.Position := 0;
EMFPages.LoadFromStream((aStream as TMemoryStream));
CanRebuild := False;                           
ShowPreparedReport;

   它正常了,学到的东西就是,操作流的时候一定要随时注意其position现在在什么地方,如果觉得代码应该没有问题缺在报错的化,试试把position指到0试试..

   仅以此文作个标记,加深记忆,顺便庆祝我自己的远程报表系统FastReport部分终于完工了,不过它现在集成在一个软件中,过段时间空了,把它整理出来.

   再顺便谢谢tinyfool同学邀请我参加gmail体验活动:)