应用程序在 WinXP 上因未知原因崩溃

Question

我有 Delphi XE3，Windows 7 Pro 64bit。 我的应用程序在我的 PC 上运行良好，但我的用户告诉我应用程序在他们的 Win XP 上启动时崩溃，并且在他们的 Win 7 上也 (!!)。

我尝试在我的 Win 7 上运行该应用程序，但以普通用户（没有管理员）身份登录 - 它可以工作。 所以现在我已经用 Windows XP 安装了虚拟机，并且真的 - 应用程序在启动时崩溃了。

我需要找出问题所在，但我无能为力。

就我不能使用调试器而言（我没有在那个 VM 上安装 Delphi）， 我试图在我的应用程序的各个地方放置一些MessageBox(0, 'Hello', 'Test', MB_OK); 以捕捉它发生的地方，这就是我发现的：

我的项目源中有这个：

MessageBox(0, 'Hello', 'Test', MB_OK); // shows OK
Application.CreateForm(TfMain, fMain);
MessageBox(0, 'Hello', 'Test', MB_OK); // doesn't show - crash before this line

这是在我的主窗体fMain 的OnCreate 函数中：

procedure TfMain.FormCreate(Sender: TObject);
begin
  MessageBox(0, 'Hello', 'Test', MB_OK); // doesn't show - crash before this line
  ...

那么这个应用会在哪里崩溃呢？
甚至OnCreate 中的第一行都没有执行....
我不知道...有人吗？

不知道这是否重要：我在 fMain uses 子句的 interface 和 implementation 下有一些单位。我应该看那里吗？但是在我的主窗体的OnCreate 之前会发生什么？

Answer 1

我终于明白了！

• 在表单上放置PRINT DIALOG 组件 (TPrintDialog)
• 在设计时在对象检查器中设置COPIES = 1（或大于默认零）
• 尝试在未安装打印机的 WinXP 上运行此类应用程序

应用程序在启动时崩溃，在详细信息中您只会看到一些 kernel32.dll 地址...

我没有在没有打印机的 Win 7 上测试它。我周围没有这样的系统...

Answer 2

这是在 VM 上不使用 Delphi 的情况下跟踪此问题的另一种方法...

• 复制您的项目。
• 从项目源中删除除主窗体之外的所有单元。

• 从 XP 启动您的应用程序，看看它是否崩溃。

• 如果崩溃...然后查看从主窗体中拖入的单元...开始删除它们，直到您的程序停止崩溃。

• 如果它没有崩溃...开始将单元/表单重新添加到您的项目源中，直到它崩溃。

您是否安装了 JCL/JVCL（JEDI）？

如果是这样，请创建一个 Logger...请注意，需要在 MainForm 代码执行之前创建并挂钩 Logger...您还需要从未处理的异常中设置详细的堆栈跟踪， 在 Delphi 中选择->Project/Options/Linker/Map file/Detailed}

您的 Logger 单元中需要这样的东西

procedure HookGlobalException(ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean);
var
  a_List: TStringList;
begin
  if Assigned(TLogger._Instance) then
  begin
    a_List := TStringList.Create;
    try
      a_List.Add(cStar);
      a_List.Add(Format('{ Exception - %s }', [Exception(ExceptObj).Message]));
      JclLastExceptStackListToStrings(a_List, False, True, True, False);
      a_List.Add(cStar);
  // save the error with stack log to file
      TLogger._Instance.AddError(a_List);
    finally
      a_List.Free;
    end;
  end;
end;


initialization
  Lock := TCriticalSection.Create;
  Include(JclStackTrackingOptions, stTraceAllExceptions);
  Include(JclStackTrackingOptions, stRawMode);

  // Initialize Exception tracking
  JclStartExceptionTracking;

  JclAddExceptNotifier(HookGlobalException, npFirstChain);
  JclHookExceptions;

finalization
  JclUnhookExceptions;
  JclStopExceptionTracking;
  Lock.Free;