Fórum FastReports - Exibindo relatórios para Sistemas Web #461942
24/11/2013
0
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
Curtir tópico
+ 0
Responder
Posts
11/02/2016
Marcus Silva
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;
Responder
Gostei + 0
11/02/2016
Marcus Silva
VAI ER QUE UTILIZAR O COMPONENTE "UniURLFRAME" PARE GERAR OS RELATORIOS.
Responder
Gostei + 0
12/02/2016
Maria Souza
Bom dia!
Obrigada pela dica!
Vou tentar fazer aqui
Obrigada pela dica!
Vou tentar fazer aqui
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)