序列化FastReport

原创 2004年06月23日 15:23:00

   原本在开发一个报表插件,因为需要远程传输,因此需要序列化报表,序列化FastReport有两种方式,

   1.仅序列化数据,由客户端接受到数据,并呈现报表,这种方式需要在客户端存储报表格式文件xxx.Frf,

   2.序列化FastReport的结果集(即,得到数据后可以存成的frp文件),这样frf文件不需要在客户端存在.我倾向于采用这种方式,毕竟客户端越轻越好.

   简单打开一个表之后,将fr生成结果存成frp后,发现有64k大,这是不能忍受的,这还仅仅是2xx数据而已,不过这个问题解决也很简单,压缩之(只有4K),d7自带的就有一个压缩单元zLib,至于zlib的用法很简单,它提供Stream和string 的压缩方式.这里就不说了,既然这个问题解决了,就剩序列化的代码,

   序列化的过程很简单,其实了解了fr的几个重要方法之后,就很简单了,得到的成果如下:

在服务器端

    frReport1.Dataset := FrDbDataset1; //设置frReport的Dataset属性
    FrDbDataset1.DataSet := Adoquery1; //链接frDbDataset和Dataset实例
    AdoQuery1.Open; //取得数据
    frReport1.LoadFromFile('d:/1.frf'); //载入一个报表格式文件
    frReport1.PrepareReport;
//执行报表,得到数据,并不显示
    frReport1.SavePreparedReport('d:/3.frp'); //将报表的结果存成文件

   //载入3.frp,就可以得到序列化的数据,但是这样要访问硬盘,不爽.看看SavePreparedReport的代码

procedure TfrReport.SavePreparedReport(FName: String);
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(FName, fmCreate);
  EMFPages.SaveToStream(Stream);
  Stream.Free;
end; 
既然这样,看看EMFPages是否是public的,看来是可以的,那么我们可以将最后改成

Stream := TMemoryStream.Create;
  EMFPages.SaveToStream(Stream); 

result := Stream;

 

客户端

更简单,你不需要任何的数据集,甚至连frReport类的实例也可以动态生成,

with TfrReport.Create(nil) do
    begin
        try
            LoadPreparedReport('d:/2.frp');
//也可以改成上面流的形式,用EMFPages
            ShowPreparedReport;
        finally
            Free;
        end;
    end; 

在这个问题的解决中,可以学到FastReport的几个主要方法

PrepareReport//使报表从数据集得到数据

ShowPreparedReport//显示已经得到数据的报表,注意和ShowReport的区别,其实ShowReport的实现看看就明白了)

LoadPreparedReport//从frp载入一个结果

SavePreparedReport//将结果存成一个文件

LoadFromFile//载入报表格式文件

   

 

 

 

序列化FastReport

原本在开发一个报表插件,因为需要远程传输,因此需要序列化报表,序列化FastReport有两种方式,   1.仅序列化数据,由客户端接受到数据,并呈现报表,这种方式需要在客户端存储报表格式文件xxx....
  • johnny_83
  • johnny_83
  • 2007年07月22日 10:09
  • 573

Fastreport使用经验(转)

[FORMATDATETIME(mm-dd, [IBqryShipDate."CLOSEDATE"])][FORMATDATETIME(mm/dd/yy, [IbqryOrderForm."ORDER...
  • SeekMyself
  • SeekMyself
  • 2009年11月28日 15:44
  • 4720

动态创建Fastreport分以下几个步骤:

动态创建Fastreport分以下几个步骤: 1.首先清空Fastreport,定义全局变量,并加载数据集    frReport.Clear;    frReport.DataSets.A...
  • suyingsoft
  • suyingsoft
  • 2017年04月23日 16:41
  • 871

fastreport 判断字段值是否为null

isnull  有的版本没这个函数 可以换种方法,判断字段长度 [IIF(length() = 0,,)]...
  • y281252548
  • y281252548
  • 2016年11月11日 11:10
  • 1483

Fastreport 4 竖排版打印

方法: 选中相应控件--在工具栏有文本方向按钮.(可选角度0, 45, 90, 180, 270,) 
  • willzhao80
  • willzhao80
  • 2008年07月28日 01:12
  • 494

FastReport 4 横向分栏 纵向分栏

一. 横向分栏1.MasterData→Columns→设为想要分栏数目.2.MasterData→Width→band列的宽度例:MasterData→Columns→2, MasterData→W...
  • willzhao80
  • willzhao80
  • 2008年07月28日 01:15
  • 1942

FastReport的使用

/// /// 打印报表 /// /// 数据源 /// 获取dgv里面的数据行 /// 报表文件名称在盘符下面绘制...
  • u013908405
  • u013908405
  • 2015年08月10日 10:44
  • 473

FastReport 文字竖排

如何在fastreport对文字进行竖排,尤其是括号‘('。 如何在fastreport对文字进行竖排,尤其是括号‘(',即括号要“平躺着”. 不知道怎么描述,直接上图吧 低版本的找找图中红圈的...
  • ksrsoft
  • ksrsoft
  • 2013年05月31日 09:27
  • 1193

在FastReport中设置上下标

 FastReport所支持的HTML标签包括:●粗体:...●斜体:...●下划线:...●删除线:...●下标:...●上标:...●字体颜色:... 启用HTML标签功能。 将文本...
  • Sara_xie
  • Sara_xie
  • 2015年06月12日 14:28
  • 1208

Delphi FastReport 打印条码

新建delphi过程,放入控件ADOQuery1,ADODataSource1,frxReport1,frxDesigner1(用于运行时设计报表),frxDBDataset1,frxBarCodeO...
  • gjtao1130
  • gjtao1130
  • 2017年01月16日 14:00
  • 1238
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:序列化FastReport
举报原因:
原因补充:

(最多只允许输入30个字)