三层如何从数据库中读二进制数据

Question

  frxReport1.DesignReport;
     Stream:=TMemoryStream.Create;     frxReport1.SaveToStream(Stream);
     with dm.cSalaryReport,dm.cSalaryReport.Params  do
         begin
           Close ;
         ParamByName('ncustomerid').Value :=dm.CompanyID ;
         Open ;
         Append ;
         FieldByName('CustomerID').AsInteger:=Dm.CompanyID;
         FieldByName('ReportName').AsString :=ADDSalaryReportFORM.editReportName.Text ;
         FieldByName('notes').AsString :=ADDSalaryReportFORM.editnotes.Text ;
         TBlobField(FieldByName('Report')).LoadFromStream(Stream);
         Post ;
         ApplyUpdates(0);
         end;
以上代码是保存的代码
用以下代码读取后不能显示（估计原因是保存时转了格式），请问各位如何写才正确，谢谢Stream:=TMemoryStream.Create ;
          TBlobField( fieldByName('report')).SaveToStream(Stream);
          ShowMessage('save');
          frxReport1.Clear ;
          frxReport1.LoadFromStream(Stream);
          frxReport1.ShowReport;

Answer 1

Stream:=TMemoryStream.Create ;
          TBlobField( fieldByName('report')).SaveToStream(Stream);
          Stream.Position :=0;
          frxReport1.Clear ;
          frxReport1.LoadFromStream(Stream);
          frxReport1.ShowReport;
问题材解决

Answer 2

加这一个就正确显示了！
Stream.Position :=0;