在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
由于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错误,但会令代码变得极为糟糕。
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论