Tableau de bytes et canvas d'un bitmap

Version imprimable

02/12/2010, 14h34
colorid

Tableau de bytes et canvas d'un bitmap

Bonjour,

Dans un fichier bitmap je suppose qu'il existe un tableau de bytes après l'entête du fichier.(sans doute le canvas)
Pour une question de rapidité peut-on le récupérer dans un tableau de bytes ou de Tcolor sans être obligé de de passer par canvas.pixels[x,y] ?
Si Oui comment ?
Un exemple de code serait bienvenu

Merci à tous
02/12/2010, 14h48
Paul TOTH

oui, avec ScanLine
02/12/2010, 15h38
colorid

Je connais ScanLine

Ma question est sans doute mal posée :
Exemple : je crée le tableau "pixtab" = array of array of TColor aux dimensions d'un bitmap. Existe-t'il un autre moyen (plus rapide) que ScanLine ou Pixels pour copier l'image du bitmap dans le tableau Pixtab ? par exemple avec un pointeur ? Le canvas possède t'il un pointeur sur du tableau de Tcolor que l'on explore avec pixels ?
02/12/2010, 17h15
Andnotor

Scanline renvoi le pointeur sur le tableau. Le premier élément se trouve à ScanLine[Bitmap.Height -1] ;)

La seule différence est que ce tableau représente des valeurs sur 1,2 ou 4 bytes en fonction du PixelFormat et non des TColor (type générique sur 4 bytes).
02/12/2010, 17h30
Caribensila

Salut,

Explorer un fichier Bitmap c'est ouvrir la boîte de Pandore tant il existe de sortes différentes de Bitmap.

Pour en avoir une idée.

La méthode la plus rapide est Scanline comme le suggérait Paul Toth (Scanline est un pointeur !). Reste à adapter cette méthode au format du Bitmap. Le plus aisé est sans doute le pf32bit dont l'alignement correspond à la structure de la mémoire.
02/12/2010, 17h55
Paul TOTH

Citation:

Envoyé par colorid

Ma question est sans doute mal posée :
Exemple : je crée le tableau "pixtab" = array of array of TColor aux dimensions d'un bitmap. Existe-t'il un autre moyen (plus rapide) que ScanLine ou Pixels pour copier l'image du bitmap dans le tableau Pixtab ? par exemple avec un pointeur ? Le canvas possède t'il un pointeur sur du tableau de Tcolor que l'on explore avec pixels ?

oui avec ScanLine :zen:

maintenant vu que tu ne précises absolument pas ce que tu comptes faire de cette image il est difficile de te dire ce qu'il convient de faire.

car tu n'es pas obligé d'utiliser un Bitmap pour travailler sur une image, si tu colles un entêtre BMP à ton pixtab tu peux sauvegarder tout cela dans un fichier et obtenir un .BMP
si tu utilises la fonction Bitlt() tu peux aussi dessiner directement ton pixtab

bref :roll:

Question

Le code suivant est-il stupide ?

Code:

1
2
3
4
5
6
7
function CopyBitmap( BMP: TBitmap):array of array of RGBTriple;
var
  k: integer;
begin
  with BMP do setlength(BMPCopy,Height,Width);
  for k:=0 to BMP.Height- 1 do BMPCopy[k]:= BMP.Scanline[k];
end;

et surtout peut-on l'utiliser dans une DLL ?

Correction

On définit un type telque :
TBMPCopy = array of array of RGBTriple;
on utilise le code suivant :
Code:

1 2 3 4 5 6 7 function CopyBitmap( BMP: TBitmap):TBMPCopy; var k: integer; begin with BMP do setlength(result,Height,Width); for k:=0 to BMP.Height- 1 do result[k]:= BMP.Scanline[k]; end;
Peut-on utiliser cette fonction dans une DLL ?

Citation:
Envoyé par colorid
On définit un type telque :
TBMPCopy = array of array of RGBTriple;
on utilise le code suivant :
Code:

1 2 3 4 5 6 7 function CopyBitmap( BMP: TBitmap):TBMPCopy; var k: integer; begin with BMP do setlength(result,Height,Width); for k:=0 to BMP.Height- 1 do result[k]:= BMP.Scanline[k]; end;
Peut-on utiliser cette fonction dans une DLL ?
oui c'est stupide :zen:

comme indiqué par AndNotOr "BMP.ScanLine[BMP.Height -1]" est un pointeur vers le tableau des pixels de l'image.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 procedure TForm1.FormCreate(Sender: TObject); type TPixels = array[0..511, 0..511] of TColor; var bmp :TBitmap; pixels: ^TPixels; index : Integer; begin bmp := TBitmap.Create; bmp.PixelFormat := pf32Bit; bmp.Width := 512; bmp.Height := 512; // ou -512, cf plus bas pixels := BMP.ScanLine[511]; fillchar(pixels^, sizeof(TPixels), $c0); for index := 0 to 511 do pixels[index, index] := (index and 255) + (255 - index and 255) shl 8 + ((128 + 2 * index) and 255) shl 16; Image1.Picture.Assign(bmp); bmp.Free; end;
il faut noter que par défaut un Bitmap a la tête en bas... mais il est possible de le redresser en spécifiant une hauteur < 0, -512 dans mon exemple.

02/12/2010, 20h42
colorid

Deux questions

Bonjour Paul TOTH
1) dans l'exemple l'image est carrée 511x511) quel serait le code pour une image 640x480 ?
2) Toujours dans l'exemple le tableau est dimentionné celà pourrait marcher dans une DLL, mais est-il possible d'utiliser des tablesux dynamiques dans des fonctions DLL ?
Merci pour tout
03/12/2010, 05h50
Paul TOTH

