Manipulation laborieuse des pixels d'un bitmap vs les pixels de la form

Citation:

---

Envoyé par Paul TOTH

je pense que Jipété ne regarde pas les choses avec assez de recul:

---

C'est pas faux :mouarf:

Citation:

---

Envoyé par Paul TOTH

:fleche: TBitmap sous Lazarus et D7 ne sont pas identiques

---

Ah ben me suis fait avoir, alors : on m'avait "vendu" Lazarus comme un "Delphi-like", m'aurait-on menti ? :ptdr:

Citation:

---

Envoyé par Paul TOTH

1) BeginUpdate/EndUpdate n'existe pas sous Delphi

---

Attention, si un newbie passe par là, il ne va rien comprendre !
BeginUpdate/EndUpdate du bitmap n'existe pas sous Delphi, parce qu'il suffit de poser une Listview sur une fiche et en 3 secondes et demi avec la complétion, hop !, listview1.Items.BeginUpdate;

Citation:

---

Envoyé par Paul TOTH

l'ordre des lignes est inversé sous Delphi (il faudrait vérifier que TBitmap supporte les hauteurs négatives....ça peut résoudre le problème)

---

Il supporte :

Code:

---

1 2 3 4 5 6 7

SrcBmp := TBitmap.Create; try with SrcBmp do begin SrcBmp.PixelFormat:=pf32bit; SrcBmp.Width := IMAGE_WIDTH; SrcBmp.Height:= -IMAGE_HEIGHT; end;

---

:ccool:

Citation:

---

Envoyé par Paul TOTH

finalement quand on boucle sur chaque ligne, il est possible de redresser le bitmap

Code:

---

1 2 3 4 5

for Index := 0 to H - 1 do begin Move(Pixels[Index], Bitmap.ScanLine[{$IFDEF DELPHI}H - 1 -{$ENDIF}Index}]^, W * 4); // 4 pour un pf32bit, 3 pour un 24bit...avec un tableau de pixels adapté à cette taille end;

---

---

En fait, le {$IFDEF DELPHI} ici ne sert à rien car ça part en AV sous Linux, même avec les adaptations qui vont bien...

Pas besoin de s'embrouiller la tête avec des hauteurs négatives, de toute façon, le move étant très susceptible, le plus simple (et je viens de tester dans les 2 environnements) est encore de faire :

Code:

---

1 2 3 4 5 6 7 8

{$IFDEF DELPHI} for v := 0 to IMAGE_HEIGHT-1 do Move(Pixels[v], SrcBmp.ScanLine[v]^, IMAGE_WIDTH*SizeOf(TRGBQuad)); {$ELSE} SrcBmp.BeginUpdate; Move(Pixels^[0], SrcBmp.ScanLine[0]^, IMAGE_WIDTH*IMAGE_HEIGHT*SizeOf(TRGBQuad)); SrcBmp.EndUpdate(); {$ENDIF}

---

Bien sûr ça entre en conflit avec ce que tu as dit auparavant (les balayages de haut en bas ou l'inverse), mais là, ce sont mes yeux qui parlent, si je puis dire.
Eh haut Windows/D7, en bas Linux/Lazarus :
Pièce jointe 210749

Et ils voient bien que l'image générée dans FormCreate et affichée par FormPaint à gauche, et celle affichée à droite par le bouton qui construit son bitmap depuis les mêmes données du FormCreate ont les mêmes dessins et les mêmes couleurs aux mêmes endroits.

Le bout de code présenté ci-dessus est absolument identique (copier/coller) dans les deux environnements. Qu'en conclure ?

Citation:

---

Envoyé par Paul TOTH

2) ScanLine[0] est la ligne du HAUT sous Lazarus, mais c'est la ligne du BAS sous Delphi

---

ScanLine[0] est la ligne du haut sous Delphi.

Citation:

---

Envoyé par Andnotor

ScanLine[0] est la ligne du haut sous Delphi.

---

oups, au temps pour moi...mais c'est bien le bas du "DIB" comme le montre ce code
Pièce jointe 210772

je prend la ligne 1, et je rempli 2 lignes de pixels sauf 1 : 2 (lignes) * 4 (32bit) * 20 (largeur) - 4 (1 pixel 32bits)

et c'est bien la ligne 0 qui est partiellement remplie et non la ligne 2 comme on pourrait s'y attendre

du coup le DIB complet (et tête en bas) se trouve bien à l'adresse ScanLine[H-1] :)

C'est parler de haut et de bas qui prête à confusion ;)
C'est la ligne du haut de l'image qui se situe à la fin du bloc mémoire : H-1, H-2, ... , 1, 0

Citation:

---

Envoyé par Andnotor

C'est parler de haut et de bas qui prête à confusion ;)
C'est la ligne du haut de l'image qui se situe à la fin du bloc mémoire : H-1, H-2, ... , 1, 0

---

