Look at TfrDesigner component. It has necessary events: OnLoadReport and OnSaveReport. Here is a small example:
procedure TForm1.frDesigner1LoadReport(Report: TfrReport; var ReportName: String; var Opened: Boolean); begin with MyOpenDialog do begin Opened := ShowModal = mrOk; if Opened then begin Report.LoadFromBlobField(...); ReportName := ...; end; end; end;
procedure TForm1.frDesigner1SaveReport(Report: TfrReport; var ReportName: String; SaveAs: Boolean; var Saved: Boolean); begin if SaveAs then with MySaveDialog do begin Saved := ShowModal = mrOk; if Saved then begin Report.SaveToBlobField(...); ReportName := ...; end; end else Report.SaveToBlobField(...); end;

|