blocks|key|2448208|text|QC#106829描述了TWebBrowser内存泄漏的一个可能原因。访问Document+(以及通过TOleControl.GetIDispatchProp或TOleControl.GetIUnknownProp实现的任何其他属性)会导致泄漏，因为它调用AddRef而不调用Release。作为一种解决方法，您可以手动调用Release，或者可以修补VCL+(see+here)，或者可以避免有问题的属性(例如，使用browser.DefaultInterface.Document而不是browser.Document)。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2448209|entityMap|0|LINK|mutability|MUTABLE|url|http://qc.embarcadero.com/wc/qcmain.aspx?d=106829|1|http://marc.durdin.net/2012/07/understanding-and-correcting-interface-reference-leaks-in-delphis-vcl-olectrls-pas/^0|11|8|1F|S|28|R|5T|X|6T|G|0|9|0|51|8|1|0^^$0|@$1|2|3|4|5|6|7|P|8|@$9|Q|A|R|B|C]|$9|S|A|T|B|C]|$9|U|A|V|B|C]|$9|W|A|X|B|C]|$9|Y|A|Z|B|C]]|D|@$9|10|A|11|1|12]|$9|13|A|14|1|15]]|E|$]]|$1|F|3|-4|5|6|7|16|8|@]|D|@]|E|$]]]|G|$H|$5|I|J|K|E|$L|M]]|N|$5|I|J|K|E|$L|O]]]]

<a href="http://qc.embarcadero.com/wc/qcmain.aspx?d=106829" rel="noreferrer">QC#106829</a> describes one possible cause of memory leaks with TWebBrowser. Accessing <code>Document</code> (and any other properties that are implemented via <code>TOleControl.GetIDispatchProp</code> or <code>TOleControl.GetIUnknownProp</code>) causes leaks because it calls AddRef without ever calling Release. As a workaround, you can manually call Release, or you can patch the VCL (<a href="http://marc.durdin.net/2012/07/understanding-and-correcting-interface-reference-leaks-in-delphis-vcl-olectrls-pas/" rel="noreferrer">see here</a>), or you can avoid the problematic properties (for example, by using <code>browser.DefaultInterface.Document</code> instead of <code>browser.Document</code>).

blocks|key|2441921|text|使用TWebBrowser可以在幕后完成大量工作，与完整的Internet+Explorer实例所做的工作大同小异。它对你来说是隐藏的，但它仍然在那里，我们很可能无法从内存中强行删除它。检查页面加载之前和之间的内存使用情况，并测试调用Navigate('about:blank');时发生的情况。还要检查析构函数是否被正确调用，并考虑从OnClose或OnCloseQuery调用Navigate('about:blank');。我发现这确实对记忆状况有一点帮助。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2441922|entityMap^0|39|O|5A|O|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]|$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|M|8|@]|D|@]|E|$]]]|G|$]]

Using TWebBrowser does a lot of work behind the scenes, much of the same work a full instance of Internet Explorer would do. It is hidden from you, but still it's there and chances are it's unaccessible for us to force removing from memory. Check the memory usage before and between page loads, and test what happens when you call <code>Navigate('about:blank');</code>. Also check whether your destructor gets called properly, and consider calling <code>Navigate('about:blank');</code> from OnClose or OnCloseQuery. I found this does help the memory-situation a little bit.

blocks|key|529161|text|最好的解决方案是停止使用TWebbrowser。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|529162|CEF4Delphi是一个免费的库，使用的是Chrome而不是is。始终保持最新状态，并且非常高效：|529163|https://github.com/salvadordf/CEF4Delphi|offset|length|529164|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|0|14|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|P|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|Q|8|@]|9|@$F|R|G|S|1|T]]|A|$]]|$1|H|3|-4|5|6|7|U|8|@]|9|@]|A|$]]]|I|$J|$5|K|L|M|A|$N|E]]]]

The best solution is STOP using TWebbrowser.

CEF4Delphi is a free library that uses Chrome instead of Internet Explorer. Always up to date and very efficient :

<a href="https://github.com/salvadordf/CEF4Delphi" rel="nofollow noreferrer">https://github.com/salvadordf/CEF4Delphi</a>

blocks|key|2448252|text|Uses+Winapi.PsAPI;
+...
{$IFDEF+WIN32}
procedure+TForm1.MemoryFree;
var
++HandleCaptureProcessus:+THandle;
++UnProcessus:+TProcessEntry32;
++PIDProcessus:+THandle;
++HandleProcessus:+THandle;
++NameOfProcess:+string;
begin
++PIDProcessus+:=+4294967295;
++NameOfProcess+:=+ExtractFileName(Application.ExeName);

++HandleCaptureProcessus+:=+CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,+0);
++UnProcessus.dwSize+:=+SizeOf(TProcessEntry32);

++Process32First(HandleCaptureProcessus,+UnProcessus);
++repeat
++++if+UnProcessus.szExeFile+=+NameOfProcess+then
++++begin
++++++PIDProcessus+:=+UnProcessus.th32ProcessID;
++++++Break;
++++end;
++until+not+Process32Next(HandleCaptureProcessus,+UnProcessus);

