序列化FastReport，重要提示少走彎路

bestlong

參考來源 http://www.cnblogs.com/sonicit/archive/2008/04/20/1162939.html

原本在開發一個報表插件,因為需要遠程傳輸,因此需要序列化報表,序列化FastReport有兩種方式,
   1.僅序列化數據,由客戶端接受到數據,並呈現報表,這種方式需要在客戶端存儲報表格式文件xxx.Frf,
   2.序列化FastReport的結果集(即,得到數據後可以存成的frp文件),這樣frf文件不需要在客戶端存在.我傾向於採用這種方式,畢竟客戶端越輕越好.
   簡單打開一個表之後,將fr生成結果存成frp後,發現有64k大,這是不能忍受的,這還僅僅是2xx數據而已,不過這個問題解決也很簡單,壓縮之(只有4K),d7自帶的就有一個壓縮單元zLib,至於zlib的用法很簡單,它提供Stream和string 的壓縮方式.這裡就不說了,既然這個問題解決了,就剩序列化的代碼,
   序列化的過程很簡單,其實了解了fr的幾個重要方法之後,就很簡單了,得到的成果如下:
在服務器端

1. frxReport1.Dataset := FrDbDataset1; //設置frReport的Dataset屬性
   
2. FrDbDataset1.DataSet := Adoquery1; //鏈接frDbDataset和Dataset實例
   
3. AdoQuery1.Open; //取得數據
   
4. frxReport1.LoadFromFile('d:\1.frf'); //載入一個報表格式文件
   
5. frxReport1.PrepareReport; //執行報表,得到數據,並不顯示
   
6. frxReport1.SavePreparedReport('d:\3.frp'); //將報表的結果存成文件

複製代碼

//載入3.frp,就可以得到序列化的數據,但是這樣要訪問硬盤,不爽.看看SavePreparedReport的代碼

1. procedure TfrxReport.SavePreparedReport(FName: String);
   
2. var
   
3.   Stream: TFileStream;
   
4. begin
   
5.   Stream := TFileStream.Create(FName, fmCreate);
   
6.   EMFPages.SaveToStream(Stream);
   
7.   Stream.Free;
   
8. end;

複製代碼

既然這樣,看看EMFPages是否是public的,看來是可以的,那麼我們可以將最後改成
    Stream := TMemoryStream.Create;
    EMFPages.SaveToStream(Stream);
    result := Stream;
客戶端
更簡單,你不需要任何的數據集,甚至連frReport類的實例也可以動態生成,

1. with TfrxReport.Create(nil) do
   
2.     begin
   
3.         try
   
4.             LoadPreparedReport('d:\2.frp'); //也可以改成上面流的形式,用EMFPages
   
5.             ShowPreparedReport;
   
6.         finally
   
7.             Free;
   
8.         end;
   
9.     end;

複製代碼

在這個問題的解決中,可以學到FastReport的幾個主要方法
PrepareReport//使報表從數據集得到數據
ShowPreparedReport//顯示已經得到數據的報表,注意和ShowReport的區別,其實ShowReport的實現看看就明白了)
LoadPreparedReport//從frp載入一個結果
SavePreparedReport//將結果存成一個文件  
LoadFromFile//載入報表格式文件

特別注意：從FastReport 3.2開始已經取消了SavePreparedReport和LoadPreparedReport的直接引用，需要用PreviewPages.SaveToFile和PreviewPages.LoadFromFile來替換