Discussion :

[bobymaw]

en utilisant se code sur un bitmap de couleur rouge uni.

Code :

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

1
2
3
4
5
6
7
for (int y=0;y<ymax;y+=4)
{line=(Byte *)Image2->Picture->Bitmap->ScanLine[y];
for (int x=0;x<xmax;x+=4)
{couleur=IntToHex(StrToInt(line[x]),8);
Label2->Caption=Form1->Label2->Caption+"\n"+couleur;
};
};

j'obtient successivement 000000FF, 00000000, 00000000.
Pourquoi, comment corriger cette erreur?

[henderson]

Salut !

Quelle est la définition du bitmap ?

A plus !

[bobymaw]

L'image pourrait être en 16 couleur. Vue l'éclat du rouge.

Mais l'image est en RGB 8 bit. Je devrai traiter d'autre image de cette nature et sans les transformer.

[henderson]

Salut !

Les bitmaps 8 bits disposent d'une palette qui contient les 256 couleurs (RGB).
ScanLine ne renvoie qu'un simple index correspondant à une entrée de la palette.

Pour récupérer la couleur (composantes RGB):

Code :

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

TColor couleur = ...Canvas->Pixels[x][y];

Et pour récupérer le niveau de rouge :

Code :

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

Byte red = GetRValue(Couleur);

GetGValue(..) pour le vert et GetBValue(..) pour le bleu

A plus !

[bobymaw]

On m'avait dit que Scanline pouvait servir pour couleur est qu'il est plus rapide que pixel[x][y].

Donc ceci n'eqst valable que pour des images ayant plus de couleur c'est ça?

à tous hasard (si j'avait mal compris) j'ai testé se code :

Code :

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

1
2
3
4
5
6
7
8
 
for (int y=0;y<ymax;y+=4)
{line=(Byte *)Image2->Picture->Bitmap->ScanLine[y];
for (int x=0;x<xmax;x+=4)
{couleur=IntToHex(GetRValue(line[x]),8);
Label2->Caption=Form1->Label2->Caption+"\n"+couleur;
};
};

et Il me renvoie la même suite.

[henderson]

Salut !

Pour faire simple au choix :

Code :

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

1
2
TCanvas *C = Image2->Picture->Bitmap->Canvas;//Image2 est un TImage
TCanvas *C = Image2->Canvas;//Image2 est un Graphics::TBitmap

Code :

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

1
2
3
4
5
...
TColor couleur = C->Pixels[x][y];  
Byte red = GetRValue(couleur);
Label2->Caption = Label2->Caption + "\n" + IntToStr(red); 
...

Ce qui se rédige facilement sur une seule ligne.

Ca fonctionne quelque soit la résolution du bitmap.
Je n'ai jamais réussi à appliquer ScanLine sur des bitmaps 24 bits!
A vérifier... car je ne sais pas !
Mais par contre ScanLine renvoie bien un index (Byte) avec des bitmap 8 bits,
la teinte (composantes RVB) elle, est dans la palette du bitmap !

Je ne me souviens plus pour "\n" ?

A plus !

[bobymaw]

merci beaucoups.
"\n" veut dire retour à la ligne.