Jaja, da hab ich nicht richtig nachgedacht. Da steckt ein Fehler drinn.
Nutze die von Muetze1, die passt einfach genial.
Delphi-Quellcode:
function GetPixelFromMonoBitmap(bmp: TBitmap; x, y: Integer): TDigits;
var
lPixel: pByte;
lBit: Integer;
begin
lPixel := bmp.Scanline[y]; // Pixelline holen
Inc(lPixel, x div 8); // welches Byte
lBit := x mod 8; // in welchem Byte ist der Bit der das Pixel ist
// ist Pixel (0 oder 1) und Bit im Byte > 1 dann Pixel gesetzt (1)
If ( lPixel^ and ( 1 shl (7 - lBit))) > 0 Then Result := 1
// ist Pixel (0 oder 1) und Bit im Byte < 1 dann Pixel nicht gesetzt (0)
Else Result := 0;
end;
Kommentiert, hoffentlich richtig.
