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的許可。

編譯的示例