如何在不使用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。

Answer 2

也許你可以嘗試THtmlViewer？ http://code.google.com/p/thtmlviewer/

Answer 3

見THTMLabel從TMS軟件