WebBrower.Navigate Delphi 为什么会使程序退出？

[happy_jlf]

我用DELPHI7开发一个程序，里面嵌入很多的HTML页面， 但操作一段时间后，就会使整个程序退出。不知道为什么？

[wintergoes]

贴代码上来看看

[happy_jlf]

procedure TForm1.wb1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if Pos('\wangdianqy.htm',LowerCase(url)) > 0 then
begin
Cancel := true ;
if true then
begin
try
wb1.Navigate('C:\Program Files\ABC\Html\111.htm');
except on e:exception do
//writetofile(e.Message );
end;
end;
end
end;

[Voidest]

用navigate访问，在此函数中别再调用，用cancel变量来控制，你的写法出现递归了。