++if+PIDProcessus+=+4294967295+then
++begin
++++CloseHandle(HandleCaptureProcessus);
++++exit;
++end;

++HandleProcessus+:=+OpenProcess(PROCESS_ALL_ACCESS,+False,+PIDProcessus);

++EmptyWorkingSet(HandleProcessus);

++CloseHandle(HandleProcessus);
end;
{$ELSE}
procedure+TForm1.MemoryFree;
begin
++//**
end;
{$ENDIF}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|2448253|为了清除内存，我使用了这个函数，可以在论坛上找到。它清除“工作集”要比SetProcessWorkingSetSize+()方法好得多，但它更难调用，而且它是在Winapi.PsAPI单元中注册的。但是，我注意到这两个函数都清理了“工作集”。如果您查看任务管理器中的“已分配内存”列，您可以看到此参数未清除。清理后我的应用程序的“工作集”可以减少到10MB，但所有分配的内存将保持为1.5+GB。在我看来，这就是导致错误“内存不足”的原因。如果你长时间查看大量的网站，这个错误仍然会出现。|unstyled|2448254|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>Uses Winapi.PsAPI;
 ...
{$IFDEF WIN32}
procedure TForm1.MemoryFree;
var
 HandleCaptureProcessus: THandle;
 UnProcessus: TProcessEntry32;
 PIDProcessus: THandle;
 HandleProcessus: THandle;
 NameOfProcess: string;
begin
 PIDProcessus := 4294967295;
 NameOfProcess := ExtractFileName(Application.ExeName);

 HandleCaptureProcessus := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 UnProcessus.dwSize := SizeOf(TProcessEntry32);

 Process32First(HandleCaptureProcessus, UnProcessus);
 repeat
 if UnProcessus.szExeFile = NameOfProcess then
 begin
 PIDProcessus := UnProcessus.th32ProcessID;
 Break;
 end;
 until not Process32Next(HandleCaptureProcessus, UnProcessus);

 if PIDProcessus = 4294967295 then
 begin
 CloseHandle(HandleCaptureProcessus);
 exit;
 end;

 HandleProcessus := OpenProcess(PROCESS_ALL_ACCESS, False, PIDProcessus);

 EmptyWorkingSet(HandleProcessus);

 CloseHandle(HandleProcessus);
end;
{$ELSE}
procedure TForm1.MemoryFree;
begin
 //**
end;
{$ENDIF}
</code></pre>

To clear the memory, I use this function, found somewhere on the forums. It clears the "Working Set" much better than the SetProcessWorkingSetSize () method, but it is more difficult to call and it is registered in the Winapi.PsAPI unit.
But, I noticed that both of these functions clean the "Working Set". And if you look at the "Allocated memory" column in the Task Manager, you can see that this parameter is not cleared. The "working set" of my application after cleaning can be reduced to 10 MB, but the all allocated memory will remain equal to 1.5 GB. And, in my opinion, this is what causes the error "Out of memory". And this error still appears if you look at heavy websites for a long time.

blocks|key|2441929|text|要释放内存，只需初始化新文档：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2441930|(WebBrowser.Document+as+IPersistStreamInit).InitNew;|code-block|syntax|javascript|2441931|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

To free up the memory, just initialize the new document:

<pre><code>(WebBrowser.Document as IPersistStreamInit).InitNew;
</code></pre>

blocks|key|537461|text|procedure+TForm1.FreeMemory;
begin
++++if+Win32Platform+=+VER_PLATFORM_WIN32_NT+then
++++SetProcessWorkingSetSize(GetCurrentProcess,+$FFFFFFFF,+$FFFFFFFF);
end;|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|537462|时不时地叫它|unstyled|537463|FreeMemory;|537464|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|L|8|@]|9|@]|A|$]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$B|C]]|$1|I|3|-4|5|F|7|N|8|@]|9|@]|A|$]]]|J|$]]

<pre><code>procedure TForm1.FreeMemory;
begin
 if Win32Platform = VER_PLATFORM_WIN32_NT then
 SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;
</code></pre>

and call it from time to time

<pre><code>FreeMemory;
</code></pre>

My application uses a TWebBrowser that loads a webpage. The problem is, after closing the form containing the TWebBrowser, the memory used is not freed. If I open and close the form, the memory just keeps on increasing. 

Saw some post regarding calling SetProcessWorkingSetSize() or CoFreeUnusedLibrariesEx() to solve this issue, but I'm not sure if any of these are the correct solution.

Any idea how to free the memory used by TWebBrowser?

Delphi TWebBrowser Memory Leak

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我的应用程序使用加载网页的TWebBrowser。问题是，在关闭包含TWebBrowser的表单之后，使用的内存没有被释放。如果我打开和关闭表单，内存就会不断增加。我看到了一些关于调用SetProcessWorkingSetSize()或CoFreeUnusedLibrariesEx()来解决这个问题的帖子，但我不确定其中是否有正确的解决方案。你知道如何释放TWebBrowser使用的内存吗？

问Delphi TWebBrowser内存泄漏
EN

回答 6

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Delphi TWebBrowser内存泄漏EN

回答 6

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Delphi TWebBrowser内存泄漏
EN