Bestimmte Farbe auf dem Desktop suchen

[speedy]

Das ist der verwendete Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var cx1, cy1, cx2, cy2, buffer : integer;
    dc : hdc;
begin
  dc := createdc('DISPLAY',nil,nil,nil);
  cy1 := strtoint(edit2.Text);           //start y
  cx2 := strtoint(edit3.Text);           //ende x
  cy2 := strtoint(edit4.Text);           //ende y
  while cy1 < cy2 do
    begin
      cx1 := strtoint(edit1.Text);        //start x
      while cx1 < cx2 do
        begin
          buffer := getpixel(dc,cx1,cy1);
          cx1 := cx1 + 1;
          if (buffer > 2300000) and (buffer < 2400000) then memo1.Lines.Add(inttostr(cx1)+' '+inttostr(cy1));  //genauer wert: 2302444
        end;
      memo1.Lines.Add('zeile '+inttostr(cy1));    //nur zum testen
      cy1 := cy1 + 3;                     //3 zeilen weiter springen
    end;
end;

Das seltsame ist auch, dass die CPU Auslastung gerade mal um 5 - 8 % ansteigt während er arbeitet.

Werde dann mal die Methode mit Scanline testen...

Gruß
speedy

[rollstuhlfahrer]

Dein Buffer ist ein Farbwert vom Typ TColor. Da liegen die Farben im Hex-Format ala $00RRGGBB (RR = Rot, GG = Grün, BB = Blau) drin. Deine Bereichsprüfung findet jetzt nicht nur Stellen, wo deine gewünschte Farbe drin ist, sondern auch noch alle stellen, die etwas mehr oder weniger Blau haben und weil dein Bereich so groß ist, darf sich der Wert von Grün auch noch dramatisch ändern und es fällt durch.

Bernhard

[DeddyH]

War das nicht anders herum (BGR)?

[stahli]

RGB stimmt.

[DeddyH]

Dann bin ich farbenblind.

Delphi-Quellcode:

procedure TForm5.FormCreate(Sender: TObject);
begin
  Color := $00FF0000;  //wäre demnach reines Rot
end;

Mein Formular wird aber blau.

[Wolfgang Mix]

@Detlef:
RGB war schon richtig. Du hast 2 Nullen zuviel!
So wird es richtig (grün)

Color := $00FF00;

[DeddyH]

Natürlich wird das grün, wenn ich bei 3 Teilen die beiden äußeren tausche und danach auf den mittleren zugreife

[BUG]

Kann es sein, dass die Endianness wieder mal verwirrend zugeschlagen hat?

Code:

Speicher (LOW ... HIGH):
0xRR | 0xGG | 0xBB | 0x00

Als Little-Endian-Integer:
0x00BBGGRR

[DeddyH]

Jepp, das kann einen manchmal in den Wahnsinn treiben

[Aphton]

Zitat von BUG:

Kann es sein, dass die Endianness wieder mal verwirrend zugeschlagen hat?

Code:

Speicher (LOW ... HIGH):
0xRR | 0xGG | 0xBB | 0x00

Als Little-Endian-Integer:
0x00BBGGRR

Pappalapapp!
Das hat doch nichts mit Endianness zu tun
Wenn man sagt, R steht - jetzt im Zehnersystem - an der Einserstelle, G an der Zehnerstelle und B an der Hunderterstelle, dann schreibt mans genauso an: 321:
R = 1
G = 2
B = 3

Genauso verhält es sich mit HEX
R steht an erster Stelle (Einserstelle), G an Sechtzehnerstelle, B an der 256'er Stelle!
Thus BGR!
Endianness hat nichts damit zu tun
Hier zumindest nicht!