在线程中怎么样判断数据库连接是否正常？ ( 积分: 50 )

constructor ThreadTracData.Create(ConnStr: String;
URL: string);
begin
uConnStr:=ConnStr;
uURL:=URL;
Conn:=TADOConnection.Create(nil);
inherited Create(False);
end;

procedure ThreadTracData.Execute;
var
strsql: string;
i: integer;
PostStr: string;
strMsg: string;
sParam: TStringStream;
begin
{ Place thread code here }
SuperviseInfaceService.idHttp.Request.ContentType :='application/x-www-form-urlencoded';
SuperviseInfaceService.IdHTTP.ReadTimeout:=5000;
//try
while not Terminateddo
begin
CoInitialize(nil);
while not Conn.Connecteddo
begin
try
Conn.ConnectionString :=uConnStr;
Conn.LoginPrompt :=False;
Conn.Connected :=True;
SuperviseInfaceService.Query.Connection :=Conn ;
SuperviseInfaceService.LogMessage('aa');
except
SuperviseInfaceService.LogMessage('bb');
end;
end;
end;
end;

开始运行时数据库正常，如果我停掉数据库后，运行中不能判断连接已经断开。恢复数据库服务后，也不能判断数据库已经恢复。
请问：如何解决这个问题？
如果数据库连接CONN是从主线程传过来的，这样又该怎么判断数据库连接是否正常呢？

constructor ThreadTracData.Create(ConnStr: String;
URL: string);
begin
uConnStr:=ConnStr;
uURL:=URL;
Conn:=TADOConnection.Create(nil);
inherited Create(False);
end;

procedure ThreadTracData.Execute;
var
strsql: string;
i: integer;
PostStr: string;
strMsg: string;
sParam: TStringStream;
begin
{ Place thread code here }
SuperviseInfaceService.idHttp.Request.ContentType :='application/x-www-form-urlencoded';
SuperviseInfaceService.IdHTTP.ReadTimeout:=5000;
//try
while not Terminateddo
begin
CoInitialize(nil);
while not Conn.Connecteddo
begin
try
Conn.ConnectionString :=uConnStr;
Conn.LoginPrompt :=False;
Conn.Connected :=True;
SuperviseInfaceService.Query.Connection :=Conn ;
SuperviseInfaceService.LogMessage('aa');
except
SuperviseInfaceService.LogMessage('bb');
end;
end;
end;
end;

开始运行时数据库正常，如果我停掉数据库后，运行中不能判断连接已经断开。恢复数据库服务后，也不能判断数据库已经恢复。
请问：如何解决这个问题？
如果数据库连接CONN是从主线程传过来的，这样又该怎么判断数据库连接是否正常呢？

while not Conn.Connecteddo
begin
try
Conn.ConnectionString :=uConnStr;
Conn.LoginPrompt :=False;
Conn.Connected :=True;
SuperviseInfaceService.Query.Connection :=Conn ;
SuperviseInfaceService.LogMessage('aa');
except
SuperviseInfaceService.LogMessage('bb');
这个不是已经判断了吗？

你自己做一个实验就知道结果了

我看也是有判断
不过在线程中一般的ShowMessageBox或者Raise 是弹不出信息提示框的，所以你认为没有判断
^_^

to GaveYu:
麻烦你先看清楚，我用的不是SHOWMESSAGE。我用的服务中的LOGMESSAGE。