5

我们在 Windows 2003 Server 上运行 DataSnap Delphi 2009 应用程序。DataSnap 客户端和服务器位于同一台计算机上，使用 DCOM over Borland Socketserver。客户端运行后台批处理作业。

有时，我们发现客户端无法连接到服务器应用程序，并在服务器桌面上显示一个消息对话框，例如“无法连接到服务器。找不到网络路径”。或“找不到对象导出器”。

我们的 Delphi 客户端代码从不使用消息对话框来显示错误或异常，而是使用 try ... except .. finally ... end 和日志记录来处理连接错误，所以我猜对话框是由 DataSnap 方法创建的。有没有办法抑制这个模态对话框？

更新：所有异常都在较低级别的例程中处理，主循环负责在引发异常（已处理或未处理）时断开和重新连接：

  while True do
  begin
    Connect;
    while True do
    begin
      try
        DoMyWork;
      except
        Break;
      end;
    end;
    Disconnect;
  end;
4

1 回答 1

3

解决方案 1）也许应用程序的全局挂钩。oneexception 可以解决问题

http://www.chami.com/tips/delphi/011497D.html

解决方案2）

使用 EurekaLog 或 MadExcept 来找出应用程序从哪里引发错误并处理错误。

解决方案3）

应用程序消息对话框上的全局挂钩，挂钩示例如下

http://delphi.about.com/gi/o.htm?zi=1/XJ&zTi=1&sdn=delphi&cdn=compute&tm=43&f=22&su=p284.9.336.ip_p504.1.336.ip_&tt=2&bt=1&bts=1&zu=http% 3A //www.delphicorner.f9.co.uk/articles/apps7.htm

您查询所有应用程序的消息，当您捕获该窗口时，您处理的是消息而不是应用程序。因为我现在没有时间我不确切知道messagedlg提出的wmessage是哪个。

希望有帮助。

此致，

于 2010-07-23T11:31:22.767 回答