BGRABitmap sans Lazarus dans une application console sous Windows

**Roland Chastain** · 09/04/2017, 18h34

Bonjour !

Je voulais essayer d'utiliser BGRABitmap sans Lazarus, dans une application console (pour fabriquer une image PNG et la sauvegarder dans un fichier).

Tant qu'il n'y a pas de texte, ça marche. Mais lorsqu'il y a du texte, l'application se compile mais lorque la fenêtre noire s'ouvre rien ne se passe (aucun fichier n'est créé) et l'application est bloquée : je dois la fermer manuellement, alors qu'elle devrait se fermer toute seule.

Voici un exemple de programme avec lequel j'ai rencontré le problème :

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
program test;
 
uses
  Classes, SysUtils,
  BGRAGraphics, BGRABitmap, BGRABitmapTypes;
 
procedure DrawEllipseHello(aBitmap: TBGRABitmap);
begin
  aBitmap.Fill(BGRABlack);
 
  aBitmap.CustomPenStyle := BGRAPenStyle(2, 1);
  aBitmap.FillEllipseLinearColorAntialias(aBitmap.Width / 2, aBitmap.Height / 2, aBitmap.Width / 2 - 5, aBitmap.Height / 2 - 5, BGRAPixelTransparent, BGRAWhite);
  aBitmap.EllipseAntialias(aBitmap.Width / 2, aBitmap.Height / 2, aBitmap.Width / 2 - 5, aBitmap.Height / 2 - 5, CSSRed, 5);
 
  if aBitmap.Height div 10 < 10 then
    aBitmap.FontHeight := 10
  else
    aBitmap.FontHeight := aBitmap.Height div 10;
  with aBitmap.FontPixelMetric do
    aBitmap.TextOut(aBitmap.Width / 2, aBitmap.Height / 2 - (CapLine + Baseline) / 2, 'Hello world', BGRABlack, taCenter);
 
  aBitmap.Canvas.Pen.Color := clBlue;
  aBitmap.Canvas.MoveTo(0, 0);
  aBitmap.Canvas.LineTo(aBitmap.Width, aBitmap.Height);
end;
 
var
  bmp: TBGRABitmap;
 
begin
  TBGRABitmap.AddFreeTypeFontFolder(GetCurrentDir);
 
  bmp := TBGRABitmap.Create(800, 600, BGRABlack);
  DrawEllipseHello(bmp);
  bmp.SaveToFile('test.png');
  bmp.Free;
end.

Je précise que j'ai bien un fichier arial.ttf dans le même dossier que le programme.

Et voici le fichier de commande dont je me sers :

Code Batch :

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

1
2
3
4
5
6
7
8
set path=C:\FPC\3.0.2\bin\i386-win32
 
if not exist units md units
 
set bgra=C:\Sources\bgrabitmap\bgrabitmap
set lazutils=C:\Sources\lazutils
 
fpc.exe -Mobjfpc -dBGRABITMAP_DONT_USE_LCL -Fu%lazutils% -Fu%bgra% -FUunits %1

Auriez-vous une idée de ce qui ne va pas ?

**anapurna** · 11/04/2017, 18h17

salut

ne serais ce pas les propriété de placement

Code :

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

1
2
 
 aBitmap.TextOut(aBitmap.Width / 2, aBitmap.Height / 2 - (CapLine + Baseline) / 2, 'Hello world', BGRABlack, taCenter);

par

Code :

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

1
2
 
 aBitmap.TextOut(aBitmap.Width div 2, aBitmap.Height div 2 - (CapLine + Baseline) div 2, 'Hello world', BGRABlack, taCenter);

**Roland Chastain** · 11/04/2017, 18h28

@anapurna

Merci pour ta réponse mais je ne crois pas que le problème vienne de là. Ce code provient d'un exemple officiel. Il se compile, et donne un résultat correct lorsqu'il est compilé avec Lazarus, et avec le paquet bgrabitmap4nogui. Moi je cherche à compiler sans Lazarus et j'y arrive, mais le programme ne fonctionne pas.

Dans BGRABitmap, comme dans Cairo, les coordonnées non entières sont autorisées.

**anapurna** · 11/04/2017, 18h36

salut

effectivement j'ai regarde les sources est c'est un single en paramettre
autre point a verifier

