Compatibilité multi-platefomes de BitMaps : problème sous gtk2

Salut tout le monde :salut:

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:

---

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.

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:

---

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

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:

---

1 2 3 4 5

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

---

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

Citation:

---

Envoyé par Jipété

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 :lol: En faite l'image est déjà chargé au lancement de l'application et stocker en mémoire.

Citation:

---

Envoyé par Jipété

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

---

Citation:

---

Envoyé par tintinux

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

Yep !

Citation:

---

Envoyé par 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. (...)

---

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

Citation:

---

Envoyé par J_apprenti

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

---

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

Citation:

---

Envoyé par JiPété

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.

Salut :P

Citation:

---

Envoyé par Jipété

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

Citation:

---

Envoyé par tintinux

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

Citation:

---

Envoyé par J_apprenti

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

---

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 :
Pièce jointe 133988

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; ?

Citation:

---

Envoyé par Jipété

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

Citation:

---

Envoyé par Jipété

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 :calim2: seulement si je change la palette des couleurs de l'image avec Gimp en 255 couleurs :roll: tous les Widgets l'affichent très bien à part GTK2 :aie:

Citation:

---

Envoyé par Jipété

En effet, c'est une belle catastrophe !

---

Tout à fait d'accord :cry:

Citation:

---

Envoyé par J_apprenti

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

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

---

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

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

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

Yep !

bonsoir, Yves :coucou:

Citation:

---

Envoyé par 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...

---

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

Citation:

---

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 :mrgreen:...) 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 :mouarf:)

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

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

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 !

Salut les amis !
Désolé du retard.

Citation:

---

Envoyé par Jipété

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

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

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

ui design kit - dark

:yaisse2:

C'est donc un jpeg, à la base !

Citation:

---

Envoyé par tourlourou

C'est donc un jpeg, à la base !

---

:aie: le stupide que je suis :calim2:

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

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

Citation:

---

Envoyé par J_apprenti

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

---

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)
Pièce jointe 134239

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.