原本在開發一個報表插件,因為需要遠程傳輸,因此需要序列化報表,序列化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//載入報表格式文件
