Форум: "Базы";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизЗаморочки с отчетами (QuickReport) Найти похожие ветки
← →
Андрей Брусов (2002-03-21 12:50) [0]Всем привет. Объясняю суть проблемы. Вернее двух проблем.
1. При использовании Preview, после закрытия окна предварительного просмотра на этапе выполнения частенько возникает Exception с формулировкой ошибка доступа или что-то в этом роде. Программа в принципе продолжает работать нормально, но вообще это здорово напрягает. Не пойму в чем дело. Может кто-то сталкивался?
2. При испльзовании своей формы предварительного просмотра документа, не могу на этапе выполнения открыть сохраненные ранее на Винте отчеты, хотя вроде бы код правильный. Превый выбранный отчет, еще с грехом пополам загружается в окно просмотра, если же я хочу просмотреть еще один, программа капитально виснет. При чем если я использую штатный Preview, то все идет нормально.В чем дело?
← →
sjvorot (2002-03-21 14:21) [1]Используй qreports1.previev из другой формы и будет все хор.
← →
IronHawk (2002-03-21 14:28) [2]
> Андрей Брусов (21.03.02 12:50)
Код в студию ....
← →
Андрей Брусов (2002-03-22 09:19) [3]1. Что значит использовать qreports1.preview из другой формы?
2. Код обработчика кнопки "Открыть":
procedure TfmMyPreview.tbOpenClick(Sender: TObject);
begin
odMyPreview.InitialDir := work_dir + "Reports";
If odMyPreview.Execute and FileExists(odMyPreview.FileName) Then
begin
fmMyPreview.QRPreview1.QRPrinter.Cleanup;
fmMyPreview.QRPreview1.QRPrinter.Load(odMyPreview.FileName);
end;
end;
где odMyPreview - компонент OpenDialog.
← →
Роман Василенко (2002-03-23 13:41) [4]Попробуй замени Cleanup на следующий вариант:
/////////////////////////////////////////////
if assigned(xx.Qrprinter) then
try
freeandnil(xx.qrprinter);
except
end;
xx.qrprinter:=tqrprinter.create(не помню, что здесь, догадаешься...);
/////////////////////////////////////////////
А дальше - загружай...
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c