從TWebBrowser中顯示的網頁中提取文本

Question

我使用delphi 7，並且我想直接從顯示在TWebBrowser（無圖像....）中顯示的網頁中提取顯示在網頁中的文本。它可以完成&我該怎麼做？

Answer 1

我用下面...

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
    const pDisp: IDispatch; var URL: OleVariant); 
var 
    Document: IHtmlDocument2; 
begin 
    edit1.text:=url; 
    document := webbrowser1.document as IHtmlDocument2; 
    memo2.lines.add(trim(document.body.innerhtml)); // to get html 
    memo1.lines.add(trim(document.body.innertext)); // to get text 
end; 

Answer 2

如果你想這個加載到TRichEdit，那麼我建議在看它必須從HTML流加載數據的能力WPTools成分，導出爲RTF。我使用這個組件來處理我的內部電子郵件編輯器（它看起來是你的後面）。