html - 如何在不使用网络浏览器的情况下呈现 HTML 元素？

Question

有没有一种方法可以在不使用任何网络浏览器控件的情况下在 Canvas 上绘制特定的 HTML 元素内容？

使用这段代码，我将元素呈现到表单的 Canvas 上(仅作为示例)。
它虽然有效，但这段代码不是一个好的做法 - 见下文，为什么......

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 文档界面并在我自己的 Canvas 上渲染某些元素
• 如果我创建并加载 IHTMLDocument手动，例如this way然后是渲染器方法 IHTMLElementRender.DrawToDC不绘制任何东西(可能是因为没有用于呈现文档的 Canvas )
• 更糟糕的是 IHTMLElementRender.DrawToDC目前已弃用，所以我正在寻找一种替代方法来在我自己的 Canvas 上呈现元素

是否有使用 MSHTML 解决此问题的简洁方法？

Answer 1

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