Category Archives: FastReport

Delphi. FastReport. VCL. Even and not even table strings

Posted on 27.10.2017 by Stanislav_Panteleev

Link

Posted in Delphi, FastReport | Comments Off

Delphi. FastReportVCL – merge / concat many reports

Posted on 12.10.2017 by Stanislav_Panteleev

I needed report from runtime and disign time to be merged, so below is simpliest way to do this…

procedure TReportSettingsEventsForm.concatReports(AresultReport: TfrxReport; a: array of TfrxReport);
var
  i: Integer;
  ms: TMemoryStream;
  guid: TGUID;
  filename: string;
  guid2: TGUID;
  filename2: string;
begin
  for i := Low(a) to High(a) do
  begin
    ms := TMemoryStream.Create();
    try
      Createguid(guid);
      filename := guid.ToString() + '.fp3';
      a[i].SaveToFile(filename);
      AresultReport.LoadFromFile(filename);
      AresultReport.PrepareReport(false);
    finally
      ms.free();
      if TFile.Exists(filename) then
        TFile.Delete(filename);
    end;
  end;
end;

procedure TReportSettingsEventsForm.concatReports(AresultReport: TfrxReport; a: array of TfrxReport);

var

i: Integer;

ms: TMemoryStream;

guid: TGUID;

filename: string;

guid2: TGUID;

filename2: string;

begin

for i := Low(a) to High(a) do

begin

ms := TMemoryStream.Create();

try

Createguid(guid);

filename := guid.ToString() + '.fp3';

a[i].SaveToFile(filename);

AresultReport.LoadFromFile(filename);

AresultReport.PrepareReport(false);

finally

ms.free();

if TFile.Exists(filename) then

TFile.Delete(filename);

end;

example of use

procedure TReportSettingsEventsForm.showReport;
var
  a: array of TfrxReport;
begin
  frxResources.LoadFromFile('Russian.frc'); // setting language
  PrepareDynamicReport();
  MainReport.Clear();
  a := [TitlePage_Runtime, Data_DesignTime, frxReport1];
  concatReports(MainReport, a);
  with MainReport do
  begin
    PreviewOptions.ThumbnailVisible := true;
    ShowPreparedReport();
  end;
end;

procedure TReportSettingsEventsForm.showReport;

var

a: array of TfrxReport;

begin

frxResources.LoadFromFile('Russian.frc'); // setting language

PrepareDynamicReport();

MainReport.Clear();

a := [TitlePage_Runtime, Data_DesignTime, frxReport1];

concatReports(MainReport, a);

with MainReport do

begin

PreviewOptions.ThumbnailVisible := true;

ShowPreparedReport();

end;

Building a composite report (batch printing) In some cases it is required to organize printing … Continue reading →

Posted in Delphi, FastReport | Comments Off

Delphi. FastReportVCL – change language to Russian, example

Posted on 12.10.2017 by Stanislav_Panteleev

for exmaple we will change language of previewer to russian find dir where languages are (for ex.)

C:\Program Files (x86)\FastReport 5 VCL Enterprise\Res\Russian

1	C:\Program Files (x86)\FastReport 5 VCL Enterprise\Res\Russian

open cmd and type

cd C:\Program Files (x86)\FastReport 5 VCL Enterprise\Res\Russian

1	cd C:\Program Files (x86)\FastReport 5 VCL Enterprise\Res\Russian

type

mk.bat

mk.bat

you will recieve Russian.frc file In runtime call

uses frxRes; frxResources.LoadFromFile('russian.frc');

1	uses frxRes; frxResources.LoadFromFile('russian.frc');

Posted in Delphi, FastReport | Comments Off

Delphi. FastReport. Отправка отчета на почту в HTML формате

Posted on 07.04.2017 by Stanislav_Panteleev

Заказчик захотел получать красивые отчеты на почту. Решил использовать FastReport и придерживаться следующего алгоритма Генерировать отчет в HTML файл Загрузить в строку Отправить на почту Код (Очень черновой вариант, но чтобы было)

procedure TForm2.Button1Click(Sender: TObject);

var Emailer:TUniShopMilkSendEmail;
    ss:TStringStream;
begin


// save to html file

frxReport1.PrintOptions.ShowDialog := False;
frxReport1.ShowProgress := false;

    frxReport1.EngineOptions.SilentMode := True;
    frxReport1.EngineOptions.EnableThreadSafe := True;
    frxReport1.EngineOptions.DestroyForms := False;
    frxReport1.EngineOptions.UseGlobalDataSetList := False;
    frxHTMLExport1.FileName:='123.html';

    frxReport1.PreviewOptions.AllowEdit := False;
    frxHTMLExport1.ShowDialog:=false;
    frxReport1.PrepareReport();
    frxReport1. Export(frxHTMLExport1);


