如何抑制Delphi DataSnap错误消息对话框？

Question

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

有时,我们发现客户端无法连接到服务器应用程序并在服务器桌面上显示消息对话框,指示例如"无法连接到服务器.无法找到网络路径".或者"找不到Objectexporter".

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

更新:所有异常都在较低级别的例程中处理,主循环负责在引发异常(处理或未处理)时断开连接并重新连接:

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

Answer 1

解决方案1）也许应用程序上的全局钩子可以解决该问题

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。

希望有帮助。

此致，