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

    原本在開發一個報表外掛程式,因為需要遠程傳輸,因此需要序列化報表,序列化FastReport有兩種方式,

   1.僅序列化資料,由用戶端接受到資料,並呈現報表,這種方式需要在用戶端儲存報表格式檔案xxx.Frf,

   2.序列化FastReport的結果集(即,得到資料後可以存成的frp檔案),這樣frf檔案不需要在用戶端存在.我傾向於採用這種方式,畢竟用戶端越輕越好.

   簡單開啟一個表之後,將fr產生結果存成frp後,發現有64k大,這是不能忍受的,這還僅僅是2xx資料而已,不過這個問題解決也很簡單,壓縮之(只有4K),d7內建的就有一個壓縮單元zLib,至於zlib的用法很簡單,它提供Stream和string 的壓縮方式.這裡就不說了,既然這個問題解決了,就剩序列化的代碼,

   序列化的過程很簡單,其實瞭解了fr的幾個重要方法之後,就很簡單了,得到的成果如下:

在伺服器端  

frxReport1.Dataset := FrDbDataset1; //設定frReport的Dataset屬性
FrDbDataset1.DataSet := Adoquery1; //連結frDbDataset和Dataset執行個體
AdoQuery1.Open; //取得資料
frxReport1.LoadFromFile('d:\1.frf'); //載入一個報表格式檔案
frxReport1.PrepareReport; //執行報表,得到資料,並不顯示
frxReport1.SavePreparedReport('d:\3.frp'); //將報表的結果存成檔案

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

procedure TfrxReport.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 TfrxReport.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 3.2開始已經取消了SavePreparedReport和LoadPreparedReport的直接引用，需要用PreviewPages.SaveToFile和PreviewPages.LoadFromFile來替換