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

[chinamis2008]

  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;

[imho888]

应该不会有问题吧,数据库二进制字段用什么类型?

[chinamis2008]

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

问题材解决

[chinamis2008]

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