---

Jeg er i gang med at lave et program hvor jeg har brug for at aflæse
farve værdien for en specefik pixel på skærmen, er det muligt? Og
hvordan?

---

se TCanvas.Pixels[X,Y]

"Bjarke Freund-Hansen" <rknews@impsoft.dk> wrote in message
news:of6lutcgp9s7kjlm1g33p95u98ij25oaku@4ax.com...
> Jeg er i gang med at lave et program hvor jeg har brug for at aflæse
> farve værdien for en specefik pixel på skærmen, er det muligt? Og
> hvordan?

---

On Thu, 8 Nov 2001 16:21:43 +0100, "Uffe Kousgaard"
<uffe@routeware.dk> wrote:

>se TCanvas.Pixels[X,Y]

Findes der en canvas for hele skærmen (eller for et sepcefikt
program)? Mit problem er at jeg skal tjekke et bestemt areal af
skærmen (eller af et program) for en farve, hvert X'te sekund. Hvis
der er andre løsninger på det, ville det også være iorden.

---

Hej Bjarke.
Som Uffe er inde på , skal du bruge TCanvas.Pixels[X,Y]. For at få adgang
til pixel-data uden for dit eget program skal der "broderes" lidt.
Se nedenstående eks. som er ok på win98.Bruger du NT er det nok lidt mere
tricky da der her anvendes flere desktops (f.eks til screensaveren).
Men.. eksperimenter med det og se hvad der sker.

Yngve

function GetFullScreenPixel(X, Y: Integer): Tcolor;
var
ScreenDC: HDC;
ScreenCanvas: TCanvas;
begin
ScreenDC := GetDC(0);
ScreenCanvas := TCanvas.Create;
ScreenCanvas.Handle := ScreenDC;
result := ScreenCanvas.Pixels[X,Y];
ScreenCanvas.Free;
ReleaseDC(0, ScreenDC);
end;

"Bjarke Freund-Hansen" <rknews@impsoft.dk> skrev i en meddelelse
news:prclut4pr8sntgqh5bpn6fkokehrtlf75t@4ax.com...
> On Thu, 8 Nov 2001 16:21:43 +0100, "Uffe Kousgaard"
> <uffe@routeware.dk> wrote:
>
> >se TCanvas.Pixels[X,Y]
>
> Findes der en canvas for hele skærmen (eller for et sepcefikt
> program)? Mit problem er at jeg skal tjekke et bestemt areal af
> skærmen (eller af et program) for en farve, hvert X'te sekund. Hvis
> der er andre løsninger på det, ville det også være iorden.

---

On Fri, 9 Nov 2001 10:08:45 +0100, "Yngve Damgaard" <yngve@yyy.dk>
wrote:

>Som Uffe er inde på , skal du bruge TCanvas.Pixels[X,Y]. For at få adgang
>til pixel-data uden for dit eget program skal der "broderes" lidt.
>Se nedenstående eks. som er ok på win98.Bruger du NT er det nok lidt mere
>tricky da der her anvendes flere desktops (f.eks til screensaveren).
>Men.. eksperimenter med det og se hvad der sker.

Indtil vidre virker det udemærket under win2000 (nt).

>function GetFullScreenPixel(X, Y: Integer): Tcolor;
>var
> ScreenDC: HDC;
> ScreenCanvas: TCanvas;
>begin
> ScreenDC := GetDC(0);
> ScreenCanvas := TCanvas.Create;
> ScreenCanvas.Handle := ScreenDC;
> result := ScreenCanvas.Pixels[X,Y];
> ScreenCanvas.Free;
> ReleaseDC(0, ScreenDC);
>end;

Jeg fik andetsteds denne kode som er lidt hurtigere hvis man bare skal
aflæse diverse pixels:

var
ScreenDC: HDC;
Pixel: Cardinal;

begin
ScreenDC := GetDC(0);
Pixel := GetPixel(ScreenDC, X, Y);
ReleaseDC(0);
end;