D11.2 64Bit inaccessible value (gelöst)

[venice2]

Seit D11.2 tritt unter 64Bit folgender Fehler auf.

Beim initialisieren von lPixel bekomme ich "inaccessible value"
Der selbe Quelltext unter 32Bit funktioniert.
Unter D11 hat auch 64Bit funktioniert jetzt plötzlich nicht mehr.

Hat vielleicht jemand eine Info was geändert wurde?

Delphi-Quellcode:

procedure TSkinEngine.CreateFormRegion(hParent: HWND; TransColor: COLORREF);
var
  p32: PByte;
  lPixel: PRGBQuad;
begin
  // nur relevanter Quelltext des Fehlers
  p32 := PByte(integer(bm.bmBits) + (bm.bmHeight - 1) * bm.bmWidthBytes);
  for Y := 0 to bm.bmHeight - 1 do
  begin
    X := 0;

    while X < bm.bmWidth do
    begin
      M := X;

      lPixel := PRGBQuad(integer(p32) + X * sizeof(cardinal));
      while X < bm.bmWidth do
      begin
        try"
          K := MakeColor(0, lPixel^.rgbRed, lPixel^.rgbGreen, lPixel^.rgbBlue) and $FFFFFF; // Fehler "lPixel^.rgbRed" usw. inaccessible value
        except
          K := 0;
        end;

[himitsu]

Versuche mal lPixel.rgbGreen

Delphi hat hier standardmäßig eine implizite Dereferenzierung, wenn man auf ein Feld oder Methode eines Record-Pointers zugreift.
Vielleicht funktioniert es mit dem Standard-Verhalten besser, als wenn du es explizit/selber dereferenzierst.



oder

Delphi-Quellcode:

var
  p32: PByte;
  //lPixel: PRGBQuad;
begin
  ...

    while X < bm.bmWidth do
    begin
      M := X;

      var lPixel := PRGBQuad(integer(p32) + X * sizeof(cardinal));
      while X < bm.bmWidth do

Ach ja, wenn dein Code mal knallt, weil du Integer(p32) anstatt NativeInt(p32) oder IntPtr(p32) machst, dann zurecht. (ebenso bei integer(bm.bmBits) )

Zitat:

hat auch 64Bit funktioniert

dann hattest zu viel du Glück, aber irgendwann ist es zuende.


lPixel := p32 + X; (falls niemand die Pointer-Arithmetic deaktiviert hat )


Wo ist K definiert?


Was macht MakeColor? Und ich seh da ein 0 ... Ist dann and $FFFFFF wirklich nötig?
RGB

[venice2]

var lPixel := PRGBQuad(integer(p32) + X * sizeof(cardinal)); Macht keinen unterschied.
lPixel.rgbGreen ebenso wenig.

Es bleibt bei "inaccessible value"

Dein Hinweis mit bm.bmBits hat mich auf die Lösung gebracht. Danke!

Delphi-Quellcode:

p32 := PByte(Long_PTR(bm.bmBits) + (bm.bmHeight - 1) * bm.bmWidthBytes);
lPixel := PRGBQuad(Long_PTR(p32) + X * sizeof(cardinal));