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.