Problème avec GetPixel

Version imprimable

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:

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 !:D

07/09/2007, 18h58
Qwazerty

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
07/09/2007, 20h24
pieroznight

Mon problème est simplement de comprendre pourquoi mon appli ne marche pas sous XP
Mais merci du tuyau ;)
a+
08/09/2007, 09h01
Graffito

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 ;
08/09/2007, 12h32
pieroznight

Merci !!!
je vais tester ceci dès que j'aurais accès à un ordinateur sous XP ...
08/09/2007, 23h03
edam

voir cette example
14/10/2007, 18h49
pieroznight

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
15/10/2007, 15h42
LadyWasky
dans ton code, je vois ceci :

Citation:

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:

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:

clr, col : cardinal;

Vérifies donc si ton problême ne vient pas (entre autre) de là.
18/10/2007, 12h35
pieroznight

Merci, je vais essayer ça ...
:cry: mais pourtant avec win 98 , ça marche ...
19/10/2007, 11h09
LadyWasky

Citation:

Envoyé par pieroznight

Merci, je vais essayer ça ...
:cry: 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...

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

Code:

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...

22/10/2007, 16h57
pieroznight

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à ?

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

Code:

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é...

ou encore

Code:

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);

23/10/2007, 20h16
pieroznight

:hola: :hola: :hola: :hola: :hola: :hola: :hola: :hola:
respect .... rien a dire :aie:
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+
23/10/2007, 20h22
pieroznight
tu écris :
Code:

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+
23/10/2007, 20h29
Eric Boisvert
dans l'unité Graphics sous delphi 5 il y a

Code:

cmDstInvert = DSTINVERT;

et dans l'unité windows, tu as
Code:

1 2 3 {$EXTERNALSYM DSTINVERT} DSTINVERT = $00550009; { dest = (NOT dest)
Tu peux faire F1 sur CopyMode pour information.

Citation:

Envoyé par pieroznight

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

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...

24/10/2007, 08h02
pieroznight

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

pieroznight