Заморочки с отчетами (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.

Попробуй замени Cleanup на следующий вариант:

/////////////////////////////////////////////
if assigned(xx.Qrprinter) then try freeandnil(xx.qrprinter); except end; xx.qrprinter:=tqrprinter.create(не помню, что здесь, догадаешься...);
/////////////////////////////////////////////

А дальше - загружай...

Заморочки с отчетами (QuickReport) Найти похожие ветки