Citation:

Envoyé par colorid

Bonjour Paul TOTH
1) dans l'exemple l'image est carrée 511x511) quel serait le code pour une image 640x480 ?

c'est une vraie question ?

Citation:

Envoyé par colorid

2) Toujours dans l'exemple le tableau est dimentionné celà pourrait marcher dans une DLL, mais est-il possible d'utiliser des tablesux dynamiques dans des fonctions DLL ?
Merci pour tout

:recherch:

Pas compris

Je ne vois pas comment paramétrer le tableau pour unr image 640x480
voici l'essai :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm4.FormCreate(Sender: TObject);
type
  TPixels = array[0..511, 0..511] of TColor;
var
  bmp :TBitmap;
  pixels: ^TPixels;
  w,h : Integer;
begin
  bmp := TBitmap.Create;
  bmp.PixelFormat := pf32Bit;
  bmp.Width := 640;
  bmp.Height := 480; // ou -512, cf plus bas
  pixels := BMP.ScanLine[bmp.Width*bmp.Width];
  fillchar(pixels^, sizeof(TPixels), $c0);
  for h := 0 to bmp.Height-1 do
    for w := 0 to bmp.Width-1 do
      pixels[h, w] := clblack;
  Image1.Picture.Assign(bmp);
  bmp.Free;
end;

génère le messagte 'Indice ligne hors limite"

Merci de m'expliquer

03/12/2010, 10h03
Linkin

As-tu regardé quel était le nom du paramètre de ScanLine? L'as-tu comparé à la valeur que tu lui passais?

Pour information
http://nono40.developpez.com/tutorie.../efg/scanline/

Le code suivant ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm4.FormCreate(Sender: TObject);
type
  TPixels = array[0..511, 0..511] of TColor;
var
  bmp :TBitmap;
  P : PByteArray;
  w,h : Integer;
begin
  bmp := TBitmap.Create;
  bmp.PixelFormat := pf32Bit;
  Bmp.LoadFromFile('c:\1.bmp');
  for h := 0 to bmp.Height-1 do
  begin
    P := Bmp.ScanLine[h];
    for w := 0 to bmp.Width-1 do
      P[w]:= h;
  end;
  Image1.Picture.Assign(bmp);
  bmp.Free;
end;

L'image se trouve divisée en trois parties deux partie à gauche en dégrdé noir au blanc et une partie à droite correspondante à une portion de l'image originale

Où est l'erreur ?

03/12/2010, 11h11
Gilbert Geyer

Bonjour,

1)

Citation:

Je ne vois pas comment paramétrer le tableau pour unr image 640x480
voici l'essai :
...
génère le messagte 'Indice ligne hors limite"

Forcément, car dans ton post de 09h49 tu as conservé TPixels = array[0..511, 0..511] of TColor;
mais modifié :
bmp.Width := 640;
bmp.Height := 480;
... faudrait donc également modifier les limites du TPixels.

2) A part ceci, tu peux trouver ici : http://stackoverflow.com/questions/3...n-for-delphi-7

une autre façon de créer un tableau donnant accès direct aux commposantes d'un pixel et utiisant le type suivant :
type
TPixmap = array of packed array of RGBQUAD; // pour du pf32bit mais modifiable en pf24bit en passant en RGBTriple.

Voir la procédure TForm3.DrawAntialisedLineOnPixmap(var Pixmap: TPixmap; const AX1, AY1, AX2, AY2: real; const LineColor: TColor);

A+. :D
03/12/2010, 11h12
ShaiLeTroll

Déjà, un indice [0..511, 0..511] cela fait 512 x 512 !
Tu as deux valeurs à changer 511 par 639 et 479 ... essaye dans un sens puis dans l'autre, tu verras lequel passe !
03/12/2010, 11h23
Gilbert Geyer

Re-bonjour,

Posts-croisés.

... et dans ton code de 11h09 il faudrait aussi remettre
bmp.Width := 640;
bmp.Height := 480;
qui existaient dans le code de 09h49

A+. :D

Un PByteArray qui semble fonctionner

avec le code suivant l'image affichée est correcte :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TForm4.FormCreate(Sender: TObject); var P : PByteArray; bmp :TBitmap; w,h : Integer; begin bmp := TBitmap.Create; bmp.PixelFormat := pf24Bit; Bmp.LoadFromFile('c:\1.bmp'); for h := 0 to bmp.Height-1 do begin P := Bmp.ScanLine[h]; for w := 0 to bmp.Width-1 do P[h]:= w; end; Image1.Picture.Assign(bmp); bmp.Free; end;
Si P est une variable générale, connaissant bmp.Width et bmp.Height Comment recréer l'image à partir de P ?
Un exemple code serait bien venu

03/12/2010, 13h11
Gilbert Geyer

Re-salut,

Citation:

avec le code suivant l'image affichée est correcte :

... c'est normal car les boucles n'influent ici pas sur l'affichge.

Citation:

Si P est une variable générale, connaissant bmp.Width et bmp.Height Comment recréer l'image à partir de P ?

... avec P := Bmp.ScanLine[h];
tu ne stockes que la dernière ligne du BitMap donc tu ne pas recréer l'image à partir de P.

Il faut donc stocker autant de P qu'il y a de lignes donc créer une variable globale du type tMesLignes = array of PByteArray
pré-dimensionnée avec un SetLength(MesLignes,Bmp.height)
et ensuite tu y stockes les lignes.

A+. :D