从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。我使用这个组件来处理我的内部电子邮件编辑器（它看起来是你的后面）。