Скачать: CL | DM;

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c