使用TWebBrowser时存在内存泄漏问题的解决方案

我会带着你远行 2022-06-14 10:07 109阅读 0赞

用TWebBrower不断打开多个网页，多某些版本的操作系统上运行一段时间后，发现占用系统内存达几百M，直到关闭程序后，占用的内存才能释放。

这个问题在网有很多讨论，比较多人的建议办法是用SetProcessWorkingSetSize(GetCurrentProcess(),-1,-1)处理一下，这个变通的办法貌似可行。

然后在[http://www.winu.cn/space-14160-do-blog-id-270.html][http_www.winu.cn_space-14160-do-blog-id-270.html]出现别一个解决办法，当中提到OLE中存在内存泄露，通过重写OLE函数得以解决问题。

弃而不舍的zhongs终于找到问题的所在，未经验证，抄袭如下：  
  
把TWebBrowser= class(TOleControl)修改为TWebBrowser= class(TrsOleControl)  
  
unit rsOleCtrls;  
  
interface  
uses  
OleCtrls;  
  
type  
TrsOleControl = class (TOleControl)  
protected  
function GetIDispatchProp(Index: Integer): IDispatch;  
function GetIUnknownProp(Index: Integer): IUnknown;  
end;  
  
implementation  
  
\{ TOleControlFix \}  
  
function TrsOleControl.GetIDispatchProp(Index: Integer): IDispatch;  
var  
Temp: TVarData;  
begin  
GetProperty(Index, Temp);  
// Result := IDispatch(Temp.VDispatch); \*\*\*\*\* Change to:  
Pointer(Result) := Temp.VDispatch; //this avoids the extra AddRef  
end;  
  
function TrsOleControl.GetIUnknownProp(Index: Integer): IUnknown;  
var  
Temp: TVarData;  
begin  
GetProperty(Index, Temp);  
// Result := IDispatch(Temp.VUnknown); \*\*\*\*\* Change to:  
Pointer(Result) := Temp.VUnknown; //this avoids the extra AddRef  
end;  
  
end.

另一种修改源文件的方法如下：  
zhongs建议在TWebBrowser和TOleControl的继承关系中间加入一个修正此问题的中间类...  
但是经我观察, 我认为TOleControl存在的缺陷会广泛波及其它既有的和将来可能有的自动化控件, 所以我的建议是对OleCtrls.pas进行如下修改:  
function TOleControl.GetIDispatchProp(Index: Integer): IDispatch;  
var  
Temp: TVarData;  
begin  
GetProperty(Index, Temp);  
//Result := IDispatch(Temp.VDispatch);  
Pointer(Result) := Temp.VDispatch;  
end;  
  
  
function TOleControl.GetIUnknownProp(Index: Integer): IUnknown;  
var  
Temp: TVarData;  
begin  
GetProperty(Index, Temp);  
//Result := IUnknown(Temp.VUnknown);  
Pointer(Result) := Temp.VUnknown;  
end;  
  
  
并且要记住重新编译OleCtrls.pas

相关链接：  
http://blog.csdn.net/ScriptBaby/archive/2007/05/20/1618486.aspx  
http://blog.csdn.net/ScriptBaby/article/details/1618486

[http_www.winu.cn_space-14160-do-blog-id-270.html]: http://www.winu.cn/space-14160-do-blog-id-270.html