Comment calculer la couleur moyenne d'une image bmp sous Delphi?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment calculer la couleur moyenne d'une image bmp sous Delphi?

Dinofly

Tout est dans le titre, je débute au fait. Y a-t-il une fonction spéciale ou faut faire un algo?

---------------
www.planetemu.net

Publicité

darkoli

Le Petit Dinosaure Bleu

ben le plus c'est d'utiliser un composant TPaintBox.

1° Tu ouvres l'image au format bmp avec la méthode du composant (dont je ne me souviens plus du nom) ca doit etre Load File ou un truc dans le genre

2° apres tu recupere la hauteur et la largeur de l'image

3° tu utilise la propriete Pixels du TPaintBox pour obtenir la couleur de chaque pixels.

Attention, il faut separer les composantes R,V,B des couleurs pour en faire la moyenne.

Code :

var nombre_de_pixels:int64;
r,v,b:int64;
c:integer;
...
r:=0;
v:=0;
b:=0;
nombre_de_pixels=largeur*hauteur;
for i:=0 (ou 1) to largeur(-1)
begin
for j:=0 (ou 1) to hauteur(-1)
begin
c=nom_composant.Canvas.Pixels[i,j];
r=r+Composante_rouge(c);
v=v+Composante_verte(c);
b=b+Composante_bleue(c);
end;
end;
r=r/nombre_de_pixels;
v=v/nombre_de_pixels;
b=b/nombre_de_pixels;

Attention, ca fait quelque temps que je n'ai pas utilisé delphi alors il a surement des erreurs et il existe surement aussi un autre composant mieux adapté pour ce genre de chose (TImage peut etre).

Pour separer les composantes c'est tres facile :
r=((c shr 16) and 255);
v=((c shr 8) and 255);
b=((c ) and 255);
pour le vert c'est sur mais pour le rouge te le bleu il faut peut etre les inverser :
r=((c ) and 255);
v=((c shr 8) and 255);
b=((c shr 16) and 255);

Dinofly

Merci beaucoup, je crois que je vais y arriver :bounce:

---------------
www.planetemu.net

JWhy

je peux plier (héhé)

pour tous les trucs de manipulations d'images ou de couleurs (algo + exemple en delphi), tu peux jeter un oeil ici: http://www.efg2.com/Lab/

je n'y ai pas vu qqchose qui ressemble a ce que tu voulais faire, tu peux toujours jeter un oeil a cet article ( http://www.efg2.com/Lab/ImageProcessing/Scanline.htm ) qui t'explique comment acceder aux pixels d'une image d'une maniere plus rapide que la propriete .pixels (si tu desires traiter des images de taille plus importante)

---------------
www.alliancefrancophone.org ... Home is where the heart is

Dinofly

Merci, c'est sympa

---------------
www.planetemu.net

FORUM HardWare.fr

Programmation

Comment calculer la couleur moyenne d'une image bmp sous Delphi?

Sujets relatifs
Javascript : une image par jour !	Comment imprimer une image en delphi
Je cherche un programme qui compresse une image en jpg	Comment supprimer un fichier ou dossier avec delphi
Delphi : Outlook MailItem et adresse email ..	attendre qu'une image soit finie d'etre chargee pour continuer ??
Insérer une image sur un bouton en VC++	[VB] Couleur des graphes MSCHART
Comment changer la couleur des Contrôles texte Static en C Win32 Api ?
Plus de sujets relatifs à : Comment calculer la couleur moyenne d'une image bmp sous Delphi?

Page générée en 0.034 secondes