Visualisateur de fichier quickreport

Soyez le premier à donner votre avis sur cette source.

Vue 38 297 fois - Téléchargée 2 922 fois

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 / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_RuB
Messages postés
1
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
11 mars 2010
-
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.
caro9
Messages postés
1
Date d'inscription
vendredi 17 juillet 2009
Statut
Membre
Dernière intervention
17 juillet 2009
-
Merci utile à 100% verry verry good thank you
enajib
Messages postés
2
Date d'inscription
vendredi 20 juin 2008
Statut
Membre
Dernière intervention
20 juin 2008
-
merci bien
ca marche :)
1 salut du maroc
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
24 -
@enajib : as-tu bien associé l'extension de fichier .QRP à l'application comme indiqué plus haut ?
enajib
Messages postés
2
Date d'inscription
vendredi 20 juin 2008
Statut
Membre
Dernière intervention
20 juin 2008
-
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 :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.