5

我正在尝试显示启动屏幕，而不是在应用程序连接到数据库时冻结它。正常连接（通过 ADO 到 MSSQL）大约需要 300 毫秒，这不会导致主线程在 Windows 上显示“无响应”。

但是，在 (a) 网络错误或 (b) 配置错误（无效的 SQL 服务器主机名/实例）的情况下，超时需要 60 秒。这不仅使应用程序无响应，而且在冻结时几乎不可能显示任何错误或消息。我可以在开始连接之前弹出一条消息，但是当主线程阻塞 60 秒时确实没有解决方案。

解决方案似乎是将连接移动到后台线程。这导致以下代码：

  1. 建立后台连接的 TThread 类和一些 SyncObj，例如用于将信号发送回主线程的 TEvent。

  2. 使用以下代码在主线程中循环：

    BackgroundThread.StartConnecting;
while not BackgroundThread.IsEventSignalled do begin
   Application.ProcessMessages; // keep message pump alive.
end;
// continue startup (reports error if db connection failed)

这是正确的方法吗？我的犹豫涉及上述解决方案的以下要素：

A. 我会调用 Application.ProcessMessages，我认为这是一种极端的代码气味。（这可能是该规则的允许例外）

B. 我在应用程序的启动中引入线程，我担心引入错误。

如果有人有一个已知没有竞争条件的参考实现，它可以与 ADO 进行后台连接，并且已知是一种安全的方法，那将非常有帮助。否则一般提示或部分示例都很好。

4

2 回答 2

4

由于每个线程必须使用它自己的 ADO 连接的已知限制（即您不能使用在其他线程中创建的连接对象），我能想到的唯一选择是创建一个将与数据库建立连接的线程，然后建立连接或达到超时，向主线程发出有关事件的信号并关闭/销毁连接。主线程可以同时显示启动或进度，等待来自该线程的消息。因此，您消除了密码错误或主机无法访问的情况。有一个合理的假设，即如果第二个线程可以连接，那么主线程将能够立即连接。

于 2012-05-22T08:44:12.343 回答
1

线程间通信有多种方法。我通常使用 Window 的消息。首先，我在表单中定义客户消息和消息处理程序。然后当我需要从自定义线程通知主线程时，我使用 PostMessage 函数发送通知。

小教程在这里。

您还可以使用库进行线程处理，例如OmniThreadLibrary。

于 2012-05-21T06:25:49.587 回答