Delphi SQLConnection连接中间件超时的问题？

[814123]

我使用SQLConnection连接服务器的中间件，如果服务器开启了服务，很快就可以连接，如果服务器关闭了服务，这边的SQLConnection就要等待15秒的时间才提示连接失败。
我测试用多线程在后台倒计时，5秒没有连接成功就提示重新连接，但不成功，必须要等到SQLConnection给提示后，我的多线程倒计时才给提示，我测试了一下午，用了很多办法都不行，好像SQLConnection1.Connected := True时所有的界面和线程都停止了一样，有没有大神给予解决的办法呢？

[doloopcn]

在代码前一行加入application.proce**message;忘记怎么拼写了

[yuzhizhi]

ProcessMessages 循环相应外部事件

[BlueStorm]

最简单的方法，就是用Telnet检查一下中间件的端口是否可以连接，来确定中间件是否在运行： uses System.SysUtils, System.Classes, IdTelnet; function Telnet(Host, Port: String; TimeOut: Integer = 1000): Boolean; var Telnet: TIdTelnet; begin Telnet := TIdTelnet.Create(nil); Telnet.ConnectTimeout := TimeOut; Telnet.Host := Host; Telnet.Port := Port.ToInteger; Result := True; try Telnet.Connect; except on E: Exception do Result := False; end; Telnet.Free; end;

[hj8090]

启动2个线程，一个连接一个计时，比如，计数器超5秒就表示连接超时。