Delphi Chromium Embedded - XE3

[API]

Hallo,

Beim Kompilieren der unit ceffmx.pas zeigt es einige Fehlermeldungen an. Kann mir jemand helfen, den Code für XE3 lauffähig zu machen?

Zitat:

[dcc32 Error] ceffmx.pas(440): E2003 Undeclared identifier: 'ScanLine'

Delphi-Quellcode:

function CefGetBitmap(const browser: ICefBrowser; typ: TCefPaintElementType; Bitmap: TBitmap): Boolean;
var
  w, h, i: Integer;
  p, s: Pointer;
begin
  browser.GetSize(typ, w, h);
  Bitmap.SetSize(w, h);
  GetMem(p, h * w * 4);
  try
    Result := browser.GetImage(typ, w, h, p);
    s := p;
    for i := 0 to h - 1 do
    begin
      Move(s^, Bitmap.ScanLine[i]^, w*4);
      Inc(Integer(s), w*4);
    end;
  finally
    FreeMem(p);
  end;
end;

Zitat:

[dcc32 Error] ceffmx.pas(440): E2017 Pointer type required

    Move(s^, Bitmap.ScanLine[i]^, w*4);

Zitat:

[dcc32 Error] ceffmx.pas(809): E2003 Undeclared identifier: 'StartLine'

   dst := @PByte(StartLine)[offset]; // StartLine ist vermutlich eine Eigenschaft von TBitmap

Zitat:

[dcc32 Error] ceffmx.pas(815): E2034 Too many actual parameters

    Move(src^, dst^, offset);

Zitat:

[dcc32 Error] ceffmx.pas(1060): E2003 Undeclared identifier: 'Platform'

    with AbsoluteToLocal(Platform.GetMousePos) do

[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;

[rweinzierl]

Hallo

Vielleicht hilft das

https://groups.google.com/forum/#!to...ed/rLt4wgRDy0c

mfg

Reinhold

[jaenicke]

Wenn du nicht FireMonkey nutzt, brauchst du die ceffmx.pas gar nicht.