Discussion :

[visualk]

Salut
je veut lire une couleur dans un point précis d'une image que j'ai ouvert dans un Timage
ce qui veut dire
par exemple : je donne les coordonée X,Y
ou mieux pointer la souris sur cette couleur et un timer detecte cette couleur et l'écris dans un tedit

j'ai beau chercher dans plusieurs sources mais je trouve pas une solution exacte
je ne sais quoi utiliser Scanline ou autre
je peut déja savoir combien de couleurs se trouve dans une image

Merci de m'aider

[banban54]

bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function Tgraph.CouleurPointEcran(x,y:Integer):TColor;
Var
  Dc : HDC;
begin   
  DC := CreateDC('DISPLAY',Nil,Nil,Nil);
  Try
    Result:=GetPixel(DC,X,Y);
  Finally
    DeleteDc(DC);
  End;
end;
 
Procedure machin
var 
T  :  Tcolor;
point : TPoint;
begin
      point := ClientToScreen(GetCursorPos); // La méthode ClientToScreen permet de convertir les coordonnées d'un point exprimées relativement au contrôle en coordonnées relatives à l'écran.
      T:=CouleurPointEcran(Point.x, point.y); // Appelez GetCursorPos pour déterminer les coordonnées écran actuelles du curseur de la souris.
// et voilà ça devrait être bon
....
end;

et tout ceci est déjà soit dans la FAQ, soit sur le forum...!!

à+

[visualk]

salut
merci pour la réponse
mais j'ai quelques bugs
si tu peut m'éclairir un peu :

voila le code que j'ai mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function Tgraph.CouleurPointEcran(x,y:Integer):TColor;
Var
  Dc : HDC;
begin
  DC := CreateDC('DISPLAY',Nil,Nil,Nil);
  Try
    Result:=GetPixel(DC,X,Y);
  Finally
    DeleteDc(DC);
  End;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
T  :  Tcolor;
point : TPoint;
begin
      point := ClientToScreen(GetCursorPos); // La méthode ClientToScreen permet de convertir les coordonnées d'un point exprimées relativement au contrôle en coordonnées relatives à l'écran.
      T:=CouleurPointEcran(Point.x, point.y); // Appelez GetCursorPos pour déterminer les coordonnées écran actuelles du curseur de la souris.
// et voilà ça devrait être bon
end;
 
end.

les bugs c'est dans :
Function Tgraph.CouleurPointEcran(x,y:Integer):TColor;
le prob : la fonction nécessite un type de résultat
2: identificateur non déclaré X,Y
j'ai resolu celui-la : j'ai mis dans var : X,Y : integer;
et d'autres ...

peut tu me dire la soluce stp

[petitcoucou31]

salut

Ta fonction est appelé par ta form1 donc ta déclaration doit être :
Function Tform1.CouleurPointEcran(x,y:Integer):TColor;

bye

[ero-sennin]

Salut!

Je propose ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Timer1Timer(Sender: TObject);
var
couleur:TColor;
r,v,b:integer;
begin
  couleur:=Getpixel(getdc(0),mouse.cursorpos.x,mouse.cursorpos.y);
  r:=getrvalue(couleur);
  v:=getgvalue(couleur);
  b:=getbvalue(couleur);
  edit1.text:='$'+inttohex(couleur,6);
  Panel1.Color:=couleur;
end;

[visualk]

merci
je test et je vous répond tous