如何阻止Delphi DataSnap错误消息对话框? [英] How can I supress Delphi DataSnap error message dialogs?
问题描述
有时,我们发现客户端无法连接到服务器应用程序,并在服务器桌面上显示一条消息对话框,无法连接到服务器,无法找到网络路径。或Objectexporter not found。
我们的Delphi客户端代码从不使用消息对话框来显示错误或异常,而是使用try ... except .. finally ..结束和记录来处理连接错误,所以我猜对话是由DataSnap方法创建的。有没有办法抑制这个模式对话框?
更新:所有异常都在较低级别的例程中处理,主循环负责断开连接并重新连接异常提高(处理或未处理):
while True do
begin
Connect;
while True do
begin
try
DoMyWork;
除
休息;
结束
结束
断开;
结束
解决方案1)
可能是一个全局钩子通过application.onexception可以处理问题
http://www.chami.com/tips/delphi/011497D.html
解决方案2)
使用EurekaLog或MadExcept来查找应用程序从哪里引发错误,并处理错误。
解决方案3)
应用程序消息对话框中的全局钩子,钩子示例在下面
您查询所有应用程序的消息,当您捕获该窗口时,您处理消息而不是应用程序。因为我现在没有时间不知道messagedlg提出的wmessage是什么。
希望有所帮助。
最好的问候,
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;
solution 1) maybe an global hook over the application.onexception can handle the problem
http://www.chami.com/tips/delphi/011497D.html
solution 2)
use EurekaLog or MadExcept in order to find out from where the application raise that error, and handle the error.
solution 3)
a global hook over the application message dialogs, a hook example is bellow
you query all the application's messages, and when you catch that window then you process the message not the application. because i don't have now the time I don't know exactly which is the wmessage raised by messagedlg.
hope that helped.
best regards,
这篇关于如何阻止Delphi DataSnap错误消息对话框?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!