Discussion :

[J_apprenti]

Salut tout le monde

Sans utiliser d'autres librairies telles que aggpas ou bgrabitmap ou gr32... quelle est la bonne manière multi-plateforme pour charger une image du disque et l'afficher sur un TCanvas ?! Sur Windows il n'y a pas de problème, par contre sur un système *nux gtk2 l'image s'affiche, mais toute grise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormPaint(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile('test.bmp');
    Canvas.Draw(0, 0, bmp);
  finally
    bmp.Free;
  end;
end;

Quelqu'un a-t-il déjà rencontré ce problème ?

Merci d'avance.

[Jipété]

Salut,

et bonne année bonne santé tout ce genre de choses (oui, ça se dit en cette saison...)

Et donc ton code fonctionne parfaitement bien sous Debian Wheezy 7.1 / 32bits dans l'IDE Lazarus 1.0.10. et pas du tout hors de l'IDE : fenêtre toute grise et par dessus une boîte de message d'erreur (je suppose) toute grise aussi.

Bon, y a un piège : fonctionner dans l'IDE ou hors de celui-ci = problème de chemin, l'exe ne trouve pas le fichier (ne me demande pas pourquoi).

La solution qui fonctionne dans les deux cas :

Code :

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

bmp.LoadFromFile(ExtractFilePath(Application.ExeName) + 'test.bmp');

Maintenant, perso, je trouve bizarre de mettre ce genre de chargement d'image dans FormPaint, ça doit être appelé un tas de fois cette procédure...

[tintinux]

Oui ça pourrait bien être un problème de chemin, mais attention "La solution qui fonctionne dans les deux cas" n'est pas valide au sens de la politique système (debian policy) sous Debian et d'autres Linux. Si le programme doit être un jour diffusé, cela peut être gênant.

Les fichiers exécutables doivent être dans /usr/bin mais on ne doit pas y mettre des fichiers de données genre bmp.

La seule solution que j'ai trouvée est d'assigner le dossier de manière différente selon les systèmes avec tests sur une directive de compilation.

Par exemple :

Code :

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

1
2
3
4
5
{$ifdef DEBIAN}
  DIR_DATA := '/usr/share/'+Application.Title;
{$else}
 DIR_DATA := ExtractFilePath(Application.ExeName);
{$endif}

[J_apprenti]

Désolé les amis, Bonne année à tout le monde

Maintenant, perso, je trouve bizarre de mettre ce genre de chargement d'image dans FormPaint, ça doit être appelé un tas de fois cette procédure...

Tout à fait d'accord avec toi, ce n'est qu'un exemple écrit comme ça à la volée En faite l'image est déjà chargé au lancement de l'application et stocker en mémoire.

Bon, y a un piège : fonctionner dans l'IDE ou hors de celui-ci = problème de chemin, l'exe ne trouve pas le fichier (ne me demande pas pourquoi).

Oui ça pourrait bien être un problème de chemin

Non le problème, n'est pas un problème de chemin, l’image et visible sur le canevas, seulement qu'elle est toute grise et avec une mauvaise qualité sous GTK2 .

je viens de tester le même code sous diverse distributions, le problème se pose seulement avec GTK2 et c'est à cause du TBitmap natif du Widget je pense
avec Win32, Customdrawn ou QT y'as pas de problème... peut-être que je dois passer par un TLazIntfImage !?!!

Si quelqu'un peut me faire montrer comment charger une image depuis le disque et l'afficher sur un canevas quelconque à l'aide de fpimage et IntfGraphics si c'est possible

[Jipété]

Yep !

Oui ça pourrait bien être un problème de chemin, mais attention "La solution qui fonctionne dans les deux cas" n'est pas valide au sens de la politique système (debian policy) sous Debian et d'autres Linux. (...)

Ça me gonfle ces trucs !
Et si j'ai un .conf faut le mettre dans /etc ?
Sous Wxx/D7, j'ai toujours mis l'ini avec l'exe, et hop !
Surtout pour des bricoles, des machins de tests, c'est de la prod perso.

(...) Non le problème, n'est pas un problème de chemin, l’image et visible sur le canevas, seulement qu'elle est toute grise et avec une mauvaise qualité sous GTK2 .

je viens de tester le même code sous diverse distributions, le problème se pose seulement avec GTK2 et c'est à cause du TBitmap natif du Widget je pense
avec Win32, Customdrawn ou QT y'as pas de problème... peut-être que je dois passer par un TLazIntfImage !?!!