n'aurais tu pas oublié d'installer les font que tu veut utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   FFontCollection: TFreeTypeFontCollection;
  begin
    FFontCollection := TFreeTypeFontCollection.Create;
    FFontCollection.AddFile('times.ttf');
    SetDefaultFreeTypeFontCollection(FFontCollection);
    TBGRABitmap.AddFreeTypeFontFolder(GetCurrentDir);
    bmp.FontName := 'Times New Roman';
 
   ...

**Roland Chastain** · 11/04/2017, 18h47

Merci encore pour ta réponse mais je suis sûr que le code est bon car il compile et donne le résultat attendu comme projet Lazarus. Tout ce que j'ai fait c'est de chercher à compiler le fichier *.lpr par une ligne de commande.

Autrement ta question est pertinente mais l'exemple utilise la police par défaut (Arial) : c'est pourquoi il n'y a pas de code pour utiliser une autre police. Donc je ne crois pas que le problème vienne de là. En même temps, je ne rencontre ce problème qu'avec du code affichant du texte. Donc le problème doit bien être de ce côté-là.

**anapurna** · 11/04/2017, 19h24

salut

en regardant le code on s'aperçois qu'il n'utilise pas le même "Provider" de font
c'est peut être bien ton soucis

dans LCL bitmap

Code :

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

  result := TLCLFontRenderer.Create;

dans TBGRANoGUIBitmap

Code :

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

1
2
 
  result := TBGRAFreeTypeFontRenderer.Create;

**Roland Chastain** · 12/04/2017, 06h56

@anapurna

Merci pour l'information.

De mon côté, j'ai observé qu'en compilant mon programme avec lazbuild, j'obtiens un exécutable qui fonctionne (évidemment) et qui pèse 500 Ko de plus que celui que j'obtiens par ma méthode.

J'ai essayé de m'inspirer des options que lazbuild passe au compilateur mais sans succès jusqu'à présent.

**anapurna** · 12/04/2017, 14h45

salut

si tu ajoute ces lignes la que ce passe t'il ?

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
uses LazFreeTypeFontCollection;
 
var FFontCollection: TFreeTypeFontCollection;
 
procedure AddFont;
begin
  FFontCollection := TFreeTypeFontCollection.Create;
  FFontCollection.AddFile('Arial.ttf');   //supposing the file is next to the application
  SetDefaultFreeTypeFontCollection(FFontCollection);
end;
 
procedure LibereFont;
begin
  SetDefaultFreeTypeFontCollection(nil);
  FreeAndNil(FFontCollection);
end;

**Roland Chastain** · 12/04/2017, 16h18

@anapurna

Merci pour ton soutien. Malheureusement, non, ça ne résout pas le problème.

Le problème n'est pas dans le code, mais dans les options de compilation. Il s'agit de savoir ce que fait exactement le paquet bgrabitmappack4nogui...

**anapurna** · 12/04/2017, 20h09

Salut

d'apres ce que tu as ecrit sur le premier post
tu utilise l'option dBGRABITMAP_DONT_USE_LCL

quand on regarde brgrabitmap

Code :

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

1
2
3
4
5
6
7
8
9
10
{$IFDEF BGRABITMAP_USE_FPGUI}
   ...
{$ELSE}
	{$IFDEF BGRABITMAP_USE_LCL}
             ...
	{$ELSE}
	    BGRANoGuiBitmap,
	{$ENDIF}
{$ENDIF}
 BGRAGraphics;

Code :

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

1
2
3
4
5
6
7
8
9
10
type
{$IFDEF BGRABITMAP_USE_FPGUI}
  ...
{$ELSE}
    {$IFDEF BGRABITMAP_USE_LCL}
     ...
   {$ELSE}
      TBGRABitmap = class(TBGRANoGUIBitmap);
    {$ENDIF}
{$ENDIF}

on vois qu'il utilise un descendant de TBGRANoGUIBitmap
ce qui en cherchant un peu les provider de font ... t'indique que ce n'est pas le même utilisé selon
un cas ou l'autre

**Roland Chastain** · 12/04/2017, 22h42

Merci pour cette indication. C'est bon à savoir.

De mon côté j'ai repris la recherche au début. J'ai compilé mon projet avec lazbuild, avec les options suivantes :

