delphi WebBrowser1 打开网页 状态

[linzhen6790]

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
label3.Caption:='1'; //完成打开网页
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
label3.Caption:='0'; //开始打开网页
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
label3.Caption:='0'; //正在打开网页
end;


我用label3.caption的值 0/1 来判断网页是否打开完成

现在问题是:程序运行,自动打开listbox里的值 ,然后付值到edit2.text,然后打开网页,WebBrowser1判断是否打开完成,如果没有打开,再次打开网页,判断3次,如果再打不开,跳出,打开listbox 下一个网址,直到完成


请问,这个判断3次要怎么写

[dongmei757]

WebBrowser1判断是否打开完成,这个不好说，如果有框架，要触发多次，可以判断打开网页的地址，(WebBrowser1.Document as IHTMLDocument2).url是否与EDIT2.TEXT相同，如果没有打开可以判断没有打开网页转向地址,是否与固定的转向地址一样，判断，累计次数，>3次，继续下一个，累计归零。

[dongmei757]

if WebBrowser1.ReadyState = READYSTATE_COMPLETE then