我想渲染一个网页(即 TWebBrowser
) 到设备上下文。我想使用Internet Explorer的布局引擎将内容呈现到设备上下文(即图元文件,PDF图元文件)。
从 Internet Explorer 9 开始,不再支持 IHTMLElementRender
接口:
IHTMLElementRender 接口
使用此接口将元素的内容绘制到指定的设备上下文(通常是打印机)。
成员
IHTMLElementRender 接口继承自 IUnknown 接口,但没有其他成员。
以至于他们不再提到 DrawToDC 方法甚至存在:
IHTMLElementRender::D rawToDC Method
荒废的。将元素的内容绘制到指定的设备上下文。
语法
HRESULT DrawToDC( HDC hDC );
参数
- 氢直流电
[在]指定要绘制到的设备(通常是打印机)的 HDC。返回值
如果成功,则返回S_OK,否则返回错误值。
言论
从 Windows Internet Explorer 9 开始,此方法已弃用,不应使用。
对于某些打印机,运行IHTMLElementRender::D rawToDC可能会导致问题。您可以确保 IHTMLElementRender::D rawToDC 在所有打印机上正常工作,方法是先运行 IHTMLElementRender::SetDocumentPrinter 方法,然后将修改的设备上下文传递给 IHTMLElementRender::D rawToDC。
注意:我引用了所有文档,以便在最终将其从MSDN中完全删除时仍然可以找到Microsoft。连同接口声明:
IHTMLElementRender = interface(IUnknown)
['{3050F669-98B5-11CF-BB82-00AA00BDCE0B}']
function DrawToDC(hdc: HDC): HResult; stdcall;
function SetDocumentPrinter(const bstrPrinterName: WideString; hdc: HDC): HResult; stdcall;
end;
使用IViewObject
界面
我尝试转换为使用IViewObject
(例如,如何在不使用网络浏览器的情况下呈现 HTML 元素?
procedure RenderWebBrowserToMetafile(Browser: TWebBrowser; Metafilename: string);
var
view: IViewObject;
m: TMetafile;
mc: TMetafileCanvas;
w, h: Integer;
r: TRect;
dpix: Integer;
dpiy: Integer;
dc: HDC;
begin
w := WebBrowserScrollWidth(Browser);
h := WebBrowserScrollHeightStrict(Browser);
//96dpi screen to 300dpi metafile (destined for printer)
dc := GetDC(0);
try
dpix := GetDeviceCaps(GetDC(0), LOGPIXELSX);
dpiy := GetDeviceCaps(GetDC(0), LOGPIXELSY);
finally
ReleaseDC(0, dc);
end;
w := MulDiv(w, 300, dpix);
h := MulDiv(h, 300, dpiy);
view := Browser.Document as IViewObject;
m := TMetafile.Create;
try
m.Width := w;
m.Height := h;
r := Rect(0, 0, w, h);
mc := TMetafileCanvas.Create(m, 0);
try
view.Draw(
DVASPECT_CONTENT, //draw aspect
1, //index
nil, //pAspectInfo
nil, //pDVTargetDevice
0, //Target Device Context
mc.handle, //hdcDraw
@r, //target Bounds
@w, //window bounds (for metafiles)
nil, //continue function
0); //continue value
finally
mc.Free;
end;
m.SaveToFile(Metafilename);
finally
m.Free;
end;
end;
此代码的问题在于它只呈现浏览器的可见区域(即没有滚动的内容):
我需要渲染整个网页(例如用于打印)。
我尝试将绘制方面从DVASPECT_CONTENT
(如本例所示)更改为DVASPECT_DOCPRINT
:
DVASPECT_DOCPRINT 提供屏幕上对象的表示形式,就像使用"文件"菜单中的"打印"命令打印到打印机一样。所描述的数据可以表示一系列页面。
结果相同;不呈现页面,只呈现可见部分:
如何要求 IE9 渲染引擎进行渲染?
我还尝试使用不同的索引以及DVASPECT_DOCPRINT
.虽然IViewObject
没有记录,但也许这就是你打印不同"页面"的方式:
view.Draw(DVASPECT_DOCPRINT, 1, ...);
view.Draw(DVASPECT_DOCPRINT, 2, ...);
view.Draw(DVASPECT_DOCPRINT, 3, ...);
...
view.Draw(DVASPECT_DOCPRINT, n, ...);
但是WebBrowser并不关心索引是什么;只呈现当前View
(我认为这在使用IViewObject
时是有意义的)。
如何将浏览器呈现到设备上下文?
注意:该问题标记为 delphi
,但此问题中没有任何特定于德尔菲的内容。
更新:我还尝试了其他方面和索引的组合:
view.Draw(DVASPECT_CONTENT, -1, ...);
view.Draw(DVASPECT_DOCPRINT, -1, ...);
view.Draw(DVASPECT_CONTENT, 0, ...);
view.Draw(DVASPECT_DOCPRINT, 0, ...);
使用 IViewObject,您可以创建当前视口的屏幕截图。我使用一个技巧来创建网页(没有任何框架)或框架文档的屏幕截图。
- 使用 scrollWidth/scrollHeight/scrollLeft/scrollTop 计算完整的文档大小(检查 IHtmlDocument2 和 IHtmlDocument3 接口)
- 锁定窗口更新并将文档调整为计算出的全尺寸
- 使用IViewObject创建一个快照(你上面的代码似乎没问题)
- 将文档恢复到其原始大小并解锁窗口更新
请注意,当文档非常大时,应小心执行此操作。