如何在不使用Web浏览器的情况下呈现HTML元素？

Question

有没有办法在不使用任何Web浏览器控件的情况下在画布上绘制特定的HTML元素内容？

使用此代码,我将元素呈现给窗体的画布(仅作为示例).
它虽然有效,但这段代码不是一个好习惯 - 见下文,为什么......

uses
  SHDocVw, MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
var
  WebBrowser: TWebBrowser;
  HTMLElement: IHTMLElement;
  HTMLRenderer: IHTMLElementRender;
begin
  WebBrowser := TWebBrowser.Create(nil);
  try
    WebBrowser.ParentWindow := Application.Handle;
    WebBrowser.Navigate('https://stackoverflow.com/questions/2975586/good-delphi-blogs');

    while WebBrowser.ReadyState < READYSTATE_COMPLETE do
      Application.ProcessMessages;

    HTMLElement := (WebBrowser.Document as IHTMLDocument3).getElementById('question');
    HTMLRenderer := (HTMLElement as IHTMLElementRender);
    HTMLRenderer.DrawToDC(Canvas.Handle);

  finally
    HTMLElement := nil;
    HTMLRenderer := nil;
    WebBrowser.Free;
  end;
end;

这很糟糕,因为

• 它使用隐藏的TWebBrowser控件,但我想通过IHTMLDocument接口直接加载HTML文档并在我自己的画布上呈现某些元素
• 如果我创建并加载IHTMLDocument手动如这样则渲染方法IHTMLElementRender.DrawToDC不画任何东西(也许是因为没有画布文档的渲染)
• 更糟糕的是IHTMLElementRender.DrawToDC此时已被弃用,所以我正在寻找一种替代方法来在我自己的画布上渲染元素

有没有一种干净的方法来解决这个使用MSHTML？

Answer 1

DrawToDC 和IViewObject都需要 TWebBrowser 控件才能将文档实际呈现到目标 DC 中。