Delphi Chromium Embedded - XE3

[sx2008]

Das Problem ist wohl, dass Pointer s keinen Datentyp hat.
Ungetestet (hab kein XE)

Delphi-Quellcode:

function CefGetBitmap(const browser: ICefBrowser; typ: TCefPaintElementType; Bitmap: TBitmap): Boolean;
var
  w, h, i: Integer;
  p : Pointer;
  s : PInteger;  // Zeiger auf einen Integer mit 4 Byte
begin
  browser.GetSize(typ, w, h);
  Bitmap.PixelFormat := pf32bit;  // Wichtig
  Bitmap.SetSize(w, h);

  GetMem(p, h * w * 4);
  try
    Result := browser.GetImage(typ, w, h, p);
    s := PInteger(p);
    for i := 0 to h - 1 do
    begin
      Move(s^, Bitmap.ScanLine[i]^, w*4);
      Inc(s);
    end;
  finally
    FreeMem(p);
  end;
end;