Hi,

Ich habe hier ein kleines Problem, ich möchte einen Pixel vom Pointer lesen bzw. diesen setzen.
Das sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure {TGraphic.}SetPixel32(x, y: integer; Color: Cardinal);
var
  rgba: PDWORD;
begin
  if fPixelFormat = pf32Bit then
  begin
    rgba := PDWORD(DWORD(pBmpBits) + DWORD(x + y * fWidth) * 4);
    rgba^ := Color;
  end else
    Windows.SetPixel(fDC, x, y, Color);
end;

Leider bekomme ich eine AV (216). Was mach ich denn falsch ?

Wo zeigt denn pBmpBits hin?

PS: Im Bitmap liegen die Zeilen andersrum im Speicher,
bzw. die Zeilen werden von unten nach oben hintereinander da rum.

markieren

Delphi-Quellcode:

rgba := PDWORD(DWORD(pBmpBits) + DWORD(x + (fHeight - 1 - y) * fWidth) * 4);

// pBmpBits muß dabei auf die letzte Zeile zeigen, also ScanLine(fHeight - 1)

Oder du veränderst die Formel noch etwas und rechnest von ScanLine(0) aus.

Zitat:

Wo zeigt denn pBmpBits hin?

markieren

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.

zusammenfalten · markieren

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