为什么WebBrowser下载完成一个页触发两次onDocumentComplete事件

[xieg]

为什么WebBrowser下载完成一个页触发两次onDocumentComplete、onNavigateComplete、onNavigateComplete事件。
如果在这些事件下作处理数据容易出错，请教一下大家不如何解决。

[ccrun.com]

因为你浏览的页面可能有框架，框架中包含多少个页面，就会触发多少个onDocumentComplete事件。

[蒋晟]

每个单独的框架都可能会触发DocumentComplete事件。
框架集页面会最后触发DocumentComplete事件。
发送事件的对象可以通过DocumentComplete事件的第一个参数访问

[aiirii]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
Document: OleVariant;
WindowName: string;
begin
CurWebrowser := pDisp as IWebBrowser;
TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
if CurWebrowser = TopWebBrowser then
ShowMessage('Complete document was loaded')
else
begin
Document := CurWebrowser.Document;
WindowName := Document.ParentWindow.Name;
ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
end;
end;


这个可以知道真正的 onDocumentComplete

[zhuminghua]

mark

[leonkim]

Occurs when the document being navigated to reaches ReadyState_Complete.

Delphi syntax:

property OnDocumentComplete: TWebBrowserDocumentComplete;

Description

Write an OnDocumentComplete event handler to take specific action when a frame or document is fully loaded into the Web browser .For a document without frames, this event occurs once when the document finishes loading. On a document containing multiple frames, this event occurs once for each frame. When the multiple-frame document finishes loading, the Web browser fires the event one final time.

[QQgenie]

onDocumentComplete事件的完成不一定是真正的完成.

如果打开一个不存在的页面,或打开不了该页面,当一定时间后,onDocumentComplete事件照样发生,无论是用上面的
IF CurWebrowser = TopWebBrowser then

或用
if WebBrowser1.ReadyState = READYSTATE_COMPLETE then

都不能判断网页被真正下载.

所以得自己加一个判断有没有"无法找到该页"或"无法找到网页"来判断.

真搞不懂WebBrowser控件这么不好用!