BLOB字段来保存fastreport的报表模板

FASTREPORT的设计界面,保存的时候是生成扩展名为.fr3的文件来保存设计好的报表模板的。现在改为用数据表的BLOB字段来保存报表模板。

  m :=TMemoryStream.Create;
  try
    Report.SaveToStream(m);
    f_printsetup.ClientDataSet1.Edit;
    tblobfield(f_printsetup.ClientDataSet1.FieldByName('rep')).LoadFromStream(m);
    f_printsetup.ClientDataSet1.Post;
    if RemoteMethod.PostData('t_report',f_printsetup.ClientDataSet1.Delta)=0 then
    begin
      Saved := False;
      Application.MessageBox('报表模板保存失败', PChar(Application.Title), MB_OK +
        MB_ICONSTOP);
    end;
  finally
    m.Free;
  end;

posted @ 2012-09-13 22:13  delphi中间件  阅读(1314)  评论(0编辑  收藏  举报