Pixel gleicher Farbe zählen

[littleDave]

Das wird es wahrscheinlich sein @dominikkv, dein Bitmap hat keine 24/32 Bit.

bmp.PixelFormat := pf32Bit; array[0..3] of byte
bmp.PixelFormat := pf24Bit; array[0..2] of byte

Mit weniger Bits solltest du nicht rumhantieren, da du sonst die Werte erst "mühsam" in RGB-Werte umrechnen musst. Also schau mal, dass du bei dir
bmp.PixelFormat := pf24Bit; aufrufst

[dominikkv]

Wenn ich das ganze mit pf32Bit mache geht das wirklich ein ganzes Stück schneller!
Und wenn ich bei deiner Function, Neutral General, Result zunächst mit 0 initialisiere kommt auch wirklich das richtige Ergebnis raus 8)

Vielen Dank euch beiden für eure Hilfe

2 Fragen habe ich aber noch:
- Wird das ganze mit pf24Bit nochmal schneller?
- Wenn ja, wie komme ich dann zu meinem Farbwert, ich hab ja dann nur 2 Werte in dem Array, für RGB brauche ich aber 3

[Neutral General]

Hi,

1. Die 32-Bit Methode ist die schnellste.
2. [0..2] = 3 Einträge (24 Bit), [0..3] = 4 Einträge (32 Bit)

PS: Also bei mir ist das Array schon standardmäßig "genullt"...

Aber wenn du es schon nullen willst dann hätte ich da was für dich:

FillChar(Result[0],Length(Result)*SizeOf(Integer),0);

[dominikkv]

Zitat von Neutral General:

1. Die 32-Bit Methode ist die schnellste.

Ok, dann werde ich die verwenden.

Zitat von Neutral General:

2. [0..2] = 3 Einträge (24 Bit), [0..3] = 4 Einträge (32 Bit)

oh... das fängt bei 0 an... hab ich nicht gesehen
Darum ist bei mir bei den ersten Versuchen wahrscheinlich immer ein falsches Ergebnis rausgekommen -.-

Zitat von Neutral General:

PS: Also bei mir ist das Array schon standardmäßig "genullt"...

Aber wenn du es schon nullen willst dann hätte ich da was für dich:

FillChar(Result[0],Length(Result)*SizeOf(Integer),0);

Bei mir kam da immer ein anderes Ergebnis raus, nachdem ich das dann initialisiert habe wurds richtig...egal^^
Werde jetzt auf jedenfall FillChar verwenden, Danke

Nochmal Danke an euch beide