Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 5 sur 5
  1. #1
    Membre actif
    Homme Profil pro Paul LAUTIER
    ingénieur, retraité
    Inscrit en
    février 2007
    Messages
    176
    Détails du profil
    Informations personnelles :
    Nom : Homme Paul LAUTIER
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : ingénieur, retraité

    Informations forums :
    Inscription : février 2007
    Messages : 176
    Points : 160
    Points
    160

    Par défaut 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)" :

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

  2. #2
    Rédacteur/Modérateur
    Avatar de SergioMaster
    Homme Profil pro Serge Girard
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    5 337
    Détails du profil
    Informations personnelles :
    Nom : Homme Serge Girard
    Âge : 58
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 5 337
    Points : 9 748
    Points
    9 748

    Par défaut

    Citation Envoyé par paulfr Voir le message
    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
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

  3. #3
    Membre actif
    Homme Profil pro Paul LAUTIER
    ingénieur, retraité
    Inscrit en
    février 2007
    Messages
    176
    Détails du profil
    Informations personnelles :
    Nom : Homme Paul LAUTIER
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : ingénieur, retraité

    Informations forums :
    Inscription : février 2007
    Messages : 176
    Points : 160
    Points
    160

    Par défaut

    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.

  4. #4
    Membre éprouvé Avatar de JustMe
    Inscrit en
    juillet 2002
    Messages
    469
    Détails du profil
    Informations forums :
    Inscription : juillet 2002
    Messages : 469
    Points : 496
    Points
    496

    Par défaut

    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;
    <On fait la science avec des faits, comme on fait une maison avec des pierres : mais une accumulation de faits n'est pas plus une science qu'un tas de pierres n'est une maison> **Poincaré**
    http://www.mobile-tactile.com/

  5. #5
    Membre actif
    Homme Profil pro Paul LAUTIER
    ingénieur, retraité
    Inscrit en
    février 2007
    Messages
    176
    Détails du profil
    Informations personnelles :
    Nom : Homme Paul LAUTIER
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : ingénieur, retraité

    Informations forums :
    Inscription : février 2007
    Messages : 176
    Points : 160
    Points
    160

    Par défaut

    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)

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •