QuickReport Preview

[Larayna]

Ok, ich habe ein Problem an dem ich echt knabbere, vielleicht ist hier jemand der Bescheid weiss.

Ich arbeite mit Delphi 5.0 und habe folgendes Problem:
Ich habe auf dem Formular einen TQRPreview, und möchte eine gespeicherte .qrp-Datei IN DIESEM PREVIEW anzeigen!

Delphi-Quellcode:

with TQRPHandler.Create do
     begin
       try
         Filename := 'test.QRP';
         Preview;
       Except
           On E:Exception DO ShowException(E,@ShowReport);
       end;
       Free;

Funktioniert ohne Probleme.

Delphi-Quellcode:

with TQRPHandler.Create do
     begin
       try
         Filename := 'test.QRP';
    //     QRP.QRPrinter.Cleanup;
    //     QRP.QRPrinter.Load(GetCurrentDir+Filename);
         QRP.QRPrinter.Preview;
       Except
           On E:Exception DO ShowException(E,@ShowReport);
       end;
       Free;

Funktioniert leider überhaupt nicht. Die Auskommentierten Zeilen bringen das ganze weder zum Laufen noch verändern sie mein Problem.
Ich kriege jedes mal wenn ich es starte einen Laufzwitfehler mit Zugriffsverletzung an irgendeiner Andresse (DIE ändert sich zwischendruch mal).
Habe leider keine Erfahrungen mit den QuickReports, und die Hilfe in Delphi ist ziemlich nichtssagend.
Bin dankbar für JEDEN Tip!!!

[Larayna]

Ok, habe es schon gefunden(4 Codezeilen, zusammengereimt aus 3 verschiedenen Beispielen.. Rekord? ;))

Für alle die es interessiert:

Delphi-Quellcode:

with TQRPHandler.Create do
     begin
       try
          QRP2.QRPrinter := TQRPrinter.Create;
          QRP2.QRPrinter.Load(FileName);
          QRP2.PageNumber:=1;
          QRP2.Refresh;
       Except
           On E:Exception DO ShowException(E,@ShowReport);
       end;
       Free;
     end;