Загрузка готового отчёта

egik

Делаем следующее.
1)Ставим на форму frxReport1 и кнопку Button1
2)На событие Button1Click пишем

frxReport1.PreviewPages.LoadFromFile('c:\1.fp3');
frxReport1.ShowPreparedReport;

Открывает всё правильно, но в окне предварительного просмотра на кнопке "Закрыть" написано почему-то "Отмена", а в статусбаре "Первый проход: страница 2" - если отчёт содержит две страницы, т.е. высвечивается последняя страница отчёта, хотя в это время на экране может быть и 1 страница.

Как поправить? Пустяк конечно, но немного неприятно

aseroff

Попробуйте вместо ShowPreparedReport использовать ShowReport.

egik

Пробую frxReport1.ShowReport(False)
Выводит пустое окно предварительного просмотра.

В принципе ведь порядок открытия готового отчета

frxReport1.PreviewPages.LoadFromFile('c:\1.fp3');
frxReport1.ShowPreparedReport;

верный - описан в документации.
Интересно, глюк этот только у меня? Вообще пробовал кто-нибудь открывать готовые отчеты? (Использую FR3.20)

aseroff

У меня работает следущим образом:

TFileStream * pReportFile = new TFileStream ("Reports\\report.fr3");
//---------------------------------------------------------------
m_pfrxReport->LoadFromStream (pReportFile);
m_pfrxReport->ShowReport(true);
//---------------------------------------------------------------
delete pReportFile;
//---------------------------------------------------------------

Кстати,

написал:

frxReport1.PreviewPages.LoadFromFile('c:\1.fp3');
frxReport1.ShowPreparedReport;

надо

'c:\1.fr3'

Смотрите расширение.

Мой код можно переписать следущим образом:

m_pfrxReport->LoadFromFile ("Reports\\report.fr3");
m_pfrxReport->ShowReport(true);
//---------------------------------------------------------------

Убедитесь, что путь к файлу отчета задан верно (поиск файла без пути начинается в той же папке, где находится исполняемый файл программы).


P.S. Я надеюсь, не будет проблем перегнать несколько строк с C++ на Delphi.

egik

1) Расширение я использую верное:
*.fr3 - шаблон отчета
*.fp3 - готовый отчет, т.е. уже построенный и сохранённый пользователем из окна предварительного просмотра.

2) Насколько я понял вы предлагаете загружать из стрима. На Delphi это будет следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var strim:TMemoryStream;
begin
 strim:= TMemoryStream.Create;
 strim.LoadFromFile('с:\1.fp3');
 frxReport1.PreviewPages.LoadFromStream(strim);
 frxReport1.ShowPreparedReport;
 strim.Free;
 end;

дает тот же самый эффект что и frxReport1.PreviewPages.LoadFromFile('c:\1.fp3') - глюк сохраняется;