begin process at 2013 05 25 00:02:19
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

 > VISUALISATEUR DE FICHIER QUICKREPORT

VISUALISATEUR DE FICHIER QUICKREPORT


 Information sur la source

Note :
9,33 / 10 - par 6 personnes
9,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Niveau :Débutant Date de création :01/04/2004 Date de mise à jour :01/04/2004 21:47:07 Vu / téléchargé :35 036 / 2 581

Auteur : Delphiprog

Ecrire un message privé
Site perso
Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

 Description

Sur la demande insistante d'un membre du forum, je dépose ce code source qui permet de visualiser un état QuickReport simplement en double cliquant sur son nom dans l'explorateur de fichiers.

Au préalable, vous pouvez associer les fichiers d'extension QRP à ce programme ou, le temps d'un test, utiliser la commande Exécuter|Paramètres|Paramètres de Delphi et y indiquer le nom d'un état QuickReport existant.

Voir aussi, de Nono40 : ASSOCIER UN PROGRAMME À UNE EXTENSION, AVEC ICONE ET NOM à l'adresse http://www.delphifr.com/code.aspx?ID=12140

Source

  • procedure TQrViewerMainForm.FormCreate(Sender: TObject);
  • var
  • QrpFile: string;
  • begin
  • //vérifier qu'il y a au moins un paramètre
  • //sur la ligne de commande
  • if ParamCount > 0 then
  • begin
  • QrpFile := ParamStr(1);
  • if FileExists(QrpFile) then
  • with TQrPrinter.Create do
  • try
  • try
  • Load(QrpFile);
  • PreviewModal;
  • except
  • ShowMessageFmt('%s n''est pas un fichier valide', [QrpFile]);
  • end;
  • finally
  • Free;
  • end;
  • end
  • end;
procedure TQrViewerMainForm.FormCreate(Sender: TObject);
var
  QrpFile: string;
begin
  //vérifier qu'il y a au moins un paramètre
  //sur la ligne de commande
  if ParamCount > 0 then
  begin
    QrpFile := ParamStr(1);
    if FileExists(QrpFile) then
      with TQrPrinter.Create do
      try
        try
          Load(QrpFile);
          PreviewModal;
        except
          ShowMessageFmt('%s n''est pas un fichier valide', [QrpFile]);
        end;
      finally
        Free;
      end;
  end
end;

 Conclusion

Cet extrait du code source utilise :
- les fonctions ParamCount et ParamStr pour obtenir les arguments de la ligne de commande.
- le composant TQrPrinter pour créer un aperçu avant impression

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip TABLE DE CORRESPONDANCE TYPES DE DONNÉES API/PASCAL OBJET
Source avec Zip Source avec une capture GÉNÉRER DES PDF AVEC DELPHI ET PDF CREATOR
Source avec Zip Source avec une capture DESIGN PATTERN OBSERVER : IMPLÉMENTATION RÉUTILISABLE
Source avec Zip DESIGN PATTERN STRATÉGIE APPLIQUÉ AU CODE "JOURNAL DE DÉBUGG...
Source avec Zip Source avec une capture DESSINER UN RECTANGLE DE SÉLECTION AU DESSUS D'AUTRES COMPOS...

 Sources de la même categorie

Source avec Zip Source avec une capture SPLIT PARTIES D'UN FICHIER ET PRODUCTION DE NOMS DE FICHIERS par Jean_Jean
Source avec Zip Source avec une capture CLEANER NETTOYEUR DE RÉPERTOIRE par PythonGreg
Source avec Zip Source avec une capture RECHERCHE PAR EXTENSION AVEC JVCL par Weirdy
Source avec Zip Source avec une capture FICHIER DUPLIQUÉ AVEC UNE TABLE DE HACHAGE par jerome1875
Source avec Zip Source avec une capture WII SD CARD NAVIGATOR 1.0.0.5 ALPHA par skyangel21

Commentaires et avis

Commentaire de gadiri80 le 28/04/2005 01:54:05

c quoi exactement le :
uses Unit2;
se trouvant sur le zip telechargeable?
merci.

