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