1

如何在 DCEF3 中获取浏览器的屏幕截图？

我在没有 VCL 的情况下创建这样的浏览器。该TakePicture方法仅在以下情况下有效

  • 没有使用调试器

  • 如果使用 ShowWindow

    var
  info: TCefWindowInfo;
  Settings: TCefBrowserSettings;
begin
  FillChar(info, SizeOf(info), 0);
  info.width := width;
  info.height := height;
  FillChar(Settings, SizeOf(TCefBrowserSettings), 0);
  Settings.Size := SizeOf(TCefBrowserSettings);
  GetSettings(Settings);
  CefBrowserHostCreateBrowser(@info, FHandler, FDefaultUrl, @settings, nil);
end;

procedure TakePicture(const Browser: ICefBrowser; Height, Width: Integer);
var
  DC: HDC;
  Bmp : TBitmap;
  Handle : HWND;
  Rect : trect;
  BarHeight : integer;
  BarLeft : integer;
begin
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf32bit;
  Handle := Browser.Host.WindowHandle;
  ShowWindow(handle, SW_RESTORE); // will work only if this is used otherwise black image!
  BarLeft := GetSystemMetrics(SM_CXFRAME);
  BarHeight := GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME);
  GetWindowRect(Handle, Rect);
  DC := GetDC(Handle);
  Bmp.Width := Rect.Right - Rect.Left;
  Bmp.Height := (Rect.Bottom - Rect.Top);
  BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, DC, -BarLeft, -BarHeight, SRCCOPY);
  ReleaseDC(Handle, DC);
  Bmp.SaveToFile('c:\test.bmp');
  Bmp.Free;
end;
4

1 回答 1

1

这基本上是离屏渲染。在 DCEF3 的 demos 文件夹中，您会找到一个“屏幕外”项目。您要查找的代码是OnPaint在TChromiumOSR. 它呈现到TBitmap32，但任何位图都可以工作。请注意，它已被优化为仅绘制所谓的“脏”区域（自上次绘制以来已更改的区域），但如果您正在制作屏幕截图，那不是您想要的。在我签出存储库时，有一行注释掉，显示了只绘制所有内容的幼稚案例：

SomeBitmap.SetSize(width, height);
Move(buffer^, SomeBitmap32.Bits^, width * height * 4);

我最好的猜测是幻数4代表 4 个字节（32 位）。

我强烈推荐使用 Graphics32，但您必须使用常规的 TBitmap，我将由您自己决定如何将位数组转换为像素。加热它可能会慢很多。

于 2014-05-20T10:44:52.913 回答