Viewer für Quickreport-Dateien

[FBrust]

Hallo,

im Vorschaufenster von Quickreport gibt es die Möglichkeit, den aktuellen Report als QRP-Datei abzuspeichern.

Um diese Datei wieder zu öffnen, muss man das Vorschaufenster erst einmal öffnen, d. h. einen beliebigen Bericht erzeugen und dann auf den Button "Öffnen" klicken.

Weiss vielleicht jemand, ob es einen besseren Viewer für diese Dateien gibt oder muss man sich sowas selbst programmieren?

Grüsse
Frank

[Mario]

Hallo,

ich habe mir mal eine DLL geschrieben, die ich immer dann aufrufe, wenn ich eine alte QR-Version nur zur Anzeige laden will. Das kannst Du auch problemlos in eine Exe einbauen:

Delphi-Quellcode:

library QROldShow;

uses
  SysUtils,
  Classes,
  QrBonus;

procedure ShowReport(aFileName: PChar);
BEGIN
 with TQRPHandler.Create do
 begin
  try
    Filename := aFileName;
    Preview;
  Except
    On E:Exception DO ShowException(E,@ShowReport);
  end;
  Free;
 end;
END;

exports
  ShowReport;

begin

end.

[hacki]

Hallo,

ich habe den gleichen Bedarf, gespeicherte QReports im Programm anzuzeigen, in dem ich den Pfad zuweise. Ich habe den obigen Quelltext ins Programm eingefügt. Die Unit

Code:

QrBonus

kennt der Compiler nicht.

Code:

if( AskForImportFileDlg.ShowModal = mrOK ) then
 begin
  //Application.CreateForm(TQuickReportForm, QuickReportForm);
         // open file QuickReportOpenFileName
  //QuickReportForm.Preview;

 with TQRPHandler.Create do
 begin

  try
    Filename := QuickReportOpenFileName;
    Preview;
  Except
    On E:Exception DO ShowException(E,@ShowReport);
  end;
  Free;
  
 end;

Was hat es mit der Unit

Code:

QrBonus

auf sich, die mein Compiler nicht kennt. Kann man das ansonsten so machen ? Oder ??

Hacki

[hacki]

Hallo,

ich habe den gleichen Bedarf, gespeicherte QReports im Programm anzuzeigen, in dem ich den Pfad zuweise. Ich habe den obigen Quelltext ins Programm eingefügt. Die Unit

Code:

QrBonus

kennt der Compiler nicht.

Code:

if( AskForImportFileDlg.ShowModal = mrOK ) then
 begin
  //Application.CreateForm(TQuickReportForm, QuickReportForm);
         // open file QuickReportOpenFileName
  //QuickReportForm.Preview;

 with TQRPHandler.Create do
 begin

  try
    Filename := QuickReportOpenFileName;
    Preview;
  Except
    On E:Exception DO ShowException(E,@ShowReport);
  end;
  Free;
  
 end;

Was hat es mit der Unit

Code:

QrBonus

auf sich, die mein Compiler nicht kennt. Kann man das ansonsten so machen ? Oder ??

Hacki

[Mario]

Ich habe nur die Vollversion von QR. Kann sein, dass Du deshalb QRBonus nicht hast. Hast Du mal Deinem komplette Festplatte danach durchsucht oder alle pas-Dateien nach TQRPHandler?

[hacki]

Hallo Mario,

ich habe danch gesucht, leider konnte ich nichts finden. Würde es reichen, wenn ich dies Unit irgendwo her bekommen könnte ? Falls ja, woher könnte ich die eventuell bekommen ?

Danke und Grüsse
hacki

[Mario]

Hallo,

ich habe nachgeschaut, die Unit heißt in Delphi 6 QRExtras und es müsste laufen, wenn Du diese Unit verwendest.

[hacki]

Hallo Mario,

wir haben uns zeitlich überschnitten. Ich wollte gerade die Erfolgsmeldung verkünden. Du hast recht, in der QRExtra-dcu ist die Funktion enthalten und es funktioniert:

Code:

procedure TMainForm.Reports1Click(Sender: TObject);
var Dialogo: TOpenDialog;
begin

  with TQRPHandler.Create do
    try
      Dialogo:= tOpenDialog.Create(Application);
      Dialogo.Filter:='QuickReport (*.QRP)|*.QRP';
      if (Dialogo.Execute) then Filename := Dialogo.Filename;
      Dialogo.free;
      Preview;
    finally
      Free;
    end;
    
end;

Nochmals DANKE
grüsse
hacki