Comportement du TImage.Picture.Bitmap différent selon son mode de chargement

Bonjour,

tout est dans le titre, voici cependant quelques précisions :

Soit un TImage posé sur un TPanel lui-même posé sur une fiche.

Soit la propriété Picture de ce TImage remplie grâce à l'inspecteur d'objets (Picture... Charger, et choisir un fichier, tout le monde connaît).

Soit donc au runtime l'image affichée correctement et sur laquelle je vais effectuer des calculs (sur les pixels, très exactement), en cliquant sur un bouton dont la proc OnClick contient le code des calculs et tout se passe bien (j'utilise Scanline et donc

Code:

---

1 2 3 4 5 6 7 8

for h := 0 to Height4Moyenne-1 do begin p := pRGBTriple(bmptmp.RawImage.GetLineStart(h)); for w := 0 to Width4Moyenne-1 do begin Rtot := Rtot + p[w].rgbtRed; Gtot := Gtot + p[w].rgbtGreen; Btot := Btot + p[w].rgbtBlue; end; end;

---

bmptmp a été préalablement rempli avec bmptmp.Assign(Image1.Picture.Bitmap);)
Tout est parfait.

Soit maintenant un système de copie d'une partie de l'écran, sélectionnée à la souris (une sorte de ScreenShot, quoi), qui va générer un TBitmap qui va être assigné au TImage, très exactement avec

Code:

---

1 2 3

Result:= StretchBlt(dst.Canvas.Handle, 0, 0, dst.Width, dst.Height, src.Canvas.Handle, 0, 0, src.Width, src.Height, SRCCOPY);

---

dst correspond à Image1.Picture.Bitmap et effectivement, le TImage dans son TPanel m'affiche bien la zone que j'ai sélectionnée.

Je clique alors sur le bouton des calculs et là, patatras, tous les pixels remontés ont une valeur à 0 :aie: :aie: :aie:

Une idée pour corriger cette engeance ?
Inutile de vous préciser que j'ai passé un temps dément sur http://wiki.freepascal.org/Developing_with_Graphics/fr sans aucune étincelle lumineuse...

Un tout dernier mot : au début de la proc de calcul je récupère Image1.Picture.Bitmap.Width et .Height qui sont parfaitement valides (sinon je ne serais pas là à pleurer... :cry:).

Salut JP.

Test fait sous Windows :
StretchBlt avec 2 TBitmap 24 bits (dst et src).
Envoi de dst à ta procédure de calcul : résultat : 0 0 0
Pourtant l'affichage de dst est correct.

Si j'assigne dst à un TImage vierge : image1.picture.bitmap.assign(dst) --> l'image s'affiche bien mais le calcul ne marche pas.

Si je copie sur le canvas du TImage, c'est OK.

Code:

---

1 2	image1.canvas.draw(0,0,dst); calcul(image1.picture.bitmap);

---

Si je me rappelle bien, je n'avais aucun problème de ce genre sous Delphi.

Remarque : ta procédure de calcul exige un bitmap en 24bits (utilisation de pRGBTriple).

Amicalement
Thierry

Bonsoir Thierry,

Grand merci pour ta réponse.

Citation:

---

Envoyé par ThWilliam

Si je copie sur le canvas du TImage, c'est OK.

Code:

---

1 2	image1.canvas.draw(0,0,dst); calcul(image1.picture.bitmap);

---

---

Je pensais bien à un truc tordu comme ça, mais je ne voyais pas trop comment le mettre en œuvre puisque dans un cas (TImage chargé depuis l'EDI) ça fonctionne : comment dépanner un truc qui fonctionne ?

Enfin, je m'en suis à moitié sorti en rajoutant un Image1.Canvas.Draw(0,0,Bmp4Selection); après l'appel au StretchBlt, c'est mieux mais c'est pas encore ça :
à gauche l'image chargée dans l'EDI, la moyenne est OK, au milieu capture du fond d'écran Linux et à droite capture d'un bout d'une form verte :
Pièce jointe 246590

Citation:

---

Envoyé par ThWilliam

Remarque : ta procédure de calcul exige un bitmap en 24bits (utilisation de pRGBTriple).

---

Et si je passe à l'utilisation du pRGBQuad je ne mets pas de copie d'écran car c'est juste l'inverse de la précédente : la moyenne depuis le fichier chargé est en vrac, les moyennes depuis copies d'écran sont OK.
:koi:
Ça pue le problème 24/32 bits, étant entendu que rien n'est configurable dans l'EDI au niveau du TImage. Donc je dois travailler en pf24bit puisque c'est bon comme ça depuis l'EDI.
Maintenant, pourquoi ça se fout en vrac avec les copies d'écran alors que tous mes bitmaps sont en 24 bits, c'est la bonne question.
Pas encore eu le temps de poster ça, mais j'ai découvert il y a un ou deux mois que sans rien faire de particulier (une simple recopie), le PixelFormat changeait tout seul de 32 à 24 bits, alors bon...
Là je l'ai vérifié et je suis toujours et partout à pf24bit.

Citation:

---

Envoyé par ThWilliam

Si je me rappelle bien, je n'avais aucun problème de ce genre sous Delphi.

---

Ben oui mais là on est sous Lazarus, donc c'est l'enfer, et le TImage c'est l'enfer de Lazarus...

Et encore, je n'ai pas encore testé sous Windows...

Je ne sais plus quoi faire pour avancer, et bonjour le temps perdu...

EDIT : dernier test fait à l'instant, et qui résume bien le problème -- lisez les commentaires :

Code:

---

1 2 3 4 5 6 7 8 9

with bmptmp do begin PixelFormat := pf24bit; SetSize(Width4Moyenne, Height4Moyenne); //Assign(Image1.Picture.Graphic); // ok avec image chargée dans l'edi // dessus ou dessous c'est pareil //Assign(Image1.Picture.Bitmap); // ok avec image chargée dans l'edi Canvas.Draw(0,0,Image1.Picture.Bitmap); // cata avec image chargée dans l'edi end; // suite vers récup des valeurs des pixels et calculs

---

Et quand c'est la cata avec l'image de l'edi c'est OK avec les copies d'écran, et inversement :mur: :mur: :mur:

Bonjour à tous,

Citation:

---

Envoyé par Jipété

Et quand c'est la cata avec l'image de l'edi c'est OK avec les copies d'écran, et inversement :mur: :mur: :mur:

---

Me suis sorti de cet enfer !

La nuit porte conseil, dit-on, en l'espèce c'est plutôt les infobulles de complétion de code ;)

Après la création du TBitmap temporaire dans la proc de calcul (dont on pourrait se passer si les choses étaient bien faites...), j'ai simplement rajouté ça, après avoir bien vérifié que je suis partout en pf24bit et que c'est bien le pRGBTriple que je vais utiliser pour le balayage du bitmap avec Scanline :

Code:

---

1 2 3 4 5

// au-dessus, création des trucs et des machins divers (et d'été, :mouarf:) Image1.Picture.Graphic.SaveToStream(TS); // source des images à moyenner TS.Position := 0; bmp4calculs.LoadFromStream(TS, TS.Size); // ci-dessous les calculs

---

Et valà :ccool:

Bonne journée,