Вопрос немного не сюда, но поддержка FastReport опять молчит (((

заранее спасибо за ответ.

Задача : Необходимо готовить отчет в отдельном потоке (используя класс TThread)

в поиске по форуму (FastReport) нашел информацию об использовании след. кода (для версии 4) :
Report.EngineOptions.ReportThread := Self ; (self - текущий поток)
Report.EngineOptions.EnableThreadSafe := True;


НО в своей версии 2,5 такого найти не могу.

Есть ли возможность пользоваться подготовкой FASTREPORT 2,5 в потоках, и КАК ?????

потому как стандартное использование класса TThread не помогает :

procedure TThreadReportFastRep.Execute;
begin
inherited;

.......
FfrReport.PrepareReport;
.......

end;

- FfrReport создается в потоке
- при запуске без потока все работает отлично
- при использовании TThread и запуске нескольких отчетов (один запускается нормально)
fastReport коматозит по разному
постоянная ошибка, что компонент (источник данных (Query)) уже создан

вы сказали:
Уж сколько раз было сказано народу не использовать встроенные БД-объекты.

? имеются ввиду БД-объекты встроенные в компонент отчета?

используется компонент (FastReport), со встроенным компонентом запроса,
у запроса свойства DatabaseName, и SessionName
для каждого потока уникальны

текст запроса формируется динамически, передается в компонент


1 отчет в фоне отрабатывается нормально, больше 1 , глюки

Гаджимурадов Рустам
мороз> имеются ввиду БД-объекты встроенные в компонент отчета?

Да.

мороз> для каждого потока уникальны

Это как?


Posted via ActualForum NNTP Server 1.4

вcтроенный запрос - BDE
чтобы выполнять его в потоке для него каждый раз создаются (в потоке)
компоненты DataBase и Session с уникальным именем

встроенный в компонент отчета запрос используется потому, что
при создании в Runtime источника данных (не встроенного) ,
будь то ADOQuery или Query(BDE) fastreport не работает

типа
qReport := TADOQuery.Create(self);//если убрать эту строку и создать компонент в дизайнере все работает

frReport := TfrReport.Create(self);
frDataSet := TfrDBDataSet.Create(Self);

qReport.SQL.Text := .....


frReport.LoadFromFile....

qReport.Close;
qReport.Open;


frDataSet.DataSet := qReport;
frReport.Dataset := frDataSet;


frReport.PrepareReport;
frReport.ShowPreparedReport;