DCEF3：如何获取屏幕截图

Question

如何在 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;
  

Answer 1

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

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

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

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