// load from file
Memo1.Lines.LoadFromFile('123.html',TEncoding.UTF8);



// send to mail
Emailer:=TUniShopMilkSendEmail.Create(Self);
Emailer.Execute('someSubject',Memo1.Lines.Text,'panteleevstas@gmail.com');


end;

procedure TForm2.Button1Click(Sender: TObject);

var Emailer:TUniShopMilkSendEmail;

ss:TStringStream;

begin

// save to html file

frxReport1.PrintOptions.ShowDialog := False;

frxReport1.ShowProgress := false;

frxReport1.EngineOptions.SilentMode := True;

frxReport1.EngineOptions.EnableThreadSafe := True;

frxReport1.EngineOptions.DestroyForms := False;

frxReport1.EngineOptions.UseGlobalDataSetList := False;

frxHTMLExport1.FileName:='123.html';

frxReport1.PreviewOptions.AllowEdit := False;

frxHTMLExport1.ShowDialog:=false;

frxReport1.PrepareReport();

frxReport1. Export(frxHTMLExport1);

// load from file

Memo1.Lines.LoadFromFile('123.html',TEncoding.UTF8);

// send to mail

Emailer:=TUniShopMilkSendEmail.Create(Self);

Emailer.Execute('someSubject',Memo1.Lines.Text,'panteleevstas@gmail.com');

end;

Также кусок кода из примера UniGUI … Continue reading →

Posted in Delphi, FastReport | Comments Off

FastReport. UniGUI – вывод отчетов в Web

Posted on 29.03.2016 by Stanislav_Panteleev

Это удивительно, но FastReport VCL отлично вписался в Web при помощи фрэймворка UniGUI. Разберем пример из демо-версии UniGUI, который находится в

C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\FastReport

1	C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\FastReport

Вот результат работы примера Мы рассмотрим только основные моменты по коду. Пример целиком можно получить, скачав UniGUI фрэймворк и … Continue reading →

Posted in Delphi, FastReport, UniGui | Comments Off

FastReport. Динамический вывод PageHeader/PageFooter

Posted on 27.03.2016 by Stanislav_Panteleev

Часто бывает, что клиентам нужно давать изменять свои логотипы, писать в колонтитулах, и так далее. Для этого можно задействовать динамический вывод компонентов. В данной статье посмотрим как можно динамически вывести PageHeader и Page Footer с возможностью редактирования клиентом. Получится примерно … Continue reading →

Posted in Delphi, FastReport | Comments Off

FastReport. Создание пользовательских отчетов

Posted on 24.03.2016 by Stanislav_Panteleev

Под пользовательскими отчетами я понимаю отчеты, в которых у пользователя есть хотя бы минимальный выбор – какие данные будут включены в отчет, как они будут расположены и так далее. То есть, некоторая кастомизация. Часто пользователи любят вставлять свои логотипы в … Continue reading →

Posted in FastReport | Comments Off

FastReport. Динамический вывод 200 записей

Posted on 24.03.2016 by Stanislav_Panteleev

В данной статье посмотрим как вывести большое число данных. Для этого, с одной стороны воспользуемся техникой ArrayDML из FireDAC, а с другой стороны возможностями FastReport по выводу данных на страницы. И вот какой результат у нас получится.

Posted in Delphi, FastReport, Без рубрики | Comments Off

FastReport. Динамическое создание отчетов. Вывод данных из БД

Posted on 23.03.2016 by Stanislav_Panteleev

Продолжаем цикл статей про динамический вывод данных из Fasteport. Посмотрим как можно вывести данные динамически, также моя дизайнерская душа не удержалась, и я немного занялся оформительством, добавил градиенты в отчет. Получилось так… Имя и Фамилия это соответственно поля Name и Family … Continue reading →

Posted in Delphi, FastReport | Comments Off

FastReport. Динамический вывод отчетов. Начало

Posted on 22.03.2016 by Stanislav_Panteleev

Решил более детально изучить FastReport VCL, так как разрабатываю программу, в которой нужно динамически выводить отчеты. Это будет небольшой цикл статей, в котором мы пройдем от простого к сложному и по шагам разберем основные моменты работы с FastReport. Акцент я … Continue reading →

Posted in Delphi, FastReport | Comments Off

Category Archives: FastReport

Delphi. FastReport. VCL. Even and not even table strings

Delphi. FastReportVCL – merge / concat many reports

Delphi. FastReportVCL – change language to Russian, example

Delphi. FastReport. Отправка отчета на почту в HTML формате

FastReport. UniGUI – вывод отчетов в Web

FastReport. Динамический вывод PageHeader/PageFooter

FastReport. Создание пользовательских отчетов

FastReport. Динамический вывод 200 записей

FastReport. Динамическое создание отчетов. Вывод данных из БД

FastReport. Динамический вывод отчетов. Начало

MY PROJECTS

Recent Posts

Categories