原本在开发一个报表插件,因为需要远程传输,因此需要序列化报表,序列化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//载入报表格式文件
