Discussion :

[Francis]

Bonjour,
ça fait un moment que j'ai déserté le Forum Développez.com pour des raisons liées à mon Travail.
Et là, je reviens encore au Développement Sous Delphi.
Mon problème est simple: J'exporte une QuickReport via TQRExportFilter pour le sauvegarder automatiquement au format PDF. Quand l'édition est en Français ça fonctionne sans problème.
Mais quand l'état comporte des caractères en langue Arabe, il m'affiche du Charabia.
J'ai beau cherché, je n'ai pas trouvé. Il semble qu'il s'agisse d'un Bug de QuickReport.

PS: Mon problème ne peut se résoudre à traves une impression sur une Imprimante PDF. Parce que je lance plusieurs états dans une Boucle.

Merci par avance pour votre aide.

[SergioMaster]

Bonjour,

Et là, je reviens encore au Développement sous Delphi.

Bon retour.
Moi, c'est Quickreport qui me fait faire un bond en arrière.

il m'affiche du Charabia.

Quand charabia il y a souvent le problème d'encodage est à prendre en considération. Une version ante prise en charge de l'UTF8 est peut-être le problème.

[Francis]

Bonjour,
je n'ai pas compris ce que vous entendez par une version ante ???
Est-ce antérieure?

Une version ante prise en charge de l'UTF8 est peut-être le problème.

Le problème d'encodage se situerait dans les Sources de TQRExportFilter et non pas ailleurs.
Car quand j'imprime l'état en question sans faire d'Export PDF ça marche correctement. je n'ai pas de problème d'encodage.



Pour plus d'informations, je suis sur Win10, Delphi XE2, QuickReport 5.0 et FireBird.

[SergioMaster]

Est-ce antérieure?

exactement

Le problème d'encodage se situerait dans les Sources de TQRExportFilter

c'est possible

Car quand j'imprime l'état en question ça marche correctement.

l'impression se fait via sur un canvas, pour la partie export je n'en ai aucune idée.

je suis sur Win10, Delphi XE2, QuickReport 5.0 et FireBird.

En général je demande toujours de commencer par ça pour un nouveau post, cela évite bien des questionnements par la suite.

Déjà vérifier ce qui a été écrit ici
vérfier qu'il n'y a pas une version plus récente accessible (à priori la 5.06 https://www.quickreport.co.uk/quickr...ions-delphi-2/)
a priori,selon les notes de release, il vous faut a minima la version 5.05 ou 5.02.2

13 .Exportation PDF: texte inversé implémenté. De plus, le bogue d'épaisseur de ligne pour les formes est maintenant corrigé. Prend désormais en charge les valeurs fractionnaires.

[Francis]

Déjà vérifier ce qui a été écrit ici
vérfier qu'il n'y a pas une version plus récente accessible (à priori la 5.06 https://www.quickreport.co.uk/quickr...ions-delphi-2/)
a priori,selon les notes de release, il vous faut a minima la version 5.05 ou 5.02.2

Merci , le lien envoyé ne me permet pas de télécharger la release....

[SergioMaster]

Le lien pour toutes les versions (site officiel) https://www.quickreport.co.uk/downloads/
bien sûr il vous faut une version pro (et donc un numéro de série).

Si vous n'avez pas une version pro, mais une version Delphi cela va être plus compliqué !
Vous pouvez toujours vous rabattre sur une solution sans QRExport telle que je l'ai proposé dans ce forum, au détriment d'un peu de qualité et de l'impossibilité de récupéré des informations au sein du PDF puisque ce sont des images qui sont mises "en page"

[Francis]

Code de Sergio
B.Width := MF.Width;
B.Height := MF.Height;
B.Canvas.Draw(0,0,MF);
PPDF.DrawJPEG(52,0,B); // JPEG

Effectivement c'est cette solution que j'utilise mais le résultat sur papier n'a pas la bonne résolution.
A l'écran il est acceptable.
Pour un Etat au Format A3 , l'état est tronqué quand on utilise DrawBitmapJPEG
avec un ami , nous avons bidouillé la procédure DrawBitmap pour agrandir l'image.
Mais l'état sur papier est moins clair qu'une édition directe.

Ci-dessous le code utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
       BitMap             := TBitmap.Create;
        BitMap.PixelFormat := pf32bit;
        MetaFile           := QrPreview.QRPrinter.GetPage(vInt);
        BitMap.Height      := MetaFile.Height;
        BitMap.Width       := MetaFile.Width;
        BitMap.Canvas.Draw(0, 0, MetaFile);
        PrintPDF.DrawBitmap(0, 0, BitMap);
        if (vInt <> QrPreview.QRPrinter.PageCount)
          then
            PrintPDF.NewPage;

[SergioMaster]

Effectivement c'est cette solution que j'utilise mais le résultat sur papier n'a pas la bonne résolution.

alors pourquoi avoir écrit ?

J'exporte une QuickReport via TQRExportFilter

pas la bonne résolution.

Quant à la résolution ça peut s'améliorer, mais je suis passé à Rave puis à FastReport depuis si longtemps que seul mes vieux programmes utilisent encore ce code

Pour un Etat au Format A3 , l'état est tronqué quand on utilise DrawBitmapJPEG

je n'ai toujours produit que du A4 donc pas vu à l'époque

[Francis]

Sergio: Quant à la résolution ça peut s'améliorer

Je pense que si on pouvait améliorer la résolution, ce serait la meilleure solution pour résoudre mon problème sans trop de changement.
Sauf, que j'ai de beaucoup de notion de manipulation d'images.