如何以编程方式获取tchromium加载文档的屏幕截图

Question

我找不到一种正确的方法来获取在tchromium vcl控件中以表单形式加载的文档的图片。

寻找一种将文档作为文件或流的位图获取的方法。delphi/tchromium组件

Answer 1

TChromium继承了TWinControl，因此它有一个HANDLE，可以与BitBlt一起使用，以获取指定组件的"屏幕截图"。这篇文章几乎涵盖了所有内容。

Answer 2

很抱歉发布了一个几乎没有问题的帖子，但对于未来的开发人员来说，重要的是要知道铬（CEF4）有一种方法"Chromium.TakeSnapshot（bmp）"；获得加载组件的屏幕截图。

Answer 3

保存到图片功能在DCEF3中不再可用。但是cef-r2.31有它。

procedure Tfmmain.Button1Click(Sender: TObject);
var
  lol:TPicture;
begin
  lol:=TPicture.Create;
  Chromium1.Browser.GetBitmap(PET_VIEW,lol.Bitmap);
  lol.SaveToFile('c:lol.bmp');
  lol.Free;
  lol:=nil;
end;

Answer 4

我认为从整个应用程序屏幕拍摄快照会更容易。试试这个：

function screenshot: boolean;
var
  Bild : TBitmap;
  jpg : tjpegimage;
  c: TCanvas;
   r: TRect;
begin
try
   c := TCanvas.Create;
   bild := tbitmap.Create;
   c.Handle := GetWindowDC(GetDesktopWindow);
   try
    r := Rect(0, 0, Screen.Width, Screen.Height);
     Bild.Width := Screen.Width;
     Bild.Height := Screen.Height;
     Bild.Canvas.CopyRect(r, c, r);
     JPG := TJpegImage.Create;
     jpg.smoothing := true;
     jpg.CompressionQuality := 60 ;
     jpg.Assign(bild);
     jpg.compress;
     jpg.SaveToFile(dircamp+'screen.jpg');
   finally
    ReleaseDC(0, c.Handle);
     Bild.free;
     jpg.free;
     c.Free;
   end;
except
end;

Answer 5

屏幕外渲染器组件具有用于将数据复制到屏幕的OnPaint方法，您可以使用它来保存图像