en fait ça dépend de la valeur donnée à Height (Positive ou Négative)
j'ai juste augmenté les valeurs pour y voir quelque chose ^^

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var aBMP: TBitmap; begin aBMP := TBitmap.Create; aBMP.PixelFormat := pf32bit; aBMP.Width := 200; aBMP.Height:= 200; // < ---- ici passer de -200 à 200 pour voir l'effet aBMP.Canvas.Brush.Color := clWhite; aBMP.Canvas.FillRect(aBMP.Canvas.ClipRect); FillChar(aBMP.scanLine[7]^, 8*4*200-400,0); Image1.Picture.Assign(aBMP); aBmp.Free; end;

---

'lut,

alors chez moi, brut de décoffrage de copier/coller sans réfléchir, aBMP.Height:= 200; // < ---- ici passer de -200 à 200 pour voir l'effet sans toucher à rien me donne une magnifique image vide (et s'il y en avait une avant, elle est effacée), j'ai même changé la couleur pour essayer de voir s'il y avait quelque chose mais circulez, y a rien à voir !
Et si je mets "-200" c'est un AV de plus à ma collection...

Bon app', à +,

alors la je ne comprend pas .. t'es bien sous D7 ?

j'ai compilé et testé sous D7 et D2009 et ça fonctionne !!!
as tu bien copié tout le code ou juste la ligne cité ?
si tu as juste repris la ligne avec valeur négative dans ton code tu peux avoir une va en fonction de l'utilisation de ScanLine[X]

Parce que pour copier tout les pixels en une fois (par exemple) c'est toujours ScanLine[H-1] peut importe si Height est + ou -

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var y: Integer; SrcBmp: TBitmap; begin SrcBmp := TBitmap.Create; try with SrcBmp do begin SrcBmp.PixelFormat:=pf32bit; SrcBmp.Width := IMAGE_WIDTH; SrcBmp.Height := -IMAGE_HEIGHT; // + ou - end; MoveMemory(SrcBmp.ScanLine[IMAGE_HEIGHT-1], @aPixels, IMAGE_WIDTH*IMAGE_HEIGHT*4); Image1.Picture.Assign(SrcBmp); finally SrcBmp.Free; end;     end;

---

l'image s'affichera tête en haut ou en bas
mais les pixels n'ont pas étés inversés .. si on enregistre les images ainsi obtenues (avec + et -) on se rend bien compte qu'elles sont identiques

Citation:

---

Envoyé par Cirec

alors la je ne comprend pas .. t'es bien sous D7 ?

---

Ah, on s'est fait avoir tous les deux : moi d'avoir oublié de le dire et toi d'avoir oublié de le préciser, et pourtant c'est pas faute d'en avoir parlé, lol !

Je suis sous D7 à 5 % du temps, et à 95 % sous Lazarus sous Linux !

Alors oui, ça change des choses, des fois, mais je n'ai pas encore trouvé avec certitude quoi.

J'ai fait comme tu suggérais, j'ai remplacé le IMAGE_HEIGHT de Height (= image ok) par -IMAGE_HEIGHT et paf !, AV...

et du coup tu utilises ce code complet ?
tel quel ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var aBMP: TBitmap; begin aBMP := TBitmap.Create; aBMP.PixelFormat := pf32bit; aBMP.Width := 200; aBMP.Height:= 200; // < ---- ici passer de -200 à 200 pour voir l'effet aBMP.Canvas.Brush.Color := clWhite; aBMP.Canvas.FillRect(aBMP.Canvas.ClipRect); FillChar(aBMP.scanLine[7]^, 8*4*200-400,0); Image1.Picture.Assign(aBMP); aBmp.Free; end;

---

puis tu passes en -200
et ça plante sous D7 et/ou sous Lazarus ?

parce que si tu es en -200 et tu essayes de remplir plus d'une ligne de pixels en partant de
ScanLine[0]
tu auras effectivement une VA !!
d’où ma demande d'info complémentaire

Citation:

---

Envoyé par Cirec

et ça plante sous D7 et/ou sous Lazarus ?

---

