2

我们编写了一个 DLL 来执行我们所有的打印功能。它允许我们进行打印预览、打印以及生成 PDF。

我们现在有一个特定的 DLL 使用模式，之后 DLL 无法正确卸载。结果就是当我们退出主程序时，它消失了，但并没有终止，我们不得不手动杀死进程。

我想罪魁祸首是某些 GDI 资源没有被适当地“关闭”（当我这样说时，我是出于对 GDI 的无知而说的）。我们不直接处理 GDI 资源，而是在我们使用各种 Delphi 组件时为我们使用 GDI 资源。

有关如何查找和解决此类问题的任何提示？我们使用 GDIView 来确认在我们尝试终止程序后仍有一些 GID 资源，但我不知道如何将这些 Windows/内核句柄与底层 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
4

1 回答 1

5

您无需返回 GDI 资源即可关闭进程。当然，您应该归还它们，但这不会阻止您终止。听起来很像您在 DLL 卸载中遇到了死锁。而且由于您的 DLL 无法卸载，那么您自然不会释放所有 GDI 资源。

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

于 2012-04-27T02:56:20.193 回答