Problème avec GetPixel

**pieroznight** · 07/09/2007, 18h02

bonjour à tous
j'ai créé une application qui permet d'inverser les couleur de l'écran.
cela fonctionne très bien (avec windows98; sans fond d'écran)
malheureusement, sous windows XP, l'écran apparais noir.
où est le problème ??
Voici mon code :

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
25
 
procedure TForm1.Button8Click(Sender: TObject);
var
  x, y : dword;
  clr, col : tcolor;
  scrx, scry : integer;
   dc:hdc;
 
 begin
 dc := getwindowdc(getdesktopwindow);
 scrx := GetSystemMetrics(SM_CXSCREEN);
 scry := GetSystemMetrics(SM_CYSCREEN);
 
for x:=0 to scrx do
    begin
    for y:=0 to scry  do
    begin
 
 col:= getpixel (dc,x,y);
 
       if radiobutton18.checked then
       clr := 255-col;
 
application.Minimize;
    setpixel (dc, x,y,clr);

merci pour toutes pistes !

**Qwazerty** · 07/09/2007, 18h58

SAlut
Pour inverser les couleur d'une image tu devrais jeter un coup d'oeil sur Bitbnt c'est une fonction graphique qui permet de faire pas mal de chose Google doit etre bavard a son sujet.
A++
Qwaz

**pieroznight** · 07/09/2007, 20h24

Mon problème est simplement de comprendre pourquoi mon appli ne marche pas sous XP
Mais merci du tuyau

a+

**Graffito** · 08/09/2007, 09h01

Bonjour,

clr := 255-col fonctionne sur des systèmes avec 256 couleurs
Pour que ca marche aussi sous XP (couleurs 24 ou 32 bits), il faudrait écrire
clr:=not col ;

**pieroznight** · 08/09/2007, 12h32

Merci !!!
je vais tester ceci dès que j'aurais accès à un ordinateur sous XP ...

**edam** · 08/09/2007, 23h03

voir cette example

**pieroznight** · 14/10/2007, 18h49

Désoler du temps de réponse, .... mais ça ne marche pas...
C'est comme si getpixel ne donnais que du noir sauf quelques endroit.
avez vous une piste ?
merci

**LadyWasky** · 15/10/2007, 15h42

dans ton code, je vois ceci :

clr, col : tcolor;
....
col:= getpixel (dc,x,y);
....
setpixel (dc, x,y,clr);

et là, je te dis que getpixel et setpixel n'ont absolument rien avoir avec TColor !!!

Dans le type TColor, les octets sont codés dans cet ordre : Bleu, Vert,Rouge
Pour t'en convaincre, regarde comment les couleur "primaires" sont codées dans graphics.pas :

Code :

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

1
2
3
clRed = TColor($0000FF); //<--Rouge à la fin
  clLime = TColor($00FF00);  //<--vert au milieu
  clBlue = TColor($FF0000);//<--Bleu à gauche

alors que les couleurs renvoyées par getpixel et utilisées par setpixel sont de bètes entiers de type cardinal codées dans cet ordre : Rouge, puis Vert, puis Bleu.

Donc en gros, celà devient plus logique de déclarer tes variable comme ceci :

Code :

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

clr, col : cardinal;

Vérifies donc si ton problême ne vient pas (entre autre) de là.

**pieroznight** · 18/10/2007, 12h35

Merci, je vais essayer ça ...

mais pourtant avec win 98 , ça marche ...

**LadyWasky** · 19/10/2007, 11h09

Envoyé par pieroznight

Merci, je vais essayer ça ...

mais pourtant avec win 98 , ça marche ...

Peut être le code exposé dans ce fil de discussion t'intéresera-t'il :
http://www.developpez.net/forums/sho...hlight=gris%E9

Là il s'agit de prendre un screenshot du bureau, de l'enregistrer dans un bitmap, de le passer la couleur en dégradés de gris (donc on change la couleur, c'est ce que tu essaies de faire), puis affichage du tout sur le bureau en lieu et place de l'existant.

Bref, de quoi t'inspirer...

**Archimède** · 21/10/2007, 17h14

et en faisant comme ça, ça marche pas:

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
25
 
var
x,y : dword;
col : tcolor;
scrx, scry : integer;
r,v,b:byte;
dc:hdc;
 
 begin
 dc := getwindowdc(getdesktopwindow);
 scrx := GetSystemMetrics(SM_CXSCREEN);
 scry := GetSystemMetrics(SM_CYSCREEN);
 
for x:=0 to scrx do
    for y:=0 to scry  do
    begin
col:= getpixel (dc,x,y);
r:=getrvalue(col);
v:=getGvalue(col);
b:=getBvalue(col);
col:=rgb(255-r,255-v,255-b);
//équivalent je pense col:=not col...
setpixel (dc,x,y,col);
end;
end;

à voir...
effectivement, il faudrait sans doute afficher dans un bitmap...

**pieroznight** · 22/10/2007, 16h57

Merci beaucoup pour toute vos réponse, ça me fait plaisir .
j'essayerai tout ça dès que j'aurais trouve un poste sous xp ...
Mais quelle est la différence entre xp et 98 pour que sa m**** a ce point là ?

**Eric Boisvert** · 22/10/2007, 19h27

C'est plutôt lent GetPixel() et SetPixel()...
Une alternative...

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
 
Var
  ScreenCanvas: TCanvas;
  Screen_bmp: TBitmap;
Begin
  ScreenCanvas := TCanvas.create;
  Screen_bmp := TBitmap.Create;
  try
    //=== récupération du canvas de l'écran ===
    ScreenCanvas.Handle := getDC(0);
    Screen_bmp.Width := screen.Width;
    Screen_bmp.Height := screen.Height;
    //=== Récupération de l'image ===
    Screen_bmp.Canvas.CopyRect(Rect(0, 0, screen.Width, screen.Height), ScreenCanvas, Rect(0, 0, screen.Width, screen.Height));
    //=== Spécifie que l'on veut inverser ===
    ScreenCanvas.CopyMode :=cmDstInvert	;
    //=== Dessine le bitmap inversé sur le canvas de l'écran ==
    ScreenCanvas.Draw(0, 0, Screen_bmp);
  finally
    Screen_bmp.Free;
    ScreenCanvas.Free;
  end;

de cette façon, c'est plutôt instantané...

**Eric Boisvert** · 22/10/2007, 19h47

ou encore

Code :

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

1
2
3
4
5
 
  dc:=getDC(0);
  If (GetDeviceCaps(dc,RASTERCAPS)and RC_BITBLT)=RC_BITBLT then
    PatBlt(dc, 0, 0, screen.Width, screen.Height, cmDstInvert);
  ReleaseDC(0,dc);

**pieroznight** · 23/10/2007, 20h16

respect .... rien a dire

j'avou que de mon coté c'est plutot ridicule
et bin mille merci ... reste a voir si sa marche sous xp
merci beaucoup
a+

**pieroznight** · 23/10/2007, 20h22

tu écris :

Code :

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

1
2
 
ScreenCanvas.CopyMode :=cmDstInver;

F1 ne donne rien sur cmDstInver. Qu'est ce qu'il ya comme autre valeur ? ou peut on les trouvées ?
merci a+

**Eric Boisvert** · 23/10/2007, 20h29

dans l'unité Graphics sous delphi 5 il y a

Code :

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

cmDstInvert = DSTINVERT;

et dans l'unité windows, tu as

Code :

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

1
2
3
 
 {$EXTERNALSYM DSTINVERT}
  DSTINVERT   = $00550009;     { dest = (NOT dest)

Tu peux faire F1 sur CopyMode pour information.

**Eric Boisvert** · 23/10/2007, 20h46

Envoyé par pieroznight

et bin mille merci ... reste a voir si sa marche sous xp

Code :

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

1
2
3
4
5
 
    dc := GetDC(0);
    If (GetDeviceCaps(dc, RASTERCAPS) And RC_BITBLT) = RC_BITBLT Then
      PatBlt(dc, 0, 0, screen.Width, screen.Height, cmDstInvert);
    ReleaseDC(0, dc);

Je t'assure que oui.
sinon, c'est la carte video qui ne supporte pas...

**pieroznight** · 24/10/2007, 08h02

champion !
mon probleme est résolu.... meme si je ne vois pas pourquoi ma methode ne marchait pas sous xp
a la prochaine

pieroznight

Problème avec GetPixel

Langage Delphi

Discussions similaires

Partager

Partager