1. #1
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 976
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 976
    Points : 10 606
    Points
    10 606
    Billets dans le blog
    4

    Par défaut BGRABitmap sans Lazarus dans une application console sous Windows

    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 ?

  2. #2
    Membre expert
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mai 2002
    Messages
    2 419
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : mai 2002
    Messages : 2 419
    Points : 3 798
    Points
    3 798

    Par défaut

    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);
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  3. #3
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 976
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 976
    Points : 10 606
    Points
    10 606
    Billets dans le blog
    4

    Par défaut

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

  4. #4
    Membre expert
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mai 2002
    Messages
    2 419
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : mai 2002
    Messages : 2 419
    Points : 3 798
    Points
    3 798

    Par défaut

    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';
     
       ...
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  5. #5
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 976
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 976
    Points : 10 606
    Points
    10 606
    Billets dans le blog
    4

    Par défaut

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

  6. #6
    Membre expert
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mai 2002
    Messages
    2 419
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : mai 2002
    Messages : 2 419
    Points : 3 798
    Points
    3 798

    Par défaut

    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;
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  7. #7
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 976
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 976
    Points : 10 606
    Points
    10 606
    Billets dans le blog
    4

    Par défaut

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

  8. #8
    Membre expert
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mai 2002
    Messages
    2 419
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : mai 2002
    Messages : 2 419
    Points : 3 798
    Points
    3 798

    Par défaut

    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;
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  9. #9
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 976
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 976
    Points : 10 606
    Points
    10 606
    Billets dans le blog
    4

    Par défaut

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

  10. #10
    Membre expert
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mai 2002
    Messages
    2 419
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : mai 2002
    Messages : 2 419
    Points : 3 798
    Points
    3 798

    Par défaut

    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
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  11. #11
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 976
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 976
    Points : 10 606
    Points
    10 606
    Billets dans le blog
    4

    Par défaut

    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.

  12. #12
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 976
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 976
    Points : 10 606
    Points
    10 606
    Billets dans le blog
    4

    Par défaut

    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.

  13. #13
    Membre confirmé

    Profil pro
    Inscrit en
    juillet 2009
    Messages
    103
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2009
    Messages : 103
    Points : 499
    Points
    499

    Par défaut

    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.
    Par-delà nos conceptions du bien et du mal se trouve une prairie. Je te rencontrerai là-bas.

  14. #14
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 976
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 976
    Points : 10 606
    Points
    10 606
    Billets dans le blog
    4

    Par défaut

    Citation Envoyé par circular17 Voir le message
    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.

    Citation Envoyé par circular17 Voir le message
    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.

    Citation Envoyé par circular17 Voir le message
    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.

Discussions similaires

  1. Réponses: 2
    Dernier message: 18/03/2007, 15h38
  2. ShellExecute dans une application console?
    Par balu dans le forum Delphi
    Réponses: 5
    Dernier message: 24/06/2006, 21h26
  3. [C#]Marquer une pause dans une application Console
    Par KibitO dans le forum Windows Forms
    Réponses: 2
    Dernier message: 14/06/2006, 16h28
  4. Les caractères dans une application console
    Par maximedrouet dans le forum Langage
    Réponses: 2
    Dernier message: 26/05/2005, 16h44
  5. Utiliser un timer dans une application console
    Par chavers dans le forum Langage
    Réponses: 8
    Dernier message: 25/05/2005, 14h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo