Discussion :

[Roland Chastain]

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.

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

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

[Roland Chastain]

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.

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électionner tout - Visualiser dans une fenêtre à part

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.

[bataff]

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

[Roland Chastain]

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

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.

[Roland Chastain]

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 :

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

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

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