Question

我无法找到一种正确的方法来获取表格中tchromium vcl控件中已加载文档的图片。

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

Answer 1

TChromium继承了TWinControl，因此它有一个HANDLE，可以与BitBlt一起使用来获取指定组件的“屏幕截图”。 This article几乎涵盖了所有内容。

Answer 2

在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 3

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

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 4

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

Answer 5

对于几乎死定的问题，我们深表歉意，但是对于未来的开发人员来说，重要的是铬（CEF4）具有一种“ Chromium.TakeSnapshot（bmp）”方法，可以获取加载的组件的屏幕快照。

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

5 个答案: