unigui发布_unigui+fastReport实现web打印方案

近日单位需要用到会议通知单的打印功能，故引出篇。

unigui是delphi环境下快速开发web应用的优秀工具，不再赘述，下面直接记录使用搭配使用，基本逻辑就是：

unigui实现数据录入和浏览的web页---->点击打印按钮时使用【frxPDFExport】动态将报表导出为pdf------>将pdf文件动态载入打印预览窗口(UniURLFrame)实现打印预览功能。

具体实现：

1，用unigui控件实现数据的“增改删”，如下图：

2，unigui实现预览窗口，如下图，需要引入frxReport、frxPDFExport和frxRichObject组件：

3，双击frxReport设计好会议通知单模板，且将文件另存到unigui发布目录的files文件夹下，文件名为”会议通知单模板.fr3“，如下图：

4，点击【打印会议通知单】按钮实现如下代码(利用frxReport打开已设计好的会议通知单模板.fr3，通过frxPDFExport将frxReport的报表导出为pdf文件)：

procedure TfrmMeetingInf.btnPrintClick(Sender: TObject);

begin

with frmMeetingInfPrint do begin

try

sTitle := memTitle.Lines.Text;

sTime := edTime.Text;

sPsn := edPsn.Text;

sAddress := memAddress.Lines.Text;

ShowModal(nil);

finally

end;

end;

end;

procedure TfrmMeetingInfPrint.UniFormBeforeShow(Sender: TObject);

var

rptFileName,url: string;

begin

rptFileName := '会议通知单.fr3';

frxReport1.Clear();

try

frxReport1.LoadFromFile(UniServerModule.FilesFolderPath+rptFileName); //存放在files目录下面

frxReport1.PrintOptions.ShowDialog := false;

frxReport1.ShowProgress := false;

frxReport1.EngineOptions.SilentMode := true;

frxReport1.EngineOptions.EnableThreadSafe := true;

frxReport1.EngineOptions.DestroyForms := false;

frxReport1.EngineOptions.UseGlobalDataSetList := false;

frxPDFExport1.Background:=true;

frxPDFExport1.ShowProgress:=False;

frxPDFExport1.ShowDialog:=false;

frxPDFExport1.FileName:=UniServerModule.NewCacheFileUrl(False,'pdf','','',url,true);

frxPDFExport1.DefaultPath := '';

frxReport1.PreviewOptions.AllowEdit := false;

frxReport1.PrepareReport();

frxReport1.Export(frxPDFExport1);

UniURLFrame1.URL := url;

finally

end;

end;

procedure TfrmMeetingInfPrint.frxReport1BeforePrint(

Sender: TfrxReportComponent);

begin

if (Sender is TfrxMemoView) then begin

if ((Sender as TfrxMemoView).Name = 'memTitle') then begin

(Sender as TfrxMemoView).Memo.Text := sTitle;

end;

if ((Sender as TfrxMemoView).Name = 'memPsn') then begin

(Sender as TfrxMemoView).Memo.Text := sPsn;

end;

if ((Sender as TfrxMemoView).Name = 'memTime') then begin

(Sender as TfrxMemoView).Memo.Text := sTime;

end;

if ((Sender as TfrxMemoView).Name = 'memAddress') then begin

(Sender as TfrxMemoView).Memo.Text := sAddress;

end;

end;

end;

完成上述几步，就能看到成果了：

BTW，unigui配合Chrome浏览器效果最佳，与旧版IE的兼容性不太好。

QQ：508882988。