Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Visualisateur de fichier quickreport

0/5 (14 avis)

Vue 35 848 fois - Téléchargée 2 686 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

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.