delphi - 什么是安全的最大堆栈大小或如何衡量堆栈的使用？

Question

我有一个具有多个工作线程的应用程序，每个核心一个。在现代 8 核机器上，我有 8 个这样的线程。我的应用程序加载了许多插件，它们也有自己的工作线程。由于该应用程序使用巨大的内存块(照片，例如 200 MB)，因此我遇到了内存碎片问题(32 位应用程序)。问题是每个线程分配 {$MAXSTACKSIZE ...} 的地址空间。它不使用物理内存，而是使用地址空间。我将 MAXSTACKSIZE 从 1 MB 减少到 128 KB，这似乎有效，但我不知道是否已接近极限。是否有可能测量实际使用了多少堆栈？

Answer 1

使用它来计算为当前线程堆栈提交的内存量:

function CommittedStackSize: Cardinal;
asm
  mov eax,[fs:$4] // base of the stack, from the Thread Environment Block (TEB)
  mov edx,[fs:$8] // address of lowest committed stack page
                  // this gets lower as you use more stack
  sub eax,edx
end;

另一个我没有的想法。