Иногда требуется организовать многопоточное создание документов в каком-либо формате. Это может быть разработка веб-сервиса или вывод информации из уже существующего многопоточного приложения.
Для создания документов в нужном формате удобно использовать генератор отчетов FastReport VCL. Эта библиотека компонентов проста в освоении, имеет удобный дизайнер отчетов, позволяет легко подключаться к различным источникам данных, в числе которых могут быть и внутренние данные приложение — массивы, наборы параметров и пр. Традиционное использование FastReport, как правило, не вызывает никаких сложностей, но сейчас мы рассмотрим ситуацию применения этого генератора отчетов в много поточном приложении. Выходным форматом файлов станет PDF.
Класс TfrxReport имеет в своем описании несколько свойств, которые необходимо настроить непосредственно после создания объекта отчета. Необходимо помнить, что объект должен работать в потоке без создания всевозможных диалоговых окон, прогресс бара и прочей визуальной информации. Рассмотрим пример создания и настройки объекта класса TfrxReport, перед его запуском в отчете:
// Создаем объект
FReport := TfrxReport.Create(nil);
// Запрещаем вывод различных сообщений
FReport.EngineOptions.SilentMode := True;
// Опция многопоточности, проверяется в некоторых местах при построении отчета
FReport.EngineOptions.EnableThreadSafe := True;
// Использование файлового кеша при построении отчетов
FReport.EngineOptions.UseFileCache := false;
// Запрещаем показ прогресс бара
FReport.ShowProgress := False;
Также необходимо помнить о том, что некоторые отчеты имеют интегрированные диалоговые формы, показ которых должен быть запрещен по понятным причинам. Для перехвата форм переопределим обработчик события TfrxReport.Engine.OnRunDialog — присвоим ему процедуру ShowReportDialog.
// При наличии в отчете диалогов, вместо них будет вызываться ShowReportDialog
FReport.Engine.OnRunDialog := ShowReportDialog;
Таким образом, вместо показа каждой диалоговой формы отчета будет вызвана наша процедура. Там можно обратиться к контролам формы, изменить их значение, а можно все оставить как есть по умолчанию — в таком случае наша процедура будет пустой.
procedure TTestThread.ShowReportDialog(Page: TfrxDialogPage);
begin
// пусто
end;
Не забываем о настройках экспорта, нужно отключить показ всех диалогов и заранее установить все нужные нам параметры.
PDF := TfrxPDFExport.Create(nil);
PDF.ShowDialog := False;
PDF.ShowProgress := False;
Все операции по созданию объектов отчета и экспорта можно сделать в конструкторе класса потока, соответственно деструктор потока должен содержать следующий код:
destructor TTestThread.Destroy;
begin
// destroy all created objects
PDF.Free;
FReport.Free;
inherited;
end;
Нужные объекты созданы и сконфигурированы. Теперь можно загрузить шаблон отчета из файла и запустить отчета на выполнение в главной процедуре потока Execute. Там же выполним экспорт в нужный формат.
// загружаем шаблон отчета
FReport.LoadFromFile(FFileName);
// устанавливаем переменные отчета, если нужно
FReport.Variables[‘ThreadID’] := QuotedStr(FId);
// строим отчет
if FReport.PrepareReport then
begin
// сохраняем результат в PDF
PDF.FileName := FOutPath + ‘\report_’+ FId +
‘_’ + FormatDateTime(‘YYYYYMMDDHHMMSS’, Now) + ‘.pdf’;
FReport.Export(PDF);
end;
Помните — если в отчете используется RichText, то в потоках могут быть проблемы. Старайтесь строить отчеты без использования RichText объектов.
Если в отчетах используется подключение ADO, не забываем включить в uses модуль ActiveX и в процедуре Execute перед созданием отчета добавить вызов CoInitialize(nil). А после завершения работы с отчетов в потоке, соответственно нужно будет вызвать CoUninitialize;
// Процедура потока
procedure TTestThread.Execute;
begin
// Инициализирует библиотеку COM в текущем потоке
CoInitialize(nil);
try
// загружаем шаблон отчета из файла
FReport.LoadFromFile(FFileName);
…
…
…
finally
// Uninitialize COM
CoUninitialize;
end;
end;