FastReportPrinter下载 - FastReportPrinter源代码下载

FastReportPrinter

Delphi源码

v1.0.0

下载

FastrePortPrinter

FastrePortPrinter是用于多线程和非GUI（图形用户界面）环境的快速报告打印库。

它以Delphi语言实现，使用Fluent界面概念来指导库的使用，该库的使用旨在使用Print Spooler在图形用户界面中打印报告。

环境

Windows表单
Windows控制台
Windows服务 *
IIS ISAPI（马） *
IIS CGI（马） *

⭕先决条件

要使用FastrePortPrinter ，您需要安装快速报告组件。

自动安装

使用Boss （Delphi的依赖项管理器）可以自动安装库。

 boss install github.com/antoniojmsjr/FastReportPrinter

手动安装

如果选择手动安装，只需在项目>选项>选项> delphi编译器>目标>所有配置>搜索路径中添加以下文件夹。

 ..FastReportPrinterSource

？导出数据集

数据集是图书馆使用的接口，用于通过组件与数据库进行通信：

班级	成分
碎片	本国的
TFRXDBDATASET	快速报告

⚡️使用图书馆

为了举例说明库的使用，IBGE的API数据用于报告和打印报告。

打印示例文件：locationsibge.pdf

示例在项目文件夹中可用：

 ..FastReportPrinterSamples

示例数据库

火鸟：2.5.7 donwload
BD文件：

 ..FastReportPrinterSamplesDB

示例报告

 ..FastReportPrinterSamplesReport

例子

 uses FRPrinter, FRPrinter.Types;

 var
  lPrinted: Boolean;
begin

  // CLASSE DE IMPRESSÃO
  try
    lPrinted := TFRPrinter.New.
      DataSets.
        SetDataSet(qryEstadosBrasil, ' EstadosBrasil ' ).
        SetDataSet(frxdbMunicipioEstado).
        SetDataSet(frxdbMunicipioRegiao).
        SetDataSet(qryEstadoRegiao, ' EstadoRegiao ' ).
        SetDataSet(qryMunicipios, ' Municipios ' ).
      & End .
      Print.
        SetPrinter( ' Microsoft Print to PDF ' ). // QUANDO NÃO INFORMADO UTILIZA A IMPRESSORA CONFIGURADA NO RELATÓRIO *.fr3
        SetFileReport(TUtils.PathAppFileReport). // LOCAL DO RELATÓRIO *.fr3
        Report(procedure(pfrxReport: TfrxReport) // CONFIGURAÇÃO DO COMPONENTE DE RELATÓRIO DO FAST REPORT
        var
          lfrxComponent: TfrxComponent;
          lfrxMemoView: TfrxMemoView absolute lfrxComponent;
        begin
          // CONFIGURAÇÃO DO COMPONENTE

          pfrxReport.ReportOptions. Name := ' API de localidades IBGE ' ; // NOME PARA IDENTIFICAÇÃO NA IMPRESSÃO DO RELATÓRIO
          pfrxReport.ReportOptions.Author := ' Antônio José Medeiros Schneider ' ;

          // PASSAGEM DE PARÂMETRO PARA O RELATÓRIO
          lfrxComponent := pfrxReport.FindObject( ' mmoProcess ' );
          if Assigned(lfrxComponent) then
          begin
            lfrxMemoView.Memo.Clear;
            lfrxMemoView.Memo.Text := Format( ' Aplicativo de Exemplo: %s ' , [ ' VCL ' ]);
          end ;
        end ).
        Execute; // PROCESSAMENTO DO RELATÓRIO/IMPRESSÃO
  except
    on E: Exception do
    begin
      if E is EFRPrinter then
        ShowMessage( ' Erro de impressão: ' + E.ToString)
      else
        ShowMessage( ' Erro de impressão: ' + E.Message);
      Exit;
    end ;
  end ;

  if lPrinted then
    ShowMessage( ' Impresso ' )
  else
    ShowMessage( ' Falha de impressão ' );

end ;

观察

缺乏内存会产生打印失败。
大型文档打印可能会延迟烙印成功。
Windows Service应用程序您需要使用管理帐户或NT Authority localservice和OR NT Authority NetworkService来设置“登录”，以成功打印。
IIS（ISAPI/CGI）由于App 32-bit和Windows 64 -bit应用程序的错误，您无法打印，解决方案，编译App 64位以及使用NT Authority local帐户和/或NT Authuryth NetworkService的许可。

编译的示例