Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Screenshot vond Desktop mit anschließendem PixelSearch (https://www.delphipraxis.net/121677-screenshot-vond-desktop-mit-anschliessendem-pixelsearch.html)

MaToBe 2. Okt 2008 10:29


Screenshot vond Desktop mit anschließendem PixelSearch
 
Guten Tag,

ich würde gerne alle 500ms meinen aktuellen Bildschirm, so wie ich ihn vor mir habe kopieren und anschließen nac einer speziellen Pixelfarbe untersuchen.

Da ich mich mit dem bereich Multimedia noch nicht so beschäftigt habe und generell noch ein ziemlicher Anfänge in Delphi bin, würds mich freuen wenn ihr mir die zu benutzenden Befehle nennen könntet und vllt sogar einen kleinen BeispielCode schreiben könntet.

MFG MaToBe

Gandalfus 2. Okt 2008 12:32

Re: Screenshot vond Desktop mit anschließendem PixelSearch
 
Wir können dir nicht das programmieren beibringen das musst du schon selber lernen. Ein wichtiger teil von programmieren ist die selbständige Suche nach Informationen. Man lernt viel wenn man verschiedene Forenbeiträge oder Artikel liest und das gelesene selber versucht anzuwenden.

http://www.delphi-treff.de/tipps/gra...dows-Desktops/

Canvas.pixels[x,y] (sehr langsam)
Scanline (schneller aber schwerer anzuwendem)

MaToBe 6. Okt 2008 14:02

Re: Screenshot vond Desktop mit anschließendem PixelSearch
 
Mein Programm sieht jetzt so aus:

Delphi-Quellcode:
procedure MakeScreenShot(const ATarget: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    ATarget.PixelFormat := pfDevice;
    ATarget.Width := Screen.Width;
    ATarget.Height := Screen.Height;
 
    BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;
//Screenshot auslösen
procedure TForm1.TScreenTimer(Sender: TObject);
begin
  MakeScreenShot(Screen.Picture.Bitmap);
end;
Meine Frage ist nun, wie ich abfragen kann ob das Bild einen Pixel der Farbe FBFBFB enthält.
Ich hab schon einiges über GetPixel gelesen, aber mir ist nicht klar was GetPixel für eine Rückgabe liefert.


PS: ich weiß das man sich das besser einfach selbst beibringen sollte, aber in der Schule beschäftigen wir uns im Moment mit Rekursion und nicht mit Bildverarbeitung.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz