Soyez le premier à donner votre avis sur cette source.
Vue 4 755 fois - Téléchargée 298 fois
var //def des variables x,y:integer; pix,r,v,b:variant; begin for x:=1 to image1.picture.width do //on prend une ligne begin for y:=1 to image1.picture.height do //les colonnes de cette ligne begin pix:=image1.canvas.Pixels[x,y]; //on prend les couleurs RVB r:=int(pix mod 256); //rouge V := Int((pix - r) / 256 Mod 256); //vert B := Int((pix - r) / 256 / 256); //bleu R := (r + V + B) / 3; //ajout des trois couleurs puis division par trois pour obtenir un niveau de gris image2.Canvas.pixels[x,y]:=rgb(r,r,r); //ecriture du pixel en N&B a la même place sur l'autre Timage end; end; //end du bloc qui dboute avant for y:=1 to ...
poste tes questions sur le forum parce qu'ici tu auras très peut de chances d'avoir une réponse !!!!
Meric pour votre aide.
procedure TForm1.BiChromieClick(Sender: TObject);
Const
seuil=128;
filtrage=$ffffff; //blanc
Var
x,y,A,B:word;
begin
x:=A+1;
x:=B-1;
for x:=0 to image1.picture.width-1 do
begin
for y:=0 to image1.picture.Height-1 do
begin
if image1.Picture.Bitmap.Canvas.Pixels [x,y]and $ff>seuil then
image1.Picture.Bitmap.Canvas.Pixels [x,y]:=$ffffff else image1.Picture.Bitmap.Canvas.Pixels [x,y]:=$000000;
end;
end;
end;
Lol maintenant il faudrait que grâce à mon image noir et blanc je trouve le centre de gravité de l'image en utilisant le calcul des moments géométriques. Et aussi, complétement à part, que je mette dans un afficheur la luminosité moyenne de l'image
Lol dure la première semaine à faire du DELPHI :s
Une idée ? lol
Merci quand même Cirec.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.