Hallo Perlfans,

suche noch andere Möglichkeiten um die Farbe eines
Pixels auf dem Desktop zu ermitteln. Bisher:

use Win32::GUI;
$screen = new Win32::GUI::DC("DISPLAY");
$pixfarb = $screen -> GetPixel (1, 1);
....

man bekommt hier ne ziemlich grosse zahl die man dann wieder in ne Hexzahl, und die Hexzahl dann nochmal drehen muss um dann die äquvalente RGB-Zahl zu bekommen. Mir ist dass ganze zu umständlich. Weiss jemand noch einen andere Möglichkeit die Farbe eines Desktop-Pixels zu ermitteln. Am Besten gleich in einem ordentlichen Hex-Wert oder noch besser RGB-Wert?

schöne grüsse
rommi

Jetzt bin ich es nochmal :-)

Mir würde schon helfen wenn jemand weiss wie ich den Inhalt von $screen zuverlässig in den adäquaten RGB-Wert (z.B. 255,255,255) umwandeln kann!

Gruss
rommi

Was bekommst du, wenn du die Werte so abfragst:

*grml* unmarkierter Crosspost:
http://perlboard.de/cgi-bin/perlboard.pl?action=sh...

Es wäre schon schön, zu schreiben, wo du noch um Hilfe ersuchst.
Crosspostings sind ok, aber manche hier posten auch in mehreren Foren und ärgern sich dann, dass im andere Forum die Lösung schon steht oder sie helfen, und hier noch weiter um Hilfe gebeten wird.

Hallo Perlfans,

sorry habe gestern echt meinen Beitrag etwas schnell schnell reingeklopft
ohne genau zu erklären was ich will :-(

Das doppelte Posting sollte niemand verärgern aber man hat halt einfach mehr
Resonanz u. mehr Lösungen (gerade in Perl) und manchmal einen Zeitvorteil.
Aber nachdem ja viele Ratgeber in verschiedenen Perlforen tätig sind ist es
natürlich auch nicht unentdeckt geblieben. BB is watching u .. lol. Sollt
ich es wieder einmal übersehen (ich poste eher selten) dann nicht gleich Kopf-
abreiss (aua aua). Werd hoffentlich das nächstemal dran denken einen Hinweis
zu geben oder bis zu meiner nächsten Frage sind alle wichtigen Perlforen zu
einem ÜberMegaPerlHilfeForum (ÜMPHF) zusammen geschaltet :-))

Zu meinem Problem:
Ziel ist es den Farbwert eines beliebigen Pixels auf meinen Desktop zu
ermittlen und genau diesen Farbwert später als Pixel mit dem selben Farb-
wert in ein Bild einzufügen. Ich nehme mal als Beispiel die Pixelfarbe der
Koordinate 1,1 von meinem Desktop (Programmierstil habe ich jetzt nicht be-
achtet).

use Image::Magick;
use Win32::GUI;

$screen = new Win32::GUI::DC("DISPLAY");
$pixfarb = $screen -> GetPixel (1, 1);
## Inhalt von $pixfarb ist jetzt "10841658". Die Zahl "10841658" ist
## das Äquivalent zum Hex-Wert #3A6EA5 bzw. RGB-Wert 58,110,165. Die
## Leider kann ich die Zahl "10841658" in späteren Befehlen nicht dir-
## ekt verwenden sondern muss die Zahl vorher in einen Hexwert oder
## für andere Funktionen in einen RGB-Wert umwandeln.

$pixfarbhex = sprintf("#%X", $pixfarb);
## Inhalt von $pixfarbhex ist jetzt "#A56E3A". Da ist aber dann schon
## ein Dreher drin denn eigentlich sollte der äquivalente Hexfarbwert
## "#3A6EA5" sein!!
## Der Hexwert "#A56E3A" ist aber eine ganz andere Farbe als der Hex-
## wert "#3A6EA5". Ganz krass ist es z.B. bei dem Wert "12643" (ist
## ne ziemlich dunkle braune Farbe). Wenn ich diesen Wert "12643" in
## eine Hexzahl wandle kommt "#3163" raus. Der äquivalente Hexfarbwert
## für "12643" ist aber "#633100" und nicht "#3163". Das ist eine völlig
## andere Farbe!! Also schon bei der Umwandlung in eine Hexzahl habe ich
## Probleme. Auch die Nullen werden bei der Umwandlung nicht dargestellt.

$image = Image::Magick->new;
$image->Set(size=>"200x200");
$image->ReadImage('xc:white');


$image->Set("pixel[5,8]"=>"$pixelfarbhex"); # ich füge hier ein Pixel
# mit dem ermittelten Farb-
# wert ein.
## In diesem Befehl wird halt ein Hexwert erwartet. D.h. ich kann den
## Wert aus $pixfarb "10841658" hier nicht direkt verarbeiten sondern
## benötige einen Hexwert. Und wie ich es schon erwähnte habe ich Prob-
## leme mit der Umwandlung sodass ich den entsprechend richtigen Hexwert
## habe.

$pic1 = $image->Write('C:\Verzeichnisxy\name.gif'); # Bild abspeichern


Also am Besten wäre es den Wert aus $pixfarbhex direkt (ohne Hexumwandlung)
weiterverarbeiten zu können oder wenigstens eine sichere Umwandlung in den
entsprechenden richtigen Hexwert zu realisieren. Vielleicht gibt es ja auch
einen ganz andere Lösungsansatz? Vielleicht kann man auch irgendwie mit RGB-
Werten arbeiten?


An Struppi:
@pixfarb enthält den gleichen Wert wie wenn ich $pixwert nehmen!

gruss, rommie

--- Offene Systeme könenn ja nicht ganz "dicht" sein! ----

Quote

GetPixel (x, y)

Return pixel value color at x, y or undef if error. For image with BPP <= 8 return palette index color. For image with BPP > 8 return color value. This color value can be an integer value or a [B,G,R,A] array.

Schonmal nachgesehen ob du nich ne Arrayreferenz bekommst?

edit:
Ansonsten kannste natürlich die einzelnen Werte noch aus dem integer holen:

Eventuell ist die Reihenfolge genau verkehrtherum, das hängt vom jeweiligen Prozessor ab, wie asphalt im perlboard ja bereits geschrieben hat.

edit2: Oh sehe grad das das Problem ja bereits gelöst is, naja egal.

MfG

jo, danke!

gruss
rommi