问一个WebBrowser的问题，郁闷一天了！(50分)

我写了一个过程，作用是遍历文件夹下的所有网页，并取出每个网页的文本内容，其中有两句总是报错：<br>循环...<br>begin<br>1 &nbsp;url:='网页地址';<br>2 &nbsp;WebBrowser1.Navigate2(url);//打开网页<br>3 &nbsp;memo1.line.add(IhtmlDocument2(WebBrowser1.Document).Body.outerText);<br>end;<br>当执行第3句时出错，问题可能是WebBrowser1没有把网页下载完造成的，现在不知道如何解决，请大家帮帮忙。

要在下载完成的事件里面 用第三句

在oncompl……中写

第三句在webBrowser的WebBrowser1DocumentComplete過程理寫if not WebBrowser1.busy然後再執行你memo1.line.add(IhtmlDocument2(WebBrowser1.Document).Body.outerText);

給分吧。。一定中。。

同意 pllink_qyd的方法

1 &nbsp;url:='网页地址';<br>2 &nbsp;WebBrowser1.Navigate2(url);//打开网页<br>3<br> &nbsp; &nbsp; &nbsp; while WebBrowser1.ReadyState &lt; READYSTATE_COMPLETE do<br> &nbsp; &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;application.ProcessMessages;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;sleep(1);//不加的话，cpu好象占用很高<br> &nbsp; &nbsp; &nbsp; &nbsp;end;<br><br>4 &nbsp;memo1.line.add(IhtmlDocument2(WebBrowser1.Document).Body.outerText);