我在使用TWebBrowser时，打开了网页，我怎么样可以取得TWebBrowser里的网页里的文本，并保存在字符串里。

Question

我在使用TWebBrowser时，打开了网页，我怎么样可以取得TWebBrowser里的网页里的文本，并保存在字符串里。

Answer 1

uses MSHTML;
//....
var
  S: string;
begin
  S := IHtmlDocument2(WebBrowser1.Document).body.outerText;
end;
//....

Answer 2

在网页没有完成显示出来的时候，我调用您的语句时，程序会报错，如果网页全部显示成功后程序不会报错，怎么才知道TWebBrowser是否已经把网页全部显示成功呢。

Answer 3

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  S: string;
begin
  if not Assigned(WebBrowser1.Document) then Exit;
  S := IHtmlDocument2(WebBrowser1.Document).body.outerText;
end;