Tout plante sous Lazarus (et D7 est éteint et je n'en ai plus besoin) sauf ce bout de code avec ces valeurs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

with aBMP do begin PixelFormat := pf32bit; Width := IMAGE_WIDTH; Height:= IMAGE_HEIGHT; // < ---- ici passer de -200 à 200 pour voir l'effet end;   aBmp.BeginUpdate; Move(Pixels^[0], aBmp.ScanLine[0]^, IMAGE_WIDTH*IMAGE_HEIGHT*4); //=1228800 FillChar(aBMP.scanLine[0]^, 8*4*200*100, '0'); // remplit la mémoire démarrant à aBMP.scanLine[0]^ avec 8*4*200*100 bytes du char '0' // en l'espèce, avec ces nombres (=640000), remplit plus de la moitié en gris en partant du haut du dessin aBmp.EndUpdate();

---

Si je mets un nombre négatif, comme dit précédemment, Access Violation :aie:

Attention, à cause du Move sous Lazarus, je perds la notion de balayage vertical : tout est copié en une passe entre BeginUpdate et EndUpdate.
Dans MSDN, on peut lire, à propos du 3^e paramètre de Move,

Citation:

---

MoveMemory
Be aware that the last parameter, Length, is the number of bytes to copy into Destination, not the size of the Destination.

---

c'est bien ce que je pensai

tu fais l'erreur que j'ai cité dans mon précédent post:
FillChar(aBMP.scanLine[0]^, 8*4*200*100, '0'); // <--- FAUX == VA
doit être:
FillChar(aBMP.scanLine[7]^, 8*4*200*100, '0');

l'exemple était prévu pour être utilisé tel quel, pas juste modifier le height sans tenir compte de la suite ;)

ceci dit ... vu que t'as fait un mix des deux codes je suis pas certain que cette ligne passe:
Move(Pixels^[0], aBmp.ScanLine[0]^, IMAGE_WIDTH*IMAGE_HEIGHT*4); //=1228800
peut être comme ceci:
Move(Pixels^[0], aBmp.ScanLine[IMAGE_HEIGHT-1]^, IMAGE_WIDTH*IMAGE_HEIGHT*4); //=1228800

je ne sais pas ... j'ai laissé tombé Lazarus, il produisait des applications trop volumineuses, à mon gout, comparé à Delphi . :aie:

Bonjour,

Citation:

---

Envoyé par Cirec

c'est bien ce que je pensais

tu fais l'erreur que j'ai citée dans mon précédent post:
FillChar(aBMP.scanLine[0]^, 8*4*200*100, '0'); // <--- FAUX == VA
doit être:
FillChar(aBMP.scanLine[7]^, 8*4*200*100, '0');

l'exemple était prévu pour être utilisé tel quel, pas juste modifier le height sans tenir compte de la suite ;)

---

Je réécris les conclusions auxquelles je suis arrivé (hier matin je crois) :

Code:

---

1 2 3 4 5 6 7 8

{$IFDEF DELPHI} for v := 0 to IMAGE_HEIGHT-1 do Move(Pixels[v], SrcBmp.ScanLine[v]^, IMAGE_WIDTH*SizeOf(TRGBQuad)); {$ELSE} SrcBmp.BeginUpdate; Move(Pixels^[0], SrcBmp.ScanLine[0]^, IMAGE_WIDTH*IMAGE_HEIGHT*SizeOf(TRGBQuad)); SrcBmp.EndUpdate(); {$ENDIF}

---

Vu, la boucle pour Delphi totalement absente pour Lazarus où on démarre à 0 et tout (enfin la quantité représentée par IMAGE_WIDTH*IMAGE_HEIGHT*SizeOf(TRGBQuad)) est fait en une passe ? C'est à s'y casser le nez, et c'est tout l'intérêt de cette discussion.

EDIT : j'ai trouvé pourquoi la boucle Delphi ne fonctionnait pas sous Lazarus : il manquait le chapeau ! :aie: :aie: :aie:
Les dangers du copier/coller et les silences du compilo...
Donc ça

Code:

---

1 2	for v := 0 to IMAGE_HEIGHT-1 do Move(Pixels^[v], SrcBmp.ScanLine[v]^, IMAGE_WIDTH*SizeOf(TRGBQuad));

---

fonctionne :ccool:

Citation:

---

Envoyé par Cirec

je ne sais pas ... j'ai laissé tombé Lazarus, il produisait des applications trop volumineuses, à mon gout, comparé à Delphi . :aie:

---

Ah oui, le "Helloworld" de 22 Mo :aie:

Citation:

---

Envoyé par Cirec

en fait ça dépend de la valeur donnée à Height (Positive ou Négative)

---

Ce n'est qu'une question de représentation. Scanline[0] reste la ligne du haut de l'image qu'on l'affiche normalement ou tête en bas.

A noter :
Ca ne fonctionne pas en pf24bit. Il y a un CreateCompatibleBitmap par la au milieu qui n'aime guère les valeurs négatives.
Le bitmap sauvegardé a toujours la même orientation.

si je puis me permettre de résumer...c'est bel et bien pour cela que dans mon article je propose de passer par un tableau de couleurs et la fonction SetDIBitsToDevice (pour Windows uniquement du coup) car là on ne se préoccupe plus des structures internes de TBitmap, on se contente d'afficher les pixels qu'on a défini avec les paramètres qui vont bien pour que Windows les accepte.

il faudrait voir s'il est possible de faire la même chose sous Linux, mais le problème de Linux c'est qu'il y a plusieurs API Graphique (QT, Gnome, KDE...)

à l'époque de Kylix j'avais fait un test directement au niveau XWindow mais je n'étais jamais arrivé au bout
http://tothpaul.free.fr/sources.php?kylix.md2t