• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

WebBrowser 释放注意事项(Delphi)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
---这篇文章之前写的时候没有进行深入地分析,现在被认为是狭义的(因为EmwbBrowser的BUG,错怪RTL了。)。请参看后续文章---

 

由于WebBrowser是基于COM技术的ActiveX控件,而Delphi对COM的支持又不尽人意,因此在使用TWebBrowser以及其派生对象都要有这样或那样的异常,错误提示大概都是:“你没有按照上帝的旨意去使用WebBrowser ”。今天我就遇到了在WebBrowser释放时候发生的的奇怪异常。

 

 

代码如下:

 1 var
 2Document:IHTMLDocument2;
 3Url:WideString;
 4begin
 5Document=Browser.Document as IHTMLDocument2;
 6Url:=Document.url;
 7ShowMessage(Url);
 8Browser.Free;
 9end;
10

 

以上代码执行后将会报AV错误,跟踪了一下RTL代码,发现错误出在:

 

}

 

而且这段代码是在End语句之后,是底层RTL释放IInterFace接口产生的。由于WebBrowser已经调用了Free方法,因此Document所指向的IHTMLDocument2已经被释放。RTL在每个函数执行完毕后例行释放该函数的局部变量,遇到了Document便释放之。于是AV异常爆发了。

你可能会想把Document:=nil;来避免这次不按上帝旨意的操作。不过不幸的告诉你,这是不行的。错误代码如下:

 

 1 var
 2Document:IHTMLDocument2;
 3Url:WideString;
 4begin
 5Document=Browser.Document as IHTMLDocument2;
 6Url:=Document.url;
 7ShowMessage(Url);
 8Document:=nil;
 9Browser.Free;
10end;
11

 

要解决这个错误,目前我只找到了一个方法,那就是不声明局部变量,直接As转型,代码是这样的:

 

1 var     
2  Url:WideString;
3begin
4    Url:=(Browser.Document as IHTMLDocument2).url;
5    ShowMessage(Url);
6    Browser.Free;
7  end;
8

 

 

这样虽然可以解决AV错误,但会令代码变得极为糟糕。

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi中进行延时的4种方法发布时间:2022-07-18
下一篇:
Delphi开发的服务在Windows2003 64位注册方式。发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap