Quick Report : Visionner un fichier .QRP

Version imprimable

11/11/2011, 12h22
paulfr

Quick Report : Visionner un fichier .QRP

Bonjour,

J'ai enfin trouvé une solution pour afficher un fichier .QRP.
Elle se trouve dans "Documentation, Knowledge …" de QuSoft dans le fichier KBA4.pdf (ou KB.zip), section "SaveReports (*.qrp)" :

Citation:

We have a class, TQRPHandler, that is defined and documented in the QRBonus unit in QR2 and in the QRExtra unit for QR3. This class is designed to easily allow you load a saved report using the following syntax:

Delphi:

with TQRPHandler.Create do
try
Filename := 'somefile.QRP';
Preview; {or}
print;
finally
Free;
end;

il y a une solution pour C++.
17/11/2011, 07h39
SergioMaster

Citation:

Envoyé par paulfr

J'ai enfin trouvé une solution pour afficher un fichier .QRP.

Bonjour
Parce que tu en cherchais une ????
Il me semble que j'avais répondu a cette question sur le Forum adhoc (tag [Quickreport]
avec en plus la possibilité de faire un PDF
ici
17/11/2011, 18h58
paulfr

Bonjour

J'avais bien vu votre solution, mais elle me semblait ne pas répondre à mon
problème qui se limitait à visionner le fichier .QRP déjà obtenu en utilisant QRCreatList en imprimant la table.
Je cherchais un "Viewer" simplement.

Tu auras besoin d'un TQRPreview et d'un bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
var
  qrp                         : TQRPrinter;
begin
 
  if OpenDialog1.Execute then
  begin
    qrp := TQRprinter.Create(nil);
    qrp.Load(OpenDialog1.FileName);
    QRPreview1.QRPrinter := qrp;
  end;
 
end;

Bonjour,

Je confirme que cette solution marche parfaitement et affiche dans ReportPreview le fichier .QRP.
Ci dessous la procédure utilisée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TFActmen.AffichBilanClick(Sender: TObject);  // affichege fich .QRP
var
  NomFich : string;
  BFichExist : Boolean;
begin
  NomFich := 'WBilan';
  repeat
    if not InputQuery('Afficher Fichier Bilan', ' Nom du Fichier (sans extension) : ', NomFich) then Exit;
    NomFich := NomFich + '.qrp';
    BFichExist := FileExists(NomFich);
    if not BFichExist then
      begin
        NomFich := Copy(NomFich, 1, 6);
        ShowMessage(' Ce FICHIER n''existe pas');
      end;
  until BFichExist;
 
 with TQRPHandler.Create do
 try
   Filename := NomFich;
   Preview; {or}
//   print;
 finally
   Free;
 end;

( Uses contient QRextra)