Moin!
Hinweise zu dem Code:
1. PRGBQuad und TRGBQuad sind in der Windows.pas definiert und somit kann es hier leicht zu Typ-Überschneidungen kommen
2. Ich würde niemals diese Einschränkung mit dem Array in Kauf nehmen sondern immer umgehen. Weil wenn man mal ein Bild mit einer Weite von mehr als 16385 hat, dann hagelts AVs bzw. RangeCheck Errors. Da man aber eh linear auf die Scanline zugreift (in den meisten Fällen) reicht es hier auch einfach ein PRGBQuad zu nehmen und diesen einfach immer zu inkrementieren.
3. Ich würde immer zur Sicherheit eine Abfrage einbauen in die Funktion, ob es wirklich ein PixelFormat von pf32Bit vorliegen, weil es sonst leicht mal zu Problemen führen kann - u.a. wenn es ein DDB Bitmap ist.
Delphi-Quellcode:
var y, x: Integer;
lPixel: PRGBQuad;
begin
for y := 0 to bmp.Height-1 do
begin
lPixel := bmp.ScanLine[y]; // hier lädst du die Farbwerte des Pixels
for x := 0 to bmp.Width-1 do
Begin
lPixel^.rgbReserved // ist dann der Alpha-Wert}
Inc(lPixel);
End;
end;
end;
MfG
Muetze1