Pixel d'une image ( bmp )

Question

Voilà, je voudrais récupérer chaque pixel d'une image bmp et vérifier la couleur. Les sources sur le site ( en parcourant les titres ) non pas l'air de le démontrer.

Pouvez-vous me montrer un bout de code ou un site où l'on traite du sujet ?

Merci.

 ;)  Bruto --- Le p'tit belge --- pour vous servir

PhGORMAND · Answer

Salut.

Image1.Picture.Bitmap.Canvas.Pixels

Var
   C  : TColor;
  RVB : Array[1..3] Of Byte;
  Rouge,
  Vert,
  Bleu   : Byte;

begin
   C:=Image1.Picture.Bitmap.Canvas.Pixels[X,Y];
   Move(C,RVB,3);
   Rouge:=RVB[1];
   Vert:=RVB[2];
   Bleu:=RVB[3];

Voir aussi la proprieté ScanLine.

A+
  http://philippe.gormand.free.fr/

cs_mhd_youssef · Answer

youssef EL GHAZIOUI
en fait j'au probleme c'est que j'arrive pas a definir des images bitmap d'un tableau : voila ma boucle:
for J:=1 to 2 do
   begin
    for K := 1 to 2 do
    begin
      TabImgGrp[J][K]:= Tbitmap.Create;
      for x := 0 to TabImgGrp[J][K].Width - 1 do
      begin
        for y := 0 to TabImgGrp[J][K].Height - 1 do
        begin
          Col := TabImgGrp[J][K].Canvas.Pixels[x,y];
      Blue := trunc(Col / 65536);
  		    Green := trunc((Col - Blue * 65536) / 256);
  		    Red := Col - Blue * 65536 - Green* 256;
          Moyenne := (Red + Green + Blue) div 3;
          Couleur := Moyenne * 65536 + Moyenne * 256 + Moyenne;
          imageT_mono[J][K].Canvas.Pixels[x,y] := Couleur;
        end;
      end;
    end;
   end;

et ce je veux faire c'est arriver a avoir 
TabImgGrp[J][K].bitmap.Width - 1 do 
mon mail c'est 
yel@atolcd.com

Pixel d'une image ( bmp )

2 réponses

Votre réponse

Discussions similaires