Unigui quick Report之下載報表QRP,RTF |
|
cmj1498
一般會員 發表:5 回覆:8 積分:2 註冊:2007-04-20 發送簡訊給我 |
procedure TMainServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin MimeTable.AddMimeType('QRP','QRP'); //加入下載檔案類別 MimeTable.AddMimeType('RTF','RTF'); //加入下載檔案類別 end; procedure TFmAccTaxTemp.BtnRep1Click(Sender: TObject); var rep:TQRPAbstractExportFilter; Fn,ss,Ptype:String; i:integer ; Bk:TBookmark; begin pType:=UpperCase(Getsubstr(CbFnType.Items.Strings[CbFnType.ItemIndex],1,'(')); Fn:='Rep1201_' FormatDateTime('yyyymmddhhnnss',Now) '.' pType; //'.qrp'; if FmRep1=Nil then //FmRep 為Vcl Fomr begin Application.CreateForm(TFmRep1, FmRep1); end; FmRep1.Rep1.Prepare; case GetStrSectionPos('QRP,RTF',pType,',') of 1:begin //QRP FmRep1.Rep1.QRPrinter.Save(MainSm.LocalCachePath Fn); end; 2:begin //RTF FmRep1.Rep1.ExportToFilter( TQRrtfExportFilter.Create(MainSm.LocalCachePath Fn) ); end; end; UniSession.SendFile(MainSm.LocalCachePath Fn,Fn); //前端下載 end; 前端先裝QRP預覽程式 |
cmj1498
一般會員 發表:5 回覆:8 積分:2 註冊:2007-04-20 發送簡訊給我 |
===================引 用 cmj1498 文 章=================== procedure TMainServerModule.UniGUIServerModuleCreate(Sender: TObject); begin MimeTable.AddMimeType('QRP','QRP'); //加入下載檔案類別 MimeTable.AddMimeType('RTF','RTF'); //加入下載檔案類別 end; procedure TFmAccTaxTemp.BtnRep1Click(Sender: TObject); var rep:TQRPAbstractExportFilter; Fn,ss,Ptype:String; i:integer ; Bk:TBookmark; begin pType:=UpperCase(Getsubstr(CbFnType.Items.Strings[CbFnType.ItemIndex],1,'(')); Fn:='Rep1201_' FormatDateTime('yyyymmddhhnnss',Now) '.' pType; //'.qrp'; if FmRep1=Nil then //FmRep 為Vcl Fomr begin Application.CreateForm(TFmRep1, FmRep1); end; FmRep1.Rep1.Prepare; case GetStrSectionPos('QRP,RTF',pType,',') of 1:begin //QRP FmRep1.Rep1.QRPrinter.Save(MainSm.LocalCachePath Fn); end; 2:begin //RTF FmRep1.Rep1.ExportToFilter( TQRrtfExportFilter.Create(MainSm.LocalCachePath Fn) ); end; end; UniSession.SendFile(MainSm.LocalCachePath Fn,Fn); //前端下載 end; Unigui Delphi最好的WEB APPLICATION,佈署exe,isapi沒有問題,IE要更新至IE8,有問題歡迎交流 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |