Pixelweise Bildbearbeitung

Zugriff durch Canvas.Pixels

Vorteile:

• Sehr einfach anzuwenden
• Funktioniert für alle Farbtiefen/Pixelformate
• Geringes risiko falsche Bereiche zu überschreiben

Nachteile:

• Sehr langsam

begin

Man greift über die Pixels Eigenschaft des Canvas auf die Pixeldaten des Bitmaps zu. Dabei wird der Farbe des Pixels automatisch von/zu TColor konvertiert. Diese Methode ist jedoch extrem langsam, und daher höchstens zum ändern einzelner Pixel, jedoch nicht für ein ganzes Bild geeignet.

Beispiel:

procedure Invert(bmp:TBitmap);
var x,y:integer;
begin
 for y:=0 to bmp.height-1 do
  for x:=0 to bmp.width-1 do
   bmp.canvas.pixels[x,y]:=bmp.canvas.pixels[x,y]xor $FFFFFF;
end;

Zugriff mittels scanline

Vorteile:

• Sehr schnell

Nachteile:

• Bei komplexeren Manipulationen umständlich
• Kein zugriff über x,y -Koordinate
• Hohes Risiko falsche Bereiche zu überschreiben
• Man muss den code für jedes Pixelformat extra erstellen.
• Für 24BPP ungünstig, da es keinen 3byte großen primitiven typ gibt. (Geschwindigkeitsvorteiteil gegenüber Arraymethode sinkt)

Beschreibung: Man holt sich mittels der scanline eigenschaft des Bitmaps einen direkten zeiger auf die zeilenanfänge. Mittels Zeigermanipulation bearbeitet man anschließend die Pixeldaten. Das ist natürlich sehr schnell, besonders für 8,16 und 32bit. Man kann jedoch nur schwer mittels koordinaten auf einzelne pixel zugreifen, man arbeitet die pixel üblicherweise in zeilen nacheinander ab. Es ist außerdem Vorsicht geboten, damit man nicht unabsichtlich über den Datenbereich hinaus liest/schreibt. Diese Methode spielt ihren Geschwindigkeitsvorteil(gegenüber der Arraymethode) vor allem dann aus, wenn man einfache Änderungen an Pixeldaten durchführt, die nicht von anderen Pixeln abhängen und die Pixel direkt in einen Integertyp geladen werden können.

Beispiel:

Type TPixel=packed record B,G,R:byte;
procedure Invert(bmp:TBitmap);
var p:^TPixel;
    x,y:integer;
begin
 if bmp.pixelformat<>pf24bit then raise exception.create('Pixelformat not supported');
 for y:=0 to bmp.height-1 do
  begin
   p:=bmp.scanline[y];
   for x:=0 to bmp.width-1 do
    begin
     p.r:=p.r xor $FF;
     p.g:=p.g xor $FF;
     p.b:=p.b xor $FF;
     inc(p);//1Pixel weiter
    end;
  end;
end;

Zugriff mittels dynamischer arrays

Vorteile:

• Schnell
• Flexibel (Zugriff über x,y-Koordinate)

Nachteile

• Mittleres Risiko falsche Bereiche zu überschreiben
• Man muss den code für jedes Pixelformat extra erstellen.

Beschreibung: Auch hier holt man sich wieder per scanline die Zeiger auf die Zeilenanfänge. Statt sie jedoch direkt zu verwenden schreibt man sie in ein dynamisches Array, dessen Größe auf die höhe des Bitmaps gesetzt wird. Dabei wird der untypisierte Pointer auf den Zeilenanfang in einen Zeiger auf ein array von Pixeln umgewandelt. Anschließend kann man mittels Pixels[y,x] auf die einzelnen Pixel zugreifen. Für andere Pixelformate muss muss TPixel anders definiert werden. Man sollte jedoch darauf achten nur Koordinaten aus dem gültigen Bereich zu übergeben.

Beispiel:

Type TPixel=packed record b,g,r;end;
     TPixelArray=array[0..715827881]of TPixel;//Knapp unter 2GB
     PPixelArray=^TPixelarray;
     TPixels=array of PPixelarray;
procedure Invert(bmp:TBitmap);
var Pixels:TPixels;
    x,y:integer;
begin
 if bmp.pixelformat<>pf24bit then raise exception.create('Pixelformat not supported');
 //Pixels initialisieren
 setlength(Pixels,bmp.height);
 for y:=0 to bmp.height-1 do
  Pixels[y]:=bmp.scanline[y];
 //Bild bearbeiten
 for y:=0 to bmp.height-1 do
  for x:=0 to bmp.width-1 do
   begin
    Pixels[y,x].r:=Pixels[y,x].r xor $FF;
    Pixels[y,x].g:=Pixels[y,x].g xor $FF;
    Pixels[y,x].b:=Pixels[y,x].b xor $FF;
   end;
end;

procedure Grayscale(bmp:TBitmap);
var Pixels:TPixels;
    x,y:integer;
begin
 if bmp.pixelformat<>pf24bit then raise exception.create('Pixelformat not supported');
 //Pixels initialisieren
 setlength(Pixels,bmp.height);
 for y:=0 to bmp.height-1 do
  Pixels[y]:=bmp.scanline[y];
 //Bild bearbeiten
 for y:=0 to bmp.height-1 do
  for x:=0 to bmp.width-1 do
   begin
    Pixels[y,x].r:=(Pixels[y,x].r+Pixels[y,x].g+Pixels[y,x].b)div 3;
    Pixels[y,x].g:=Pixels[y,x].r;
    Pixels[y,x].b:=Pixels[y,x].r;
   end;
end;

procedure Sharpen(BmpIn,BmpOut:TBitmap);
begin
var PixelsIn,PixelsOut:TPixels;
    x,y:integer;
begin
 if BmpIn.pixelformat<>pf24bit then raise exception.create('Pixelformat not supported');
 if BmpIn=BmpOut then raise exception.create('BmpIn must be different from BmpOut');
 //BmpOut anpassen
 BmpOut.Width:=BmpIn.Width;
 BmpOut.Height:=BmpIn.Height;
 BmpOut.PixelFormat:=pf24bit;
 //Pixels initialisieren
 setlength(PixelsIn,BmpIn.height);
 for y:=0 to BmpIn.height-1 do
  Pixelsin[y]:=BmpIn.scanline[y];
 setlength(PixelsOut,BmpOut.height);
 for y:=0 to BmpOut.height-1 do
  PixelsOut[y]:=BmpOut.scanline[y];

 //Innen bearbeiten
 for y:=1 to BmpIn.Height-2 do
  for x:=1 to BmpIn.Width-2 do
   begin
   end;
end;