Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Newby - API ansteuern - und vorallem welche? (https://www.delphipraxis.net/36428-newby-api-ansteuern-und-vorallem-welche.html)

MiriQuidi 19. Dez 2004 20:34


Newby - API ansteuern - und vorallem welche?
 
Suche heute schon etwas länger danach, wie ich aus Delphi 7 herraus APIs ansteuere. Das eine Problem hab ich mittlerweile schon gelöst, das 2. steht noch, da hab ich leider nicht mal nen API Namen.

Es geht um das auslesen eines Pixels auf dem Monitor, oder besser gesagt, des Farbwertes des Pixels. Ideal wäre es, wenn man den Farbwert als 3 Byte-Werte zurückbekommt, also als RGB Signal, und man die Position des Pixels als x und y Wert angeben kann.
Leider bin ich komplett ahnungslos, ich weiß weder wie, noch welche API ich ansteuern muss.

mfg MiriQuidi

supermuckl 19. Dez 2004 20:44

Re: Newby - API ansteuern - und vorallem welche?
 
guck dir mal die scanline funktion bzw canvas.pixels eigenschaft an, und Screen.Canvas

MiriQuidi 19. Dez 2004 21:07

Re: Newby - API ansteuern - und vorallem welche?
 
zu screen.canvas finde ich nicht allzuviel.

Die anderen beziehen sich auf eine Bitmap, ich möchte aber einen beliebigen Pixel auf dem Monitor auslesen, vorallem aus einem anderen Programm. Performance mäßig wäre das erstellen eines Screenshots und anschließende Verarbeitung zu langsam, muss schnell gehen, deshalb lese ich auch nur ein paar Pixel aus.

Gibts noch ne andere Möglichkeit?

supermuckl 19. Dez 2004 21:18

Re: Newby - API ansteuern - und vorallem welche?
 
Delphi-Quellcode:
var
  dc : hdc;
  rgb: COLORREF;// LONGWORD;
begin

  dc := GetDc(0);
 RGB := getpixel(dc,X,Y);
 releasedc(0,dc);
  label4.Caption := inttostr(getRvalue(rgb));
  label5.Caption := inttostr(getGvalue(rgb));
  label6.Caption := inttostr(getBvalue(rgb));


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:32 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