powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помагите.... Fast Report
10 сообщений из 10, страница 1 из 1
Помагите.... Fast Report
    #34434344
Azeri555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
 procedure  TForm1.Button1Click(Sender: TObject);
 begin 
   frReport1.LoadFromFile('c:\555.frf');
   frReport1.ShowReport;
   frReport1.SavePreparedReport('c:\sss666.frp');
 end ;

 procedure  TForm1.Button2Click(Sender: TObject);
 begin 
   frReport1.LoadPreparedReport('c:\sss666.frp');
   frReport1.ShowReport;
 end ;
...
Рейтинг: 0 / 0
Помагите.... Fast Report
    #34434359
Azeri555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
 procedure  TForm1.Button1Click(Sender: TObject);
 begin 
 {   frPrintTable1.ShowReport;
   frPrintTable1.} 
   frReport1.LoadFromFile('c:\555.frf');
   frReport1.ShowReport;
   frReport1.SavePreparedReport('c:\sss666.frp');
 end ;

 procedure  TForm1.Button2Click(Sender: TObject);
 begin 
   OpenDialog1.Execute;
   frReport1.LoadPreparedReport(OpenDialog1.FileName);
   frReport1.ShowPreparedReport;
 end ;
...
Рейтинг: 0 / 0
Помагите.... Fast Report
    #34434626
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
надо так:

Код: plaintext
1.
2.
   frReport1.PreviewPages.LoadFromFile('c:\sss666.frp',true);
   frReport1.ShowPreparedReport()
...
Рейтинг: 0 / 0
Помагите.... Fast Report
    #34434668
Azeri555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторнадо так:


frReport1.PreviewPages.LoadFromFile('c:\sss666.frp',true);
frReport1.ShowPreparedReport()

а у мне не входит
Код: plaintext
frReport1.PreviewPages.
у мне Fast Report v2[1].51 Full
а как зделать?
...
Рейтинг: 0 / 0
Помагите.... Fast Report
    #34434747
bjohny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
может так
Код: plaintext
1.
2.
3.
frReport1.LoadFromFile('c:\555.frf');
frReport1.PrepareReport;
frReport1.ShowPreparedReport;
frReport1.SavePreparedReport('c:\sss666.frp');

или
Код: plaintext
frReport1.SaveToFile
...
Рейтинг: 0 / 0
Помагите.... Fast Report
    #34434773
Azeri555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Save получается но не могу открыт уже готовый
stream read error
...
Рейтинг: 0 / 0
Помагите.... Fast Report
    #34435893
bjohny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуйте сохранить файл без отображения(убрать showpreparedreport). Все должно получиться. посмотрите исходники fr_view.
...
Рейтинг: 0 / 0
Помагите.... Fast Report
    #34440902
Azeri555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
http://www.sql.ru/forum/actualthread.aspx?tid=122998
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Помагите.... Fast Report
    #39882989
Colt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прошу прощения за некропостинг, но возник вопрос
bjohnyПопробуйте сохранить файл без отображения(убрать showpreparedreport).
Без отображения проходит нормально, а как быть, если отображение таки нужно?

Например, для проверки такой код:
Код: pascal
1.
2.
3.
4.
frReport1.LoadPreparedReport('vers0.frp');
frReport1.SavePreparedReport('vers1.frp');
frReport1.ShowPreparedReport;
frReport1.SavePreparedReport('vers2.frp');


На входе имеем файл "vers0.frp" (не суть где и когда он был создан)
На выходе:
- файл "vers1.frp" соответствует исходному
- файл "vers2.frp" значительно меньше исходного и уже не читается

Примечание: FastReport v2.5, Delphi7
...
Рейтинг: 0 / 0
Помагите.... Fast Report
    #39885510
Colt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сам спросил, сам отвечу.
Вместо последней строки надо использовать следующую последовательность:
Код: pascal
1.
2.
3.
frReport1.Preview.Window.ConnectBack;
TfrReport(frReport1.Preview.Window.Doc).SaveToFile('vers2.frp');
frReport1.Preview.Window.Connect(frReport1.Preview.Window.Doc);


Подразумевается, что к отчету frReport1 прикручен предпросмотрщик (frReport1.Preview)
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помагите.... Fast Report
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]