李战:
如何判断TWebBrowser控件已经把页面下完了?
[阅读: 354] 2007-09-20 06:05:07
我在OnDocumentComplete判断
procedure TForm1.OnDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
if TWebBrowser(ASender).DefaultInterface = pDisp then
PageOk := TRUE
end;
这对仅于正规网页有效,对付那些难网页,这个事件就接管不到。
判断Browser.Busy和Browser.DefaultInterface.ReadyState均无效。
各位给点意见?
李战(leadzen)