Tableau de bytes et canvas d'un bitmap

**colorid** · 02/12/2010, 14h34

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

**Paul TOTH** · 02/12/2010, 14h48

oui, avec ScanLine

**colorid** · 02/12/2010, 15h38

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 ?

**Andnotor** · 02/12/2010, 17h15

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

**Caribensila** · 02/12/2010, 17h30

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.

**Paul TOTH** · 02/12/2010, 17h55

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

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

**colorid** · 02/12/2010, 18h51

Le code suivant est-il stupide ?

Code :

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

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 ?

**colorid** · 02/12/2010, 19h01

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

Code :

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

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 ?

**Paul TOTH** · 02/12/2010, 20h01

Envoyé par colorid

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

Code :

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

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

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

Code :

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

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.

**colorid** · 02/12/2010, 20h42

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

**Paul TOTH** · 03/12/2010, 05h50

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 ?

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

**colorid** · 03/12/2010, 09h49

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

Code :

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

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

**Linkin** · 03/12/2010, 10h03

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/

**colorid** · 03/12/2010, 11h09

Code :

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

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 ?

**Gilbert Geyer** · 03/12/2010, 11h11

Bonjour,

1)

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

**ShaiLeTroll** · 03/12/2010, 11h12

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 !

**Gilbert Geyer** · 03/12/2010, 11h23

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

**colorid** · 03/12/2010, 12h20

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

Code :

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

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

**Gilbert Geyer** · 03/12/2010, 13h11

Re-salut,

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

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

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

Tableau de bytes et canvas d'un bitmap

Langage Delphi

Discussions similaires

Partager

Partager