Discussion :

[colorid]

Bonjour,

Je charche à stocker une image bitmap dans un tableau de TRGBTriple.
Avec le code suivant provoque une vioaltion d'accès à la ligne "for h to..."

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
21
procedure TForm6.Button1Click(Sender: TObject);
type
  pPixRow640x480 = ^TPixRow640x480;
  TPixRow640x480 = array[0..pred(640)] of TRGBTriple;
  pPixMape640x480 = ^TPixMape640x480;
  TPixMape640x480 = array[0..pred(480)] of pPixRow640x480;
var
  pPixMape: pPixMape640x480;
  BMP: TBitmap;
  h: integer;
begin
  BMP:= TBitmap.Create;
  try
    BMP.PixelFormat:= pf24bit;
    BMP.PixelFormat:= pf24bit;
    BMP.LoadFromFile('C:\1.bmp');
    for h:= 0 to BMP.Height-1 do pPixMape[h]:= BMP.ScanLine[h];
  finally
    BMP.Free;
  end;
end;

L'image est bien en 640x480. Où est l'erreur ?

[Gilbert Geyer]

Re-Salut,

Tiens, entre-temps voici un code qui marche avec du TRGBTriple :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
type      TRGBArray = array[0..0] of TRGBTriple;   // élément de bitmap (API windows)
          pRGBArray = ^TRGBArray;  // type pointeur vers tableau 3 octets 24 bits
 
var      ScanLinesS : array of pRGBArray; // BmpSource : Tableau de lignes
          ScanLinesD : array of pRGBArray; // BmpDestination : Tableau de lignes
 
var       bh,bw,y,x : integer;
 
procedure TfrmGen.btnChargerLignesClick(Sender: TObject);
begin     // mon BmpSource est un BitMap avec PixelFormat:=pf24bit; chargé ailleurs
          bh:=BmpSource.Height;
          bw:=BmpSource.Width;
          SetLength(ScanLinesS,bh);
          for y:=0 to bh-1 do begin
              ScanLinesS[y] := BmpSource.scanline[y];
          end;
end;
 
procedure TfrmGen.btnAfficherLignesClick(Sender: TObject);
var       BmpDestination : tBitMap;
begin     BmpDestination := tBitMap.create;
          with BmpDestination do begin
               PixelFormat:=pf24bit;
               width:=bw; height:=bh;
          end;
          SetLength(ScanLinesD,bh);
          for y:=0 to bh-1 do begin
              ScanLinesD[y]:=BmpDestination.scanline[y];
              for x:=0 to bw-1 do begin
                  ScanLinesD[y,x].rgbtRed  :=ScanLinesS[y,x].rgbtRed;
                  ScanLinesD[y,x].rgbtGreen:=ScanLinesS[y,x].rgbtGreen;
                  ScanLinesD[y,x].rgbtBlue :=ScanLinesS[y,x].rgbtBlue;
              end;
          end;
          imgFond.picture.bitmap:=nil; // juste pour effacer l'image d'origine
          showmessage('vu effacement');
          imgFond.picture.bitmap.Assign(BmpDestination); // affichage du BitMap recomposé
end;

Testé sous Delphi-5.

A+.

[colorid]

Ok et merci
Celà marche très bien

[Andnotor]

Je peine à voir la finalité, parce que là il n'y a que copie de pointeurs et non de contenu
Si c'est vraiment le comportement souhaité, autant mémoriser le pointeur sur le 1er élément plutôt qu'un tableau de pointeurs sur chaque ligne:

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  ScanLinesS : pointer;
  bh, bw     : integer;
 
procedure TfrmGen.btnChargerLignesClick(Sender: TObject);
begin
  bh := BmpSource.Height;
  bw := BmpSource.Width;
  ScanLinesS := BmpSource.scanline[bh -1];
end;

Dans la 2ème procédure, on peut également se passer de ces boucles par un appel à CopyMemory:

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
var
  BmpDestination :TBitmap;
 
begin
  BmpDestination := TBitmap.create;
 
  with BmpDestination do
  begin
    PixelFormat := pf24bit;
    width  := bw;
    height := bh;
 
    CopyMemory(scanline[bh -1], ScanLinesS, bh *bw *SizeOf(TRGBTriple));
  end;
...

[Caribensila]

@colorid

Je cherche à stocker une image bitmap dans un tableau de TRGBTriple.

Il faudrait que tu nous expliques pourquoi tu cherches à faire cela, car ça revient à dupliquer l'image; ce qui est très gourmand en temps et en ressources.
Le tableau que tu cherches à faire existe déjà en mémoire (le Bitmap), et il est d'accès très rapide par des pointeurs. Le dupliquer pour en faire un tableau dynamique en 2D, c'est se tirer une balle dans le pied en matière d'optimisation.

[colorid]

Bonjour Pierre Renaud,

C'est pour développer une fonction dans une DLL qui modifie qualitativement une image. (Elle modifie certains pixels) Une fonction du type FaisQuelqueChose( BMP: Tbitmap;... ne fonctionne pas, de même FaisQuelqueChose( HBMP: hbitmap;... non plus, d'où l'idée d'adresser à la fonction une variable tableau de Tcolor ou TRGBTriple.

En fait un exemple de code d'une procédure ou fonction à laquelle on adresse une image bitmap sous quelque forme que ce soit et qui la modifie uniquement qualitativement mais qui peut être appelée dans une DLL me conviendrait parfaitement.

Encore merci pour votre aide

Colorid

[Gilbert Geyer]

Bonjour,

AndNotOr : Je peine à voir la finalité

... à mon avis le principal intérêt d'un Tableau du style ScanLines[y,x].rgbtRed := ... etc
est que le temps pris pour le créer ne l'est qu'une seule fois
et qu'ensuite il est gagné à chaque fois qu'on veut modifier quelques pixels.
Par exemple si on l'utilise pour faire une détection de contour par filtre Prewitt suivant X puis Prewitt suivant Y on est obligé de parcourir le tableau deux fois sans avoir à recréer le Tableau puisque l'on se contente alors de l'actualiser.

A+.

[Paul TOTH]

Bonjour Pierre Renaud,

C'est pour développer une fonction dans une DLL qui modifie qualitativement une image. (Elle modifie certains pixels) Une fonction du type FaisQuelqueChose( BMP: Tbitmap;... ne fonctionne pas, de même FaisQuelqueChose( HBMP: hbitmap;... non plus, d'où l'idée d'adresser à la fonction une variable tableau de Tcolor ou TRGBTriple.

En fait un exemple de code d'une procédure ou fonction à laquelle on adresse une image bitmap sous quelque forme que ce soit et qui la modifie uniquement qualitativement mais qui peut être appelée dans une DLL me conviendrait parfaitement.

Encore merci pour votre aide

Colorid

tu as déjà eu des réponses à ton problème, tant que tu ne feras pas l'effort de les comprendre, tu n'aboutiras pas

[colorid]

Bonjour Paul TOTH

Merci pour toutes les informations, le temps de vérifier que les recommandations étaient applicables à une DLL ce qui a été fait avec succès.

Avec une fonction de la DLL à partir du nom de fichier d'une image bitmap, j'initialise une structure qui contient un tableau de RGBTriples et la largeur et hauteur de l'image.

Avec cette structure j'initialise un TBitmap pour l'affichage et je peux travailler aux modifications que je souhaitais.

Merci à tous