Pixel vom Pointer lesen klappt nicht...

[turboPASCAL]

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...