Delphi DLL没有卸载,可能是由于仍然分配了GDI

Question

我们编写了一个DLL来执行所有打印功能.它允许我们进行打印预览,打印,还可以生成PDF.

我们现在有一个特定的使用此DLL的模式,之后DLL无法正确卸载.结果是,当我们退出主程序时,它会消失但不会终止,我们必须手动终止该过程.

我想,罪魁祸首是一些GDI资源没有被正确地"封闭"(当我这样说时,我从GDI的无知深处说出来).我们不直接处理GDI资源,而是在使用各种Delphi组件时使用GDI资源.

有关如何找到并解决此类问题的任何提示？在我们尝试终止程序之后,我们使用GDIView确认某些GID资源仍然存在,但我不知道如何将这些Windows/Kernel句柄与底层Delphi代码相关联.我可以在程序执行期间的不同时间提供GIDView列表.

谢谢!

乔恩(德尔福2007)

---

我回复了所提出的建议,但没有人回复我的回复.最终,我放弃了.我最终编写了一个自杀程序,它不仅杀死了我自己的进程,而且还杀死了其他具有相同名称的进程,以解决问题.荒谬的矫枉过正,但我​​似乎别无选择.我正在使用我在某处找到的免费软件ProcessInfo工具.

procedure KillNamedProcesses(pName : String);
// used to clean up programs that hang as a result of DLLs not unloading
   var
      ProcessInfo : TProcessInfo;
      ProcessName : String;
      i : INTEGER;
      currentPID : cardinal;
   BEGIN
   currentPID := GetCurrentProcessID;
   pName := UpperCase(pName);
   ProcessInfo := TProcessInfo.Create(nil);

   // kill all old processes (not our process)
   for i := 0 to ProcessInfo.RunningProcesses.Count - 1 do begin
      ProcessName := ProcessInfo.RunningProcesses[i].ExeFile;
      IF (UpperCase(ProcessName) <> pName) THEN CONTINUE;
      IF (currentPID <> ProcessInfo.RunningProcesses[i].ProcessID) then
         ProcessInfo.RunningProcesses[i].TerminateProcess;
      END;
   // kill the last one (ourselves)
   for i := 0 to ProcessInfo.RunningProcesses.Count - 1 do begin
      ProcessName := ProcessInfo.RunningProcesses[i].ExeFile;
      IF (UpperCase(ProcessName) <> pName) THEN CONTINUE;
      ProcessInfo.RunningProcesses[i].TerminateProcess;
      END;
   ProcessInfo.Free;
   END; // KillNamedProcess

Answer 1

您无需返回GDI资源即可关闭进程.当然你应该归还它们,但这不会阻止你终止.这听起来非常像你的DLL卸载死机.由于您的DLL无法卸载,因此您自然无法释放所有GDI资源.

调试这将涉及调试死锁.对此提出一般性建议相当困难,不幸的是,您使用的是较旧且功能较弱的Delphi版本.现代Delphi调试器支持等待链遍历,并使调试死锁变得相当简单.我想如果我是你,当你的应用程序处于死锁状态时,我会做一些事后调试.我会查看所有线程的堆栈跟踪,并将其用于无论是无限期阻塞的内容.当程序处于死锁状态时,使用Process Explorer和map2dbg来获取有意义的堆栈跟踪.