Bitmap (s/w) einlesen und Zeile für Zeile nach schwarzen Pixeln suchen

[Claudius Brüchner]

Hi zusammen,

ich stehe da vor einem Problem. Und zwar möchte ich eine Bitmap Datei die schwarz/weiß ist, Zeile für Zeile nach schwarzen Pixeln durchsuchen und die Stelle der schwarzen Pixel in ein Array schreiben. Ich hab schon ein bisschen begonnen:

var
bmp:TGPBitmap;
Color:Cardinal;
r:Integer;
g:Integer;
b:Integer;

begin
SetLength(v,100);
SetLength(v[0],100);

bmp:= TGPBitmap.Create('Pfad und name der Bitmap');

bmp.GetPixel(0,0,Color);
bmp.GetWidth;
bmp.GetHeight;

r:=GetRValue(Color);
g:=GetRValue(Color);
b:=GetRValue(Color);
end;

Für eine gute Hilfe wäre ich dankbar.

mfg
Claudius

[Hagen Reddmann]

<pre>

type
PCardinalArray = ^TCardinalArray;
TCardinalArray = array[0..MaxInt shr 3 -1] of Cardinal;
var
ScanLine: PCardinalArray;
X,Y: Integer;
begin
bmp := ....
bmp.PixelFormat := pf32Bit;
for Y := 0 to bmp.Height -1 do
begin
ScanLine := bmp.ScanLine[Y];
for X := 0 to bmp.Width -1 do
if ScanLine[X] = 0 then
....
....

</pre>

Gruß Hage