Quick Report : Visionner un fichier .QRP [Résolu]

[paulfr]

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)" :

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++.

[SergioMaster]

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

[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.

[JustMe]

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;

[paulfr]

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)