我编写了一个 Delphi DLL，它通过 COM 与第三方程序通信。一些用户报告说第三方程序偶尔会崩溃。其他以相同方式使用该软件的人从未经历过崩溃。发生此崩溃时，第三方程序似乎在我的 DLL 应用程序中变得不可用。
供应商发誓这是 Delphi DLL 的编码方式有问题，虽然他们没有看过源代码，也无法判断 DLL 正在做什么导致崩溃，但他们知道这是“某事” .
除了我认为第三方程序不应该因为我的 DLL 中的一些小问题而崩溃之外，让我们假设我的 DLL 中有一些东西需要修复。
我如何确定我的应用可能是如何导致此问题的？有没有人有通过 COM 与这样的超敏感程序进行通信的经验？是否有一些常见的事情可能会导致第三方程序崩溃？
【问题讨论】：
标签： windows performance delphi debugging com
这是它的外观......
Loaded DLL
Started MyFunction1 with parameters: 1,4,hello
1
2
...
500
Ended MyFunction1
为了做到这一点，我会设置一些功能（在它们自己的单元中）：
// opens a text file (fixed name), and appends to it.
function InitializeLog;
// closes the file
function CloseLog;
//add a log line.
function Log(message:string='', startNewFunction:boolean:False);
你可以这样称呼它：
function MyFunction1(Integer,Integer,String);
begin
try
Log('Loaded DLL');
//use inttostr and do some string concats to get the params
Log('Started MyFunction1 with parameters: 1,4,hello',true);
//Then every other line:
Log;
//this would increment a global variable FuncLine:Integer
//and write it to the file.
except
On E:Exception (Log('***'+E.Message));
end;
end;
这样的东西应该有一个 {$DEFINE} 来启用这些日志记录功能，启用/禁用诊断日志记录。
【讨论】：
查看 Quality Central 以获取报告 58409。
这是关于 FPU 掩码和 Dll 的。
简而言之：
FPU Mask 的设置决定了浮点异常的处理方式。
例如，如果您有一个加载 Dll_A（也由其他人编码）和 Dll_B（由您编码）的 Applicaion_A（由其他人编码），并且您的 Dll 更改了 FPU 掩码，那么此更改对 Application_A 和DLL_A 也是如此。
我们举个例子： 您已经安装了例如 WinZIP、SubVersion 等，它们在 Windows 文件资源管理器中注册了附加功能（鼠标右键单击弹出菜单），现在您从 application.exe 内部调用 TOpenDialog，那么这些附加功能可能会损害您的 FPU 设置。
希望这会有所帮助。 （附加提示：使用 Sysinternal 查看您的应用加载了哪些 dll）
【讨论】：
您是否考虑过使用MadExcept？如果您在接口方法中发现错误，您可以记录调用堆栈或向用户显示对话框并将标准 EOleSysError 返回给调用 exe。
类似这样的：
except
on e: Exception do
begin
MadExcept.HandleException();
raise EOleSysError.Create('InitializeObject Failed',
ErrorNumberToHResult(1 + CODE_BASE), 1);
end;
如果应用程序挂起但没有抛出异常，您可以使用 MadExcept 实用程序 madTraceProcess 查看正在发生的情况。这将让您为正在运行的应用程序生成一个调用堆栈。您的 dll 将不在主线程上，但您将能够看到您的调用堆栈。这是一个很好的方法来判断你的 dll 在挂起时是否真的在做任何事情。
我有一个 COM dll，它与不使用 MadExcept 的 exe 交互，这种方法对我来说效果很好。
【讨论】：
如果他们的程序在您使用他们发布的界面时崩溃，我很确定它有问题。完全证明这是另一回事。
您能否使用可以提供给供应商的小型 Delphi 应用程序可靠地复制问题？看到可重现的故障有助于说服他们需要进行修复。至少，它可以帮助查明他们认为你在做什么“错误”，并告诉你如何“正确”做。
您也可以尝试使用 C# 甚至 VBScript 复制失败。
【讨论】：
如果我对情况的理解正确，很幸运，如果您的 DLL 没有崩溃并且被调用的第 3 方程序只是停止响应，那么您无能为力。崩溃在他们的代码中，但仅由调用它的 DLL 触发。调试日志确实应该在他们的应用程序中完成。
但是，您可以做的是使用参数和一些上下文信息记录您的 DLL 对该第 3 方程序的所有调用。
然后查看崩溃前的最后一条痕迹可能会为您提供一些信息...
【讨论】：
我不知道 madExcept 等是如何工作的，但我经常使用 jclDebug.pas + JclHookExcept.pas（来自 JEDI JCL 库）。它创建了一个 Windows API 挂钩，因此它可以捕获所有 (!) 异常，即使您进行了如下操作：
try
raise exception.create('test');
except
//eat exception
end;
通常你看不到这个异常，因为它被“吃掉”了......但是使用钩子你会得到所有异常。例如：我曾经在Midas.dll中遇到过“灾难性故障”，通过钩子我在这个异常之前看到了dll中的“数据库连接丢失”错误，所以我知道发生了什么。 （顺便说一句：JclHookExcept.pas = 钩子，jclDebug.pas = 轨迹跟踪）。
我现在看到 JclHookExcept.pas 还有一个“JclHookExceptionsInModule”过程，因此您可以强制 (?) 挂钩来自特定库的所有异常...
一些演示代码：
procedure AnyExceptionNotify(ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean);
begin
//log exception
end;
initialization
// Start Exception tracking
JclStartExceptionTracking;
JclTrackExceptionsFromLibraries;
JclStackTrackingOptions := [stStack, stRawMode, stAllModules];
// Assign notification procedure for hooked RaiseException API call. This
// allows being notified of any exception
JclAddExceptNotifier(AnyExceptionNotify);
【讨论】：