Et pourquoi chez moi c'est tout bon ? Résultat de la commande dpkg -l gtk* :

Code :

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

1
2
3
4
5
6
7
8
9
Souhait=inconnU/Installé/suppRimé/Purgé/H=à garder
| État=Non/Installé/fichier-Config/dépaqUeté/échec-conFig/H=semi-installé/W=attend-traitement-déclenchements
|/ Err?=(aucune)/besoin Réinstallation (État,Err: majuscule=mauvais)
||/ Nom                                 Version                Architecture           Description
+++-===================================-======================-======================-===========================================================================
ii  gtk2-engines:i386                   1:2.20.2-2             i386                   theme engines for GTK+ 2.x
un  gtk2.0-binver-2.10.0                <aucun>                                       (aucune description n''est disponible)
un  gtk3-binver-3.0.0                   <aucun>                                       (aucune description n''est disponible)
un  gtkam

gtk2, donc ?

Je n'ai utilisé aucun composant (ou alors un TImage de base, pour voir si ça fonctionnait aussi).

[tintinux]

Et si j'ai un .conf faut le mettre dans /etc ?

Désolé, il faut utiliser Utf8ToSys(GetAppConfigFile(False|True) !
Oui, d'accord, c'est gonflant, mais bien sûr c'est seulement nécessaire si tu veux diffuser.

Et pour en revenir au sujet, il me semble, de mémoire, qu'il faut mieux passer par une TPaintBox, et sûrement pas la charger durant le OnPaint.

[J_apprenti]

Salut

Et pourquoi chez moi c'est tout bon ? Résultat de la commande [codeinline]dpkg -l gtk*
gtk2, donc ?
Je n'ai utilisé aucun composant (ou alors un TImage de base, pour voir si ça fonctionnait aussi).

Oui mais pas toutes les images s'affichent correctement !!?? essaye par exemple l'image jointe et dis moi à quoi ressemble le résultat chez toi
En faite je suis en train d'ecrire une bibliothèque de composant skinable pour les composants communs de lazarus, que j'ai l'intention de partager un jour mais tous ça quand le projet sera au moin a moitié complet,
le thème et enregistrer dans un fichier xml et peut-être soit sous forme de couleurs ou des chemins "relatif" vers des images, j'utilise ForcePathDelims pour le multi-platform , le problème c'est que je ne veux pas forcer l'utilisateur a utiliser une forme d'image précise les images peuvent être bmp, png ou jpeg et c'est a la bibliothèque de gérer tous ça.

Et pour en revenir au sujet, il me semble, de mémoire, qu'il faut mieux passer par une TPaintBox, et sûrement pas la charger durant le OnPaint.

Désolé mais TPaintBox ne marche pas là

[Jipété]

(...) essaye par exemple l'image jointe et dis moi à quoi ressemble le résultat chez toi
(...)

En effet, c'est une belle catastrophe !
Je n'ai que les 3 premiers boutons, et pas du tout avec les couleurs telles que je peux les voir avec une visionneuse ou The GIMP, où là c'est parfait.

Elle sort d'où, cette image ? En zoomant, on se rend compte que c'est plein de lignes verticales parallèles, on dirait un problème de Scanline :


en haut ton image dans une visionneuse ;
au milieu ton image avec ton code ;
en bas zoom 400 % sur ligne précédente.

Peut-être qu'il faut positionner plein de paramètres (lesquels ? J'ai essayé PixelFormat := pf16bit, pf24bit et pf32bit avec toujours le même résultat) après bmp := TBitmap.Create; ?

[J_apprenti]

En effet, c'est une belle catastrophe !
Je n'ai que les 3 premiers boutons, et pas du tout avec les couleurs telles que je peux les voir avec une visionneuse ou The GIMP, où là c'est parfait.

ça sera un grand défis d'afficher correctement cette image sous gtk2

Peut-être qu'il faut positionner plein de paramètres (lesquels ? J'ai essayé PixelFormat := pf16bit, pf24bit et pf32bit avec toujours le même résultat) après bmp := TBitmap.Create; ?

j'ai tout essayé mais rien qui ne marche seulement si je change la palette des couleurs de l'image avec Gimp en 255 couleurs tous les Widgets l'affichent très bien à part GTK2

En effet, c'est une belle catastrophe !

Tout à fait d'accord

[Jipété]

ça sera un grand défis d'afficher correctement cette image sous gtk2

