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

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.

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);//3 Byte 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
 //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
 //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;