Problème lors de la création d'un document PDF avec Cairo

Version imprimable

1 pièce(s) jointe(s)

Bonjour ! J'essaie de créer un document PDF avec Cairo (Free Pascal 3.0.0, Windows 10). J'arrive à écrire un mot dans le document. Si je remplace le mot par le résultat de la fonction FormatDateTime(), le fichier PDF est créé mais le texte n'apparaît pas. Je n'y comprends rien. :roll:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 program test; {$IFDEF FPC}{$MODE DELPHI}{$ENDIF} uses SysUtils, Cairo; const IMAGE_WIDTH = 595; IMAGE_HEIGHT = 842; { http://www.a4papersize.org/a4-paper-size-in-pixels.php } var cr: pcairo_t; surface: pcairo_surface_t; s: string; begin surface := cairo_pdf_surface_create( pchar(ChangeFileExt(ParamStr(0), '.pdf')), IMAGE_WIDTH, IMAGE_HEIGHT ); cr := cairo_create(surface); cairo_surface_destroy(surface); cairo_select_font_face(cr, 'Palatino Linotype', CAIRO_FONT_SLANT_NORMAL, CAIRO_FONT_WEIGHT_NORMAL); cairo_set_font_size(cr, 12); s := 'bonjour'; //s := FormatDateTime('dddd dd mmmm', Date()); cairo_move_to(cr, 10, 30); cairo_show_text(cr, pchar(s)); cairo_stroke(cr); cairo_destroy(cr); WriteLn(s); ReadLn; end.
Auriez-vous une idée de ce qui se passe ?

Je joins les DLL nécessaires pour exécuter le programme.

07/02/2016, 21h05
bataff

Bonsoir Roland :)

N'étant pas sous windows, je ne peux malheureusement pas répondre à ce problème mais pour info :
Sous ubuntu (fpc 2.6.2), cela fonctionne dans les deux cas en essayant tel quel ce programme (sans les DLL que j'avais oublié):

Sans FormatDateTime : le pdf est créé avec 'bonjour' affiché.
Avec FormatDateTime (désactivation des // à la ligne 32) : le pdf est créé avec ''Sunday 07 February' affiché à la place.

En espérant que quelqu'un sous windows trouve la solution ...
07/02/2016, 21h54
Roland Chastain

Citation:

Envoyé par bataff

Bonsoir Roland :)

N'étant pas sous windows, je ne peux malheureusement pas répondre à ce problème mais pour info :
Sous ubuntu (fpc 2.6.2), cela fonctionne dans les deux cas en essayant tel quel ce programme (sans les DLL que j'avais oublié):

Sans FormatDateTime : le pdf est créé avec 'bonjour' affiché.
Avec FormatDateTime (désactivation des // à la ligne 32) : le pdf est créé avec ''Sunday 07 February' affiché à la place.

En espérant que quelqu'un sous windows trouve la solution ...

Merci pour le retour d'expérience. :ccool:

Ta réponse m'a mis sur une piste. J'ai noté que chez toi la date s'affiche en anglais. Ce seraient peut-être les caractères accentués de la date en français qui poseraient problème ?

J'ai essayé la modification suivante, qui semble résoudre le problème :

Code:

s := AnsiToUTF8(FormatDateTime('dddd dd mmmm', Date()));

P.-S. Tu n'as pas besoin des DLL : les DLL c'est pour Windows. Si le programme fonctionne c'est que tu as les fichiers nécessaires sur ta machine. Sous Linux je crois que ce sont des fichiers *.so.
07/02/2016, 23h13
bataff

Citation:

Envoyé par Roland Chastain

P.-S. Tu n'as pas besoin des DLL : les DLL c'est pour Windows. Si le programme fonctionne c'est que tu as les fichiers nécessaires sur ta machine. Sous Linux je crois que ce sont des fichiers *.so.

Pas faux :oops: (je devais me croire avec Wine ...)

En espérant que cette modification résolve complètement ce problème (bizarre quand même que l'unité refuse complètement dés qu'il y a un caractère non anglo-saxon ...). Et comme il n'y a pas que dans les dates où il peut y avoir des caractères accentués, cela signifie qu'il faudrait employer la fonction AnsiToUTF8 pour n'importe quoi à écrire dans le pdf en général.
08/02/2016, 15h56
Roland Chastain

Citation:

Envoyé par bataff

En espérant que cette modification résolve complètement ce problème (bizarre quand même que l'unité refuse complètement dés qu'il y a un caractère non anglo-saxon ...).

J'ai l'impression que l'unité Cairo contrôle la validité des chaînes et "disjoncte" dès que la chaîne n'est pas valide (c'est-à-dire n'est pas encodée en UTF8).

Citation:

Envoyé par bataff

Et comme il n'y a pas que dans les dates où il peut y avoir des caractères accentués, cela signifie qu'il faudrait employer la fonction AnsiToUTF8 pour n'importe quoi à écrire dans le pdf en général.

Les caractères accentués en eux-mêmes ne sont pas le problème, mais c'est leur encodage qui est le problème. D'après les essais que j'ai encore faits, non il n'est pas nécessaire d'employer systématiquement la fonction AnsiToUTF8. En principe même on ne devrait pas avoir à l'employer. Je pense que c'est la fonction FormatDateTime qui aurait besoin d'une révision.

Citation:

Envoyé par bataff

Et comme il n'y a pas que dans les dates où il peut y avoir des caractères accentués, cela signifie qu'il faudrait employer la fonction AnsiToUTF8 pour n'importe quoi à écrire dans le pdf en général.

J'ai trouvé un moyen de savoir si une chaîne a besoin ou pas d'être traitée par la fonction AnsiToUTF8.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 program stringcodepage1; {$IFDEF FPC}{$MODE DELPHI}{$ENDIF} uses SysUtils; var s: string; begin s := FormatDateTime('dddd dd mmmm', Date()); WriteLn(StringCodePage(s)); // 1252 s := AnsiToUTF8(FormatDateTime('dddd dd mmmm', Date())); WriteLn(StringCodePage(s)); // 65001 ReadLn; end.
J'ai trouvé aussi une autre façon de faire la conversion :
Code:

1 2 3 4 5 6 var s: rawbytestring; begin s := FormatDateTime('dddd dd mmmm', Date()); SetCodePage(s, CP_UTF8, TRUE);