j'ai tout essayé mais rien qui ne marche seulement si je change la palette des couleurs de l'image avec Gimp en 255 couleurs tous les Widgets l'affichent très bien à part GTK2

Chez moi Gimp = OK.
On en saura peut-être un peu plus si tu nous dis d'où qu'elle sort, cette image...

[tourlourou]

Je viens de lire un vieux rapport de bug Lazarus concernant TCustomBitmap.setPixelFormat.

[tourlourou]

Je reproduis le problème sous Ubuntu/CodeTyphon/gtk2

Je n'ai rien trouvé d'extraordinaire dans le header du bmp et j'ai arrêté (pour l'instant) mes essais...

[Jipété]

Yep !

bonsoir, Yves

Je reproduis le problème sous Ubuntu/CodeTyphon/gtk2

Je n'ai rien trouvé d'extraordinaire dans le header du bmp et j'ai arrêté (pour l'instant) mes essais...

Ah, tu m'as mis la puce à l'oreille, et j'ai examiné l'objet avec mon ami ExifTool, qui m'a affiché (entre autres) :

ImageLength : 41292
NumColors : Use BitDepth
NumImportantColors : All
ImageSize : 333x31

Partant de là, j'ai sorti ma calculette, et 333 x 31 = 10323.

Et 41292 / 10323 = ... (suspense ...) 4 ! Confirmé par ShowMessage(IntToStr(bmp.RawImage.Description.BitsPerPixel)); // = 32

On aurait pu s'attendre à 3 pour un .bmp (qui ne gère pas la transparence, il me semble).

Dans ma vm XP sp2, l'Afficheur de télécopies et images l'affiche correctement, ainsi que, plus surprenant, le basique Paint, qui est capable de l'enregistrer à l'identique. (mais si je lui fais créer une image de 333 x 31, il me génère un fichier de 31 ko : on repasse à 3 bytes par pixel.)
Et pour confirmer, mon vieux (doit dater de w95...) PaintShop Pro v4.14 me balance un message d'erreur à la tentative d'ouverture, comme quoi le fichier n'est pas un bmp valide ! (mais il ouvre bien celui de 31 ko, et heureusement )

Tu sais quoi ? Ce problème, on dirait l'inverse de celui où on a beaucoup causé récemment, avec Paul et Roland, tu sais, cette affaire de Scanline, TRGBQuand et autre TTripleArray

J'ai déjà demandé deux fois d'où sortait ce fichier, attendons patiemment la réponse...

[tourlourou]

Yo !

L'espace de couleur est 'sRGB' et les pixels sont sur 4 canaux, BGRA avec tous les Alpha tous à $FF ; les masques des 4 canaux sont indiqués, le format est BI_BITFIELD, 32 BitsPerPixel ; je n'ai rien vu d'exotique, sans bien connaître les nombreuses subtilités d'un standard qui a tant de variantes !

[J_apprenti]

Salut les amis !
Désolé du retard.

J'ai déjà demandé deux fois d'où sortait ce fichier, attendons patiemment la réponse...

L'image je l'ai récupéré depuis deviantart et je n'arrive pas encors a retrouver la source donnez moi un peut de temps

Merci les amis je suis en train d'apprendre et découvrir de nouvelles choses en vous lisant

[J_apprenti]

Hop!! retrouvé l'origine de l'image

ui design kit - dark

[tourlourou]

C'est donc un jpeg, à la base !

[J_apprenti]

C'est donc un jpeg, à la base !

le stupide que je suis

Je me suis rendu compte que j'ai dû retailler l'image avec GIMP et qu'au moment ou je l'ai exportée comme bmp la case "Do not write color space information" était cochée

Désolé les amis de vous avoir fait perdre votre temps !!!!

Une autre question pourquoi les autres Widgets peuvent l'afficher quand même customdrawn par exemple!!

Désolé encore!!

[Jipété]

(...) au moment où je l'ai exportée comme bmp la case "Do not write color space information" était cochée (...)

Si la cache était cochée l'exportation n'aurait pas écrit d'informations de couleurs ; un truc m'échappe, là, alors j'ai refait la manip : téléchargement, ouverture avec GIMP, retaillage et export avec ces options (qui sont arrivées par défaut et que je n'ai pas changées)


L'image sur mon disque ne fait plus que 31 ko, et le programme de test l'affiche parfaitement, confirmé par le ShowMessage à 24 !

Pour ton autre question, je passe complètement.