Zitat von
Sunlight7:
Kann mal wer probieren, ob diese Funktion in neueren Delphi Versionen auch nen internen Fehler verursacht?!
Das hat mich was genervt..
Der Code scheint etwas zu komplex für den Compiler zu sein. Versuche einmal den Umweg über eine Hilfsvariable:
Delphi-Quellcode:
function GetPixel (Bitmap: TBitmap;
const x, y: Integer): LongInt;
var
sl : PByteArray;
idx : Integer;
begin
sl := Bitmap.ScanLine[y];
idx := x * 3;
Result :=
RGB(sl[idx + 2], sl[idx + 1], sl[idx]);
end;
Eine Alternative wäre der TypeCast mit
TRGBTriple aus der
Unit Windows.
Gruß Hawkeye