Discussion :

[kameleon80]

Bonjour à tous.

je cherche à exporter le résultat d'un QuickReport en un fichier texte(.txt), sachant que l'exportation en fichier excel et pdf fonctionne bien, mais en fichier texte affiche une erreur de violation.

QuickRep1.ExportToFilter(TQRXLSFilter.Create('c:\teste.xls')); --> fonctionne bien

QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('c:\teste.txt')); --> Erreur de violation.

quelqu'un a une idée pour corriger ça.

merci d'avance.

[ShaiLeTroll]

Version de Delphi ?
Version de QuickReport ?

As-tu essayé avec un TQRTextFilter ou un TQRCSVFilter ( article de 2005 sur le CSV )

Faudrait contacter QuickReport, cet outil ne faisant plus parti de Delphi depuis bientôt 15 ans

il te manque les libérations, un code de 2012 simplifié issu de leur forum
En séparant l'instanciation, tu pourras voir si c'est le Create qui fait une VA ou le ExportToFilter, c'est déjà une piste
Mais comme on a pas la main sur le code de QR, cela va être difficile !
ton rapport est peut-être trop compliqué (formatage, image, tableau, sous-rapport) pour être sorti en simple text

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  aExportFilter : TQRExportFilter;
const
  STXTDescription = 'Text File (*.txt)|*.txt|';
begin
  with TSaveDialog.Create(nil) do
  try
    Title := 'Save report';
    Filter := STXTDescription;
    DefaultExt := 'TXT';
    Options := Options + [ofOverwritePrompt];
    if Execute then
    begin
      aExportFilter := TQRAsciiExportFilter.Create(FileName);
      try
        QuickRep1.ExportToFilter(aExportFilter);
      finally
        aExportFilter.Free
      end
    end;
  finally
    Free;
  end;
end;

[kameleon80]

Un grand merci ShaiLeTroll

Ta réponse m as éclairé un peu ce problème, je testerai le code dés que je rentre, sinon mon rapport c'est un pur texte.

A la base j ai voulu envoyé le rapport à une imprimante(Esc/Pos), ligne par ligne, pour éviter de recréer une autre procédure qui va me créer un rapport en Esc/Pos, je me suis dis je transforme mon rapport en texte puis j envois çà a l imprimante(Esc/Pos) pour l imprimer.

Après si vous avez une autre idée ou un composant qui pourra faire ça avec plaisir.

en out cas merci