Code Batch :

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

C:\lazarus\lazbuild.exe -B -r %1 > lazbuild.log

Et voici le contenu du fichier lazbuild.log (dont j'ai retiré les avertissements, conseils, etc.) :

Code X :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
Info: (lazarus) Execute Title="Compiler le paquet FCL 1.0.1"
Info: (lazarus) Working Directory="C:\lazarus\packager\registration\"
Info: (lazarus) Executable="C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.exe"
Info: (lazarus) Param[0]="-B"
Info: (lazarus) Param[1]="-MObjFPC"
Info: (lazarus) Param[2]="-Scghi"
Info: (lazarus) Param[3]="-O1"
Info: (lazarus) Param[4]="-g"
Info: (lazarus) Param[5]="-gl"
Info: (lazarus) Param[6]="-l"
Info: (lazarus) Param[7]="-vewnhibq"
Info: (lazarus) Param[8]="-FuC:\lazarus\packager\registration\"
Info: (lazarus) Param[9]="-FUC:\lazarus\packager\units\i386-win32\"
Info: (lazarus) Param[10]="fcllaz.pas"
Hint: (11030) Start of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg
Hint: (11031) End of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 3.0.2 [2017/02/27] for i386
Copyright (c) 1993-2017 by Florian Klaempfl and others
(1002) Target OS: Win32 for i386
(3104) Compiling fcllaz.pas
(3104) Compiling registerfcl.pas
(3104) Compiling lazaruspackageintf.pas
(1008) 220 lines compiled, 0.8 sec
(1022) 6 hint(s) issued
Info: (lazarus) Execute Title="Compiler le paquet LazUtils 1.0"
Info: (lazarus) Working Directory="C:\lazarus\components\lazutils\"
Info: (lazarus) Executable="C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.exe"
Info: (lazarus) Param[0]="-B"
Info: (lazarus) Param[1]="-MObjFPC"
Info: (lazarus) Param[2]="-Scghi"
Info: (lazarus) Param[3]="-O1"
Info: (lazarus) Param[4]="-g"
Info: (lazarus) Param[5]="-gl"
Info: (lazarus) Param[6]="-l"
Info: (lazarus) Param[7]="-vewnhibq"
Info: (lazarus) Param[8]="-FuC:\lazarus\packager\units\i386-win32"
Info: (lazarus) Param[9]="-FuC:\lazarus\components\lazutils\"
Info: (lazarus) Param[10]="-FUC:\lazarus\components\lazutils\lib\i386-win32\"
Info: (lazarus) Param[11]="lazutils.pas"
Hint: (11030) Start of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg
Hint: (11031) End of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 3.0.2 [2017/02/27] for i386
Copyright (c) 1993-2017 by Florian Klaempfl and others
(1002) Target OS: Win32 for i386
(3104) Compiling lazutils.pas
(3104) Compiling laz2_dom.pas
(3104) Compiling laz2_xmlutils.pas
(3104) Compiling lazutf8.pas
(3104) Compiling fpcadds.pas
(3104) Compiling laz2_xmlcfg.pas
(3104) Compiling lazfilecache.pas
(3104) Compiling lazdbglog.pas
(3104) Compiling lazfileutils.pas
(3104) Compiling lazutilsstrconsts.pas
(1010) Writing Resource String Table file: lazutilsstrconsts.rsj

(3104) Compiling laz2_xmlread.pas
(3104) Compiling lazutf8classes.pas
(3104) Compiling laz2_xmlwrite.pas
(3104) Compiling lazutilities.pas
(3104) Compiling laz_dom.pas
(3104) Compiling laz_xmlcfg.pas
(3104) Compiling laz_xmlread.pas
(3104) Compiling laz_xmlstreaming.pas
(3104) Compiling laz_xmlwrite.pas
(3104) Compiling paswstring.pas
(3104) Compiling fileutil.pas
(3104) Compiling masks.pas
(3104) Compiling lconvencoding.pas
(3104) Compiling lazutf16.pas
(3104) Compiling lazutf8sysutils.pas
(3104) Compiling lazmethodlist.pas
(3104) Compiling avglvltree.pas
(3104) Compiling lazlogger.pas
(3104) Compiling lazloggerbase.pas
(3104) Compiling lazclasses.pas
(3104) Compiling lazfreetype.pas
(3104) Compiling tttypes.pas
(3104) Compiling tterror.pas
(3104) Compiling ttcalc.pas
(3104) Compiling ttmemory.pas
(3104) Compiling tttables.pas
(3104) Compiling ttcache.pas
(3104) Compiling ttfile.pas
(3104) Compiling ttcmap.pas
(3104) Compiling ttobjs.pas
(3104) Compiling ttload.pas
(3104) Compiling ttinterp.pas
(3104) Compiling ttgload.pas
(3104) Compiling ttraster.pas
(3104) Compiling ttprofile.pas
(3104) Compiling ttdebug.pas
(3104) Compiling easylazfreetype.pas
(3104) Compiling lazloggerdummy.pas
(3104) Compiling lazfreetypefontcollection.pas
(3104) Compiling lazconfigstorage.pas
(3104) Compiling utf8process.pp
(3104) Compiling laz2_xpath.pas
(3104) Compiling lazloggerprofiling.pas
(3104) Compiling lazfglhash.pas
(3104) Compiling lcsvutils.pas
(3104) Compiling lazcollections.pas
(3104) Compiling lazfreetypefpimagedrawer.pas
(3104) Compiling lookupstringlist.pas
(1008) 88292 lines compiled, 10.6 sec
Info: (lazarus) Execute Title="Compiler le paquet BGRABitmapPack4NoGUI 9.2.3"
Info: (lazarus) Working Directory="C:\Sources\bgrabitmap\bgrabitmap\"
Info: (lazarus) Executable="C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.exe"
Info: (lazarus) Param[0]="-B"
Info: (lazarus) Param[1]="-MObjFPC"
Info: (lazarus) Param[2]="-Scgi"
Info: (lazarus) Param[3]="-O3"
Info: (lazarus) Param[4]="-OoREGVAR"
Info: (lazarus) Param[5]="-l"
Info: (lazarus) Param[6]="-vewnhibq"
Info: (lazarus) Param[7]="-FuC:\lazarus\packager\units\i386-win32"
Info: (lazarus) Param[8]="-FuC:\lazarus\components\lazutils\lib\i386-win32"
Info: (lazarus) Param[9]="-FuC:\Sources\bgrabitmap\bgrabitmap\"
Info: (lazarus) Param[10]="-FUC:\Sources\bgrabitmap\bgrabitmap\lib4nogui\i386-win32\3.0.2\"
Info: (lazarus) Param[11]="-dBGRABITMAP_DONT_USE_LCL"
Info: (lazarus) Param[12]="bgrabitmappack4nogui.pas"
Hint: (11030) Start of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg
Hint: (11031) End of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 3.0.2 [2017/02/27] for i386
Copyright (c) 1993-2017 by Florian Klaempfl and others
(1002) Target OS: Win32 for i386
(3104) Compiling bgrabitmappack4nogui.pas
(3104) Compiling bgraanimatedgif.pas
(3104) Compiling bgragraphics.pas
(3104) Compiling bgrautf8.pas
(3104) Compiling bgrabitmap.pas
(3104) Compiling bgranoguibitmap.pas
(3104) Compiling bgrabitmaptypes.pas
(3104) Compiling bgrawritepng.pas
(3104) Compiling bgradefaultbitmap.pas
(3104) Compiling bgracanvas.pas
(3104) Compiling bgrapen.pas
(3104) Compiling bgratransform.pas
(3104) Compiling bgrablend.pas
(3104) Compiling bgrapath.pas
(3104) Compiling bgraresample.pas
(3104) Compiling bgrapolygon.pas
(3104) Compiling bgrafillinfo.pas
(3104) Compiling bgragradientscanner.pas
(3104) Compiling bgrapolygonaliased.pas
(3104) Compiling bgrasse.pas
(3104) Compiling bgracanvas2d.pas
(3104) Compiling bgraarrow.pas
(3104) Compiling bgrafilters.pas
(3104) Compiling bgrafiltertype.pas
(3104) Compiling bgrafilterblur.pas
(3104) Compiling bgrafilterscanner.pas
(3104) Compiling bgrareadbmp.pas
(3104) Compiling bgrareadjpeg.pas
(3104) Compiling bgradithering.pas
(3104) Compiling bgrapalette.pas
Hint: (5062) Found abstract method: DoCopyRect(<TFPCustomCanvas>;LongInt;LongInt;TFPCustomCanvas;const TRect);
Hint: (5062) Found abstract method: DoDraw(<TFPCustomCanvas>;LongInt;LongInt;const TFPCustomImage);
(3104) Compiling bgrafreetype.pas
(3104) Compiling bgracustomtextfx.pas
(3104) Compiling bgraphongtypes.pas
(3104) Compiling bgrareadbmpmiomap.pas
(3104) Compiling bgrareadgif.pas
(3104) Compiling bgrareadico.pas
(3104) Compiling bgrareadlzp.pas
(3104) Compiling bgralzpcommon.pas
(3104) Compiling bgracompressablebitmap.pas
(3104) Compiling bgrareadpng.pas
(3104) Compiling bgrareadpcx.pas
(3104) Compiling bgrareadpsd.pas
(3104) Compiling bgrareadtga.pas
(3104) Compiling bgrareadxpm.pas
(3104) Compiling bgrawritelzp.pas
(3104) Compiling bgragifformat.pas
(3104) Compiling bgracolorint.pas
(3104) Compiling bgracoordpool3d.pas
(3104) Compiling bgramatrix3d.pas
(3104) Compiling bgradnetdeserial.pas
(3104) Compiling bgragradients.pas
(3104) Compiling bgralayers.pas
(3104) Compiling bgraopenraster.pas
(3104) Compiling unzipperext.pas
(3104) Compiling bgrapaintnet.pas
(3104) Compiling bgrascene3d.pas
(3104) Compiling bgrascenetypes.pas
(3104) Compiling bgrarenderer3d.pas
(3104) Compiling bgraslicescaling.pas
(3104) Compiling bgrastreamlayers.pas
(3104) Compiling bgragrayscalemask.pas
(3104) Compiling bgrathumbnail.pas
(3104) Compiling bgraunits.pas
(3104) Compiling bgratypewriter.pas
(3104) Compiling bgrasvg.pas
(3104) Compiling bgrasvgshapes.pas
(3104) Compiling bgrasvgtype.pas
(3104) Compiling bgracolorquantization.pas
(3104) Compiling bgrawritebmpmiomap.pas
(3104) Compiling bgraspritegl.pas
(3104) Compiling bgraopengltype.pas
(3104) Compiling bgraopengl.pas
(3104) Compiling bgracanvasgl.pas
(3104) Compiling bgrafontgl.pas
(3104) Compiling bgraphoxo.pas
(1008) 121136 lines compiled, 28.1 sec
Hint: (lazarus) State file of BGRABitmapPack4NoGUI 9.2.3 is newer than state file of Projet : test
Info: (lazarus) Execute Title="Compilation du projet - Cible : test.exe "
Info: (lazarus) Working Directory="C:\Atelier\Pascal\lazarus\bgrabitmap\nogui-01-test\"
Info: (lazarus) Executable="C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.exe"
Info: (lazarus) Param[0]="-B"
Info: (lazarus) Param[1]="-MObjFPC"
Info: (lazarus) Param[2]="-Scghi"
Info: (lazarus) Param[3]="-O1"
Info: (lazarus) Param[4]="-g"
Info: (lazarus) Param[5]="-gl"
Info: (lazarus) Param[6]="-l"
Info: (lazarus) Param[7]="-vewnhibq"
Info: (lazarus) Param[8]="-FiC:\Atelier\Pascal\lazarus\bgrabitmap\nogui-01-test\lib\i386-win32"
Info: (lazarus) Param[9]="-FuC:\Sources\bgrabitmap\bgrabitmap\lib4nogui\i386-win32\3.0.2"
Info: (lazarus) Param[10]="-FuC:\lazarus\components\lazutils\lib\i386-win32"
Info: (lazarus) Param[11]="-FuC:\lazarus\packager\units\i386-win32"
Info: (lazarus) Param[12]="-FuC:\Atelier\Pascal\lazarus\bgrabitmap\nogui-01-test\"
Info: (lazarus) Param[13]="-FUC:\Atelier\Pascal\lazarus\bgrabitmap\nogui-01-test\lib\i386-win32\"
Info: (lazarus) Param[14]="test.lpr"
Hint: (11030) Start of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg
Hint: (11031) End of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 3.0.2 [2017/02/27] for i386
Copyright (c) 1993-2017 by Florian Klaempfl and others
(1002) Target OS: Win32 for i386
(3104) Compiling test.lpr
(9015) Linking test.exe
(1008) 38 lines compiled, 2.6 sec, 1009344 bytes code, 28020 bytes data

Je suppose que la solution doit se trouver quelque part là-dedans.

**Roland Chastain** · 14/04/2017, 20h43

Voilà, j'ai fini par y arriver.

extrafpc1.cfg

Code X :

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

1
2
3
4
5
6
7
8
9
10
-B
-MObjFPC
-Scghi
-O1
-g
-gl
-l
-vewnhibq
-FuC:\sources\lazutils\
-FUunits

extrafpc2.cfg

Code X :

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

1
2
3
4
5
6
7
8
9
10
11
-B
-MObjFPC
-Scgi
-O3
-OoREGVAR
-l
-vewnhibq
-Fuunits
-FuC:\Sources\bgrabitmap\bgrabitmap\
-FUunits
-dBGRABITMAP_DONT_USE_LCL

mybuild.cmd

Code Batch :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
@echo off
 
if exist units rd /s /q units
if not exist units md units
 
set fpc=C:\FPC\3.0.2\bin\i386-win32\fpc.exe
 
%fpc% @extrafpc1.cfg C:\Sources\lazutils\avglvltree.pas > mybuild.log
%fpc% @extrafpc1.cfg C:\Sources\lazutils\easylazfreetype.pas >> mybuild.log
%fpc% @extrafpc1.cfg C:\Sources\lazutils\lazfreetypefontcollection.pas >> mybuild.log
 
%fpc% @extrafpc2.cfg test.lpr >> mybuild.log
 
pause

Je vais pouvoir intégrer BGRABitmap dans PocketPascal.

Je trouve dommage que BGRABitmap soit dépendante de Lazarus. Ce serait bien de pouvoir utiliser cette bibliothèque dans un projet Delphi, par exemple.

**circular17** · 16/04/2017, 10h45

Bonjour Roland,

Excuse pour le temps de réponse. C'est une bonne idée de rendre BGRABitmap compilable sans LCL ou bien sous Delphi.

Est-ce que tes recherches t'ont permis d'identifier comment il faudrait configurer un paquet "BGRABitmap4console.lpk" pour qu'il fonctionne sans LCL ? Sinon, je pourrais trouver cela de mon coté.

Pour ce qui est d'une version Delphi, comme je n'ai pas Delphi, je ne peux pas expérimenter.

**Roland Chastain** · 16/04/2017, 11h43

Envoyé par circular17

Bonjour Roland,

Excuse pour le temps de réponse. C'est une bonne idée de rendre BGRABitmap compilable sans LCL ou bien sous Delphi.

Bonjour ! Il n'y a pas de mal. Content que l'idée t'intéresse.

Envoyé par circular17

Est-ce que tes recherches t'ont permis d'identifier comment il faudrait configurer un paquet "BGRABitmap4console.lpk" pour qu'il fonctionne sans LCL ?

Recherches est un grand mot. En fait je me suis contenté de compiler mon projet (qui utilise le paquet bgra4nogui) avec lazbuild afin de savoir quelles options lazbuild passe au compilateur. J'ai repris ces options (sans vraiment les comprendre je t'avoue) dans un fichier de commande qui me permet de compiler directement mon programme (je veux dire sans Lazarus et sans fichier *.lpi) à partir des sources de LazUtils et de BGRABitmap.

Donc il y a bien toujours une dépendance à la LCL, plus précisément à LazUtils, au moins pour la première compilation. Comment supprimer cette dépendance, ça je ne le sais pas.

Envoyé par circular17

Pour ce qui est d'une version Delphi, comme je n'ai pas Delphi, je ne peux pas expérimenter.

On peut avoir Delphi gratuitement mais sans les sources.

https://www.embarcadero.com/fr/produ...ional-download

En tout cas n'hésite à me solliciter ainsi que les autres utilisateurs du forum, ne serait-ce que pour faire des essais.

BGRABitmap sans Lazarus dans une application console sous Windows

Free Pascal

Discussions similaires

Partager

Partager