Zitat:
Wo zeigt denn pBmpBits hin?
Delphi-Quellcode:
//...
Result := CreateDIBitmap(TempDC, BmpInfo.bmiHeader, CBM_INIT, BitmapBits, BmpInfo, DIB_RGB_COLORS);
Ist also der Zeiger auf die Bitmap Bits.
In einem anderem Programm bekomm ich mit meiner Metode keine
AV. ( siehe Metaballs - Demo )
Das auslesen eines Pixels klapp komischer weise ohne Probleme.
Delphi-Quellcode:
function TGraphic.GetPixel32(x, y: integer): Cardinal;
var
rgba: PDWORD;
begin
Result := 0;
if fPixelFormat = pf32Bit then
begin
rgba := PDWORD(DWORD(pBmpBits) + DWORD(x + y * fWidth) * 4);
result := DWORD(rgba);
end;
end;
Add:
Hm, nutze ich
CreateDIBSection
ist alles in Butter...