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

发布于 2024-09-11 06:15:54 字数 599 浏览 7 评论 0原文

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

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

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

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

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

原文

We run a DataSnap Delphi 2009 application on Windows 2003 Server. DataSnap Client and Server are on the same computer, using DCOM over Borland Socketserver. The client runs a background batch job.

Sometimes, we discover that the client can not connect to the server application and displays a message dialog on the server desktop indicating for example "Could not connect to server. Network path could not be found." or "Objectexporter not found."

Our Delphi client code never uses a message dialog to show errors or exceptions, instead we use try ... except .. finally ... end and logging to handle connect errors, so I guess the dialog is created by a DataSnap method. Is there a way to suppress this modal dialog box?

Update: all exceptions are handled in lower level routines, the main loop takes care of disconnecting and reconnecting when an exception is raised (handled or unhandled):

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

分享到QQ

分享到微博