![]() |
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 |
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.
![]() Canvas.pixels[x,y] (sehr langsam) Scanline (schneller aber schwerer anzuwendem) |
Re: Screenshot vond Desktop mit anschließendem PixelSearch
Mein Programm sieht jetzt so aus:
Delphi-Quellcode:
Meine Frage ist nun, wie ich abfragen kann ob das Bild einen Pixel der Farbe FBFBFB enthält.
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; 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 10:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz