FONCTION DE TRAITEMENT D'IMAGES : NIVEAUX DE GRIS
arckhenstone
Messages postés
19
Date d'inscription
lundi 30 mars 2009
Statut
Membre
Dernière intervention
29 juillet 2009
-
31 mars 2009 à 09:44
arckhenstone Messages postés 19 Date d'inscription lundi 30 mars 2009 Statut Membre Dernière intervention 29 juillet 2009 - 31 mars 2009 à 09:44
arckhenstone Messages postés 19 Date d'inscription lundi 30 mars 2009 Statut Membre Dernière intervention 29 juillet 2009 - 31 mars 2009 à 09:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11989-fonction-de-traitement-d-images-niveaux-de-gris
https://codes-sources.commentcamarche.net/source/11989-fonction-de-traitement-d-images-niveaux-de-gris
31 mars 2009 à 09:44
Voici mon code, mais mon tramage ressort en noir et rouge au lieux de nori et blanc et j'ai de nombreuses imperfection dans l'image... plein de petit pixel rouge ( qui devraient être blanc) apparaissent autour de mon image...
Merci d'avance.
procedure TForm1.BiChromieClick(Sender: TObject);
Const
seuil=128;
Var
x,y:word;
begin
for x:=0 to image1.picture.width do
begin
for y:=0 to image1.picture.Height do
begin
if image1.Picture.Bitmap.Canvas.Pixels [x,y]>seuil then
image1.Picture.Bitmap.Canvas.Pixels [x,y]:=255 else image1.Picture.Bitmap.Canvas.Pixels [x,y]:=0;
memo1.Clear;
end;
end;
end;