Question

delphi webbrowser1 判断完成

请问，用DELPHI如何判断WEBBROWSER1已经加载完成了？
比如：webbrowser1.Navigate('www.baidu.com');
if 加载完成 then
webbrowser1.Navigate('www.163.com');

不要双击webbrowser1的属性ondocumentcomplet ，要逻辑判断加载完成。如果用IF写，该如何写？

Answer 1

procedure TDxSkinWebBrowser.DoDocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
hr: HRESULT;
pUnkBrowser,pUnkDisp: IUnknown;
begin
hr := (FWebBrowser.Application as IWebBrowser2).QueryInterface(IID_IUnknown,pUnkBrowser);
if Succeeded(hr) then
begin
hr := pDisp.QueryInterface(IID_IUnknown,pUnkDisp);
if Succeeded(hr) then
begin
if pUnkBrowser = pUnkDisp then //如果是顶层框架完成,则表示完成
begin
FWebUrlLoaded := True;
ReSetWebSize;
FWebBrowser.ClearEventList;//清除事件列表
if Assigned(FOnWebLoadUrlComplete) then
begin
if IsLoadFromFile then URL := FileUrl;
FOnWebLoadUrlComplete(Self,URl);
end;
end;

end;
end;
end;

Answer 2

while webbrowser1.busy then
Application.ProcessMessages;

while webbrowser1.ReadyState <>READYSTATE_COMPLETE do
Application.ProcessMessages;

加载完成
webbrowser1.Navigate('www.163.com');