FastReports - Exibindo relatórios para Sistemas Web
Boa Noite!
Estou desenvolvendo um Sistema Web baseado nos componentes Unigui e queria saber como eu faço para exibir os relatórios feitos no FastReports, abrindo em PDF diretamente em uma página na web. No FasReports tem os componentes frxReportServer, frxReport Client, frxReportConnection para fazer a conexão, essa informação obtive no manual e nos aplicativos Demos, porem não entendi como faz esta configuração. Será que alguém pode me ajudar? Será que tem outra alternativa usando o fastreport para web?
Obrigada
Estou desenvolvendo um Sistema Web baseado nos componentes Unigui e queria saber como eu faço para exibir os relatórios feitos no FastReports, abrindo em PDF diretamente em uma página na web. No FasReports tem os componentes frxReportServer, frxReport Client, frxReportConnection para fazer a conexão, essa informação obtive no manual e nos aplicativos Demos, porem não entendi como faz esta configuração. Será que alguém pode me ajudar? Será que tem outra alternativa usando o fastreport para web?
Obrigada
Maria Souza
Curtidas 0
Respostas
Marcus Silva
24/11/2013
var
FName, PDF, ArqPDF:String;
begin
FName := ExtractFileDir(Application.ExeName)+'\reports\relconslivros.fr3';
PDF := ExtractFileDir(Application.ExeName)+'\reports\relconslivros.pdf';
//frxReport1.LoadFromFile(UniServerModule.FilesFolderPath+'reports\termoemprestimo.fr3');
frxReport1.PrepareReport(True);
ArqPDF := 'report_'+FormatDateTime('hhmmss.zzz',Now)+'.pdf';
frxPDFExport1.FileName := ArqPDF;
frxPDFExport1.DefaultPath := UniServerModule.LocalCachePath;
try
frxPDFExport1.ShowDialog := false;
frxPDFExport1.ShowProgress := False;
frxReport1.Export(Self.frxPDFExport1);
frxReport1.PreviewPages.SaveToFile(ArqPDF);
FReport.UniURLFrame1.URL := UniServerModule.LocalCacheURL+ArqPDF;
FReport.ShowModal;
Except
ShowMessage('ERRO DURANTE A IMPRESSAO.');
end;
FName, PDF, ArqPDF:String;
begin
FName := ExtractFileDir(Application.ExeName)+'\reports\relconslivros.fr3';
PDF := ExtractFileDir(Application.ExeName)+'\reports\relconslivros.pdf';
//frxReport1.LoadFromFile(UniServerModule.FilesFolderPath+'reports\termoemprestimo.fr3');
frxReport1.PrepareReport(True);
ArqPDF := 'report_'+FormatDateTime('hhmmss.zzz',Now)+'.pdf';
frxPDFExport1.FileName := ArqPDF;
frxPDFExport1.DefaultPath := UniServerModule.LocalCachePath;
try
frxPDFExport1.ShowDialog := false;
frxPDFExport1.ShowProgress := False;
frxReport1.Export(Self.frxPDFExport1);
frxReport1.PreviewPages.SaveToFile(ArqPDF);
FReport.UniURLFrame1.URL := UniServerModule.LocalCacheURL+ArqPDF;
FReport.ShowModal;
Except
ShowMessage('ERRO DURANTE A IMPRESSAO.');
end;
GOSTEI 0
Marcus Silva
24/11/2013
VAI ER QUE UTILIZAR O COMPONENTE "UniURLFRAME" PARE GERAR OS RELATORIOS.
GOSTEI 0
Maria Souza
24/11/2013
Bom dia!
Obrigada pela dica!
Vou tentar fazer aqui
Obrigada pela dica!
Vou tentar fazer aqui
GOSTEI 0