【发布时间】:2013-08-09 10:27:09
【问题描述】:
如何检查 WebBrowser 何时完全完成?此代码不适用于繁重的 AJAX 网站。它会在站点真正完成之前触发,从而在 javascript 仍在运行时返回 HTML 代码。
我需要检查网站何时完全完成。这段代码用http://www.html5test.com测试过
procedure Browser_DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
Document: OleVariant;
WindowName: string;
begin
CurWebrowser := pDisp as IWebBrowser;
TopWebBrowser := (ASender as TEmbeddedWB).DefaultInterface;
if (CurWebrowser = TopWebBrowser) and not Browser.Busy and (Browser.ReadyState >= READYSTATE_COMPLETE) then begin
FDocumentLoaded:=True;
end;
end;
【问题讨论】:
标签: ajax delphi twebbrowser