Seuillage d'une image
cs_James64
Messages postés
6
Date d'inscription
mercredi 11 février 2004
Statut
Membre
Dernière intervention
19 mars 2004
-
15 mars 2004 à 16:23
Nathalg - 5 nov. 2013 à 12:00
Nathalg - 5 nov. 2013 à 12:00
1 réponse
Bonjour,
var PPixel : Pointer;
X : LongInt;
pHisto : ^THistoGram;
begin
PPixel := nil;
pHisto := nil;
X :=0;
if pHisto^[x] > 130 then
begin
PByte(PPixel)^ := 0;
LabelResultat.caption := 'Supérieur au seuil'
end
else
PBYte(PPixel)^ := 255;
LabelResultat.caption := 'Inférieur au seuil';
Si ça peut t'aider.
Avec seuil=130.
Bon courage ^^
var PPixel : Pointer;
X : LongInt;
pHisto : ^THistoGram;
begin
PPixel := nil;
pHisto := nil;
X :=0;
if pHisto^[x] > 130 then
begin
PByte(PPixel)^ := 0;
LabelResultat.caption := 'Supérieur au seuil'
end
else
PBYte(PPixel)^ := 255;
LabelResultat.caption := 'Inférieur au seuil';
Si ça peut t'aider.
Avec seuil=130.
Bon courage ^^