Commentaire de Delphiprog le 02/05/2005 23:36:09 administrateur CS

Effectivement, il s'agit là d'un vestige égaré et qui ne sert à rien dans le code.
Merci d'avoir signalé cette coquille.

Commentaire de xactise le 30/05/2006 09:11:57

Bonjours sera t-il possible d'avoir la source compiler ?
(un executable)
D'avance merci

Commentaire de Delphiprog le 30/05/2006 21:29:33 administrateur CS

Xactise : c'est possible et c'est ici qu'on le trouve : http://tinyurl.com/s86hr
A+

Commentaire de Sylsana le 27/03/2008 14:55:47

Bonjour,

ce post est vieux ...mais sert bien puisque je suis heureux d'avoir découvert ce viewer :)

j'aurai une petite requete à faire cependant.
Est il possible à DELPHIPROG d'inclure un filtre XLS afin de pouvoir enregistrer le fichier sous format EXCEL ?

Ex : on charge le .qrp avec le viewer et ensuite au lieu de pouvoir enregistrer qu'en format .qrp , qu'on puisse aussi le faire en fichier supporté par Excel (pour exploiter les données).

J'ai vu ceci pour les filtres XLS :

http://nono40.developpez.com/tutoriel/delphi/quickreport/#LIII-E-2

J'espère avoir une réponse :)

Merci bien en tout cas pour tout çà

Commentaire de Delphiprog le 01/04/2008 22:37:17 administrateur CS

Merci de porter un intérêt à ce code qui fête ses quatre ans aujourd'hui même.
Avec le code donné par Nono40, l'adaption ne devrait poser aucun problème.
Néanmoins, le code que j'avais donné n'avait pour seul objectif que de permettre de visualiser un état au format Quick Report de base. Pour pouvoir exporter dans différents formats, il faudra disposer de la version pro de Quick Report 4 et je ne sais pas si beaucoup de monde en dipose.

Commentaire de xactise le 01/04/2008 22:48:28

bananif a ta source.
Et longue vie a CS

Commentaire de Sylsana le 02/04/2008 11:06:58

Bonjour,

Merci de vos réponses ...

Si effectivement quelqu'un avait çà et puisse mettre un lien avec une version compilée qui permettrait de profiter de cette fonctionnalité EXCEL ... çà m'enlèverait une belle épine du pied dans mon boulot.

Merci encore.

Commentaire de Sylsana le 22/04/2008 14:16:27

je up ce topic, car je suis toujours à la recherche de cette fonctionnalité de pouvoir enregistrer en .XLS un fichier QRP.
Aussi, à défaut d'avoir un .exe, serait il possible d'avoir un code que je pourrai éventuellement compiler (avec la fonction TQRXLSFilter.Create ou QRExport ?).

Ainsi, j'aurai un visualisateur qui ferait aussi preposerait l'enregistrement en XLS.

Merci infiniment de m'aider, car j'en ai un réel besoin.

P.S : je sais qu'il faudra que je me procure la version pro de quickreport pour cela. Merci.

Commentaire de enajib le 20/06/2008 11:48:40

bonjours je suis un nouveau sur le forum j'ai telecharger le zip pour lire un fichier QRP et meme l executable  mais je clic dessu il marche je c pas koi faire et merci :)

Commentaire de Delphiprog le 20/06/2008 12:12:53 administrateur CS

@enajib : as-tu bien associé l'extension de fichier .QRP à l'application comme indiqué plus haut ?

Commentaire de enajib le 20/06/2008 12:21:57

merci bien
ca marche  :)
1 salut du maroc

Commentaire de caro9 le 17/07/2009 15:00:44 10/10

Merci utile à 100% verry verry good thank you

Commentaire de RuB le 11/03/2010 18:00:55 7/10

Bonjour,
C'est tres utile pour afficher un fichier QRP ! dommage de ne pas pouvoir le recuperer.... même en format texte ;~)
Heureusement avec un Scan en OCR on arrive à recuperer des fichiers perdu corps et bien...
C'est juste un peu plus long !
Merci.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mai 2013
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,058 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales