Discussion :

[kournane]

Bonjour à toutes et à tous, ma première question concerne la génération d'un état en document texte en utilisant quickreport, j'ai 2 fenêtres, une où il y a un quickreport avec des QRBDText pour afficher les champs de la table et une autre fenêtre où il y a entre autre un bouton dont voici la procédure qui gère l'événement de Click :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.OnClick(Sender: TObject);
Var exp : TQRTextFilter;
begin
  exp := TQRTextFilter.create( 'D:\essai.txt' );  ............  (39)
  Try
    Form2.QuickRep1.ExportToFilter( expFilt );   ............. (41)
  Finally
    exp.free;
  End;
end;

[Error] Unit1.pas(39): Incompatible types: 'TComponent' and 'String'
[Error] Unit1.pas(41): Incompatible types: 'TQRExportFilter' and 'TQRTextFilter'
[Fatal Error] QReport.dpr(6): Could not compile used unit 'Unit1.pas'

Ma deuxième question porte sur QuickReport 4.0.6, où puis-je le trouver en téléchargement gratuit ?

[SergioMaster]

Bonjour

Ma deuxième question porte sur QuickReport 4.0.6, où puis-je le trouver en téléchargement gratuit ?

La dernière version gratuite est la 3.5.1 version standard (donc pas de exportfilter si mes souvenirs sont bons)
téléchargeable ici

Quant au code , cela pourrait être simplement du au nom de la variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Var expFilt : TQRTextFilter;
begin
  expFilt := TQRTextFilter.create( 'D:\essai.txt' );  ............  (39)
  Try
    Form2.QuickRep1.ExportToFilter( expFilt );   ............. (41)
  Finally
    expFilt.free;
  End;

un essai sans variable, corrige t'il l'erreur en 41 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Form2.QuickRep1.ExportToFilter(TQRTextFilter.create( 'D:\essai.txt' ));   ............. (41)

[kournane]

Bonjour, merci pour votre réponse, j'ai essayé d'enlever le nom de variable mais rien n'y fait, j'ai toujours le même message d'erreur. J'utilise la version standard, et si comme vous dites il n'y a pas de " exportFilter" dans cette dernière, alors le problème vient peut être de là, non ? Je cherche un extraire un fichier texte à partir d'un quickreport où il y a des informations provenant d'une base de données, j'ai mis le quickreport dans une fenêtre à part avec toutes les information nécessaires, la table de la base de données (un simple composant TTable), des QRDBEdit placés dans le quickreport et dont chacun a pour propriété datafield un des champs de la table. Et dans une autre fenêtre, il y a entre autre un bouton, dont éventrement OnClick contient le code que j'ai cité plus haut et qui ne marche pas. Je suis débutant en delphi, j'aimerai bien savoir où j'ai fait l'erreur. Mon but est que quand un utilisateur clique sur le bouton précédemment cité, ça déclenche un événement qui crée le fichier texte en question.

[Papy214]

Et quelle est l'utilité d'utiliser QuickReport pour créer un fichier texte ?
Le plus simple reste quand même d'ajouter des lignes à un TStringList puis à sauver le contenu sous forme de texte.
Ou alors, j'ai pas compris le but final du truc.

[kournane]

Je vais vous expliquer le but général, nous avons par exemple une base de données avec une table employés contenant toutes les infos de ces derniers, ici je veux générer un document qui contient des infos extrait de cette table, par exemple nom et prénom de l'employé pour faire une attestation de travail par exemple, j'ai fait ça avec quickreport comme je l'ai expliqué, avec des QRDBText et tout, mais je n'arrive pas à extraire ça sous forme de document texte. La finalité c'est que l'utilisateur de l'application parcours les employés et quand il en choisit un il clique sur un bouton et là l'attestation de travail est générée en document texte avec les infos sur l'employé provenant évidement de la base de données et que j'ai récupéré sur le quickreport.

[Papy214]

J'ai bien compris qu'il s'agit d'aller prendre des données dans une base pour les "exporter" dans un fichier texte.
Mais est-ce bien d'un pur fichier texte qu'il s'agit ? Ou d'un fichier avec une présentation très précise ?
Pour moi, un fichier texte est un fichier lisible avec notepad, donc sans aucun formatage ni positionnement d'élément.
D'où mon étonnement sur l'utilisation de QuickReport !
Qu'est-ce qui empêche, au moment où l'utilisateur a choisi l'enregistrement voulu, de lire les infos et de les enregistrer dans un fichier texte tout simple ?
C'est ça que j'ai du mal à comprendre.
Mais s'il ne s'agit pas d'un "vrai" fichier txt, l'exemple donné n'est pas bon puisque la sauvegarde se fait dans 'D:\essai.txt' .

[kournane]

Avec un QuickReport, on peut ajuster les éléments comme on veut et mettre des labels, des entêtes et tout, voilà pourquoi j'ai utilisé QuickReport, maintenant si vous pensez qu'un fichier .txt n'est pas un point de sortie convenable pour ça et qu'il vaudrait mieux faire un .doc ou autre, je serais ravi de lire vos conseils, et ça m'aiderai beaucoup car je suis débutant en delphi.

[Papy214]

Le problème n'est pas de conseiller un format ou un autre mais de comprendre où se situe le problème.
Je persiste à dire qu'un fichier enregistré au format texte (avec extension .txt) n'a pas de formatage possible.
C'est du texte pur et rien d'autre. Donc, si le document de sortie doit positionner des éléments à des endroits précis, ajouter en-tète et bas de page, etc. ce n'est pas un fichier texte.

Après, je ne sais quelles sont les possibilités d'export avec la version de QuickReport utilisée.
Mais en général, si le document final n'a pas vocation à être modifié, une sortie au format PDF est devenu le standard.

[SergioMaster]

Bonjour,

Je suis tout à fait d'accord avec Papy214 . Avec Quickreport , j'ai réussi a faire des exports pdf (sans utiliser les filtres)
il suffit de chercher dans le bon forum
et le 'bon post'

[kournane]

Je vous remercie tous vraiment pour votre aide, je vais essayer d'exporter dans un format .pdf, et je vais cliquer sur résolu. Encore merci.