FASTREPORT的设计界面,保存的时候是生成扩展名为.fr3的文件来保存设计好的报表模板的。现在改为用数据表的BLOB字段来保存报表模板。
m :=TMemoryStream.Create;
try
Report.SaveToStream(m);
f_printsetup.ClientDataSet1.Edit;
tblobfield(f_printsetup.ClientDataSet1.FieldByName('rep')).LoadFromStream(m);
f_printsetup.ClientDataSet1.Post;
if RemoteMethod.PostData('t_report',f_printsetup.ClientDataSet1.Delta)=0 then
begin
Saved := False;
Application.MessageBox('报表模板保存失败', PChar(Application.Title), MB_OK +
MB_ICONSTOP);
end;
finally
m.Free;
end;