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
    179
    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 : 179
    Points : 182
    Points
    182

    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 512
    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 512
    Points : 10 813
    Points
    10 813
    Billets dans le blog
    3

    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
    179
    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 : 179
    Points : 182
    Points
    182

    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 expérimenté Avatar de JustMe
    Inscrit en
    juillet 2002
    Messages
    471
    Détails du profil
    Informations forums :
    Inscription : juillet 2002
    Messages : 471
    Points : 539
    Points
    539

    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
    179
    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 : 179
    Points : 182
    Points
    182

    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
  •