Report öffnen

[Klaus Bissinger]

Hallo,
in meiner Anwendung habe ich ein Druckvorschau selbst erstellt (QuickReport 3).
Wenn ich bereits abgespeicherte Reports (*.qrp) öffnen möchte, bekomme
ich folgende Meldung:

"... Exception der Klasse EAccessViolation ... Zugriffsverletzung bei Adresse 004CB887 Modul Program.EXE, lesen von Adresse FFFFFFFF"

Der Quelltext zum öffnen von Reports lautet:
procedure TForm4.ToolBtnOeffClick(Sender: TObject);
begin
if OpenDialog1.Execute
then

QRPreview1.QRPrinter.Load(OpenDialog1.FileName);
try
QRPreview1.Zoom := QRPreview1.Zoom + 1;
QRPreview1.PageNumber := 2;
QRPreview1.PageNumber := 1;
Label3.Caption := 'Seite ' + IntToStr(QRPreview1.PageNumber);
Label2.Caption := IntToStr(QRPreview1.QRPrinter.PageCount);
finally
free;
end;
end;

Meinebisherigen Versuche den Fehler ausfindig zu machen waren vergebens.
Wer hat einen Rat?

Gruß
Klaus

[Bruno Danuseg]

Hallo,<p>
das letzte "Free" ist mir nicht ganz klar. Worauf bezieht sich das? So funktioniert es jedenfalls:

<pre>
with TOpenDialog.Create(Application) do
try
Filter := 'Reportdatei ' + '(' +cQRPDefaultExt + ')|*.' + cQRPDefaultExt;
if Execute then
if FileExists(FileName) then
begin
QRPreView1.QRPrinter.Load(Filename);
QRPreview1.PageNumber := 1;
QRPreview1.PreviewImage.PageNumber := 1;
end
else
MessageDlg(Format('Datei %s existiert nicht!',[FileName]),
mtError,[mbCancel],0);
finally
free;
end;
</pre&gt

[Klaus Bissinger]

Hallo Buno,
vielen Dank für die Hilfestellung.

Ich habe daraufhin ein neues Projekt mit Deinem Quelltext angelegt
(TOpenDialog, Form, TPreview, TButton). Leider erhalte ich, wenn ich
einen gespeicherten Report öffnen möchte wieder eine Fehlermeldung
...Execption der Klasse EAccessViolation ... . Hast Du vielleicht
noch eine Idee, was ich versuchen könnte?
Gruß
Klau

[Klaus Bissinger]

Hallo Bruno,<BR>
vielen Dank für die Hilfestellung.<BR>

Ich habe daraufhin ein neues Projekt mit Deinem Quelltext angelegt
(TOpenDialog, Form, TPreview, TButton). Leider erhalte ich, wenn ich
einen gespeicherten Report öffnen möchte wieder eine Fehlermeldung
...Execption der Klasse EAccessViolation ... . Hast Du vielleicht
noch eine Idee, was ich versuchen könnte?<BR>
Gruß<BR>
Klau

[Bruno Danuseg]

Hallo,<p>
ist der gespeicherte Report mit dem gleichen Programm erzeugt worden? Funktioniert das Speichern/Laden mit dem Demoprogramm von QR? Bei exakt welcher Aktion tritt der Fehler auf

[Klaus Bissinger]

Hallo Bruno,<BR>
<BR>
Der Fehler tritt dann auf, wenn ich über den OpenDialog einen abgespeicherten Report (*.qrp) laden möchte, so dass dieser in der<BR>
Preview angezeigt wird.Ich habe jetzt neu abgespeicherte Reports ebenfalls versucht zu öffnen - gleiche Fehlermeldung. Das speichern/laden von Reports mit dem Demoprogramm von QR funktioniert einwandfrei. Leider nicht mit meiner eigenen Druckvorschau. Zwischenzeitlich habe ich das Upgrade Pack 3 für D 4-Prof installiert und QR 3.07. Alles ohne Erfolg. Sollte ich notfalls D4 nochmals deinstallieren und neu aufspielen?<BR>

Gruß<BR>
Klau

[Bruno Danuseg]

Hallo Klaus,<p>
nee, wenn das Demoprogramm funktioniert, ist eine Neuinstallation von Delphi nicht notwendig. Der Fehler muss in der eigenen Druckvorschau liegen. Mail mir doch mal den Quelltext dafür. Alternativ kann ich Dir auch mal meinen schicken

[Klaus Bissinger]

Hallo Bruno,<BR>

danke für Deinen Vorschlag. Welchen Quelltext genau willst Du von mir haben?<br>
Wie ich den OpenDialog hinterlegt habe, ist bereits in meiner vorherigen Nachricht angegeben. <br>
<br>
Meine Mail-Adresse lautet: [email protected] <br>
Ich überlasse es natürlich Dir, ob Du mir Deinen Quelltext übermittelst.<br>
Ich sende Dir auch gerne meinen Quelltext, teile mir nur mit, was
Du alles benötigst.<br>
<br>
Klau

[Klaus Bissinger]

Hallo Bruno, <br>
vielen Dank für die übermittelte Druckvorschau. Bisher habe ich mit<br> ini-Dateien noch nicht gearbeitet, auch sind mir "FormStorage"-Komponenten neu,bzw.<br> fehlen bei D4-Prof.<br>

Ich habe leider dennoch nach wie vor die Fehlermeldung erhalten.<br>
Nach vielen Versuchen konnte ich heute die Lösung finden - daher <br>
möchte ich diese im Forum veröffnentlichen, falls noch jemand anderes<br>
mit Report öffnen ähnliche Probleme hat. Mein Quelltext lautet jetzt:<br>
<br>
begin<br>
if OpenDialog1.Execute<br>
then<br>
QRPreview1.QRPrinter:= TQRPrinter.Create;<br>
QRPreview1.QRPrinter.Load(OpenDialog1.FileName);<b r>
QRPreview1.Zoom := QRPreview1.Zoom + 1;<br>
QRPreview1.PageNumber := 2;<br>
QRPreview1.PageNumber := 1;<br>
Label3.Caption := 'Seite ' + IntToStr(QRPreview1.PageNumber);<br>
Label2.Caption := IntToStr(QRPreview1.QRPrinter.PageCount);<br>
<br>
VielenDank nochmals für die Hilfestellung !<br>
<br>
Gruß<br>
Klaus<br&gt