如何实时监测TADOConnection是否断开

Question

比如网络断开，或服务器关闭时，使客户端尽快知道并作相关处理

Answer 1

断开时会出发事件的:procedure TForm1.ADOConnection1BeforeDisconnect(Sender: TObject);
beginend;procedure TForm1.ADOConnection1AfterDisconnect(Sender: TObject);
beginend;

Answer 2

procedure TForm1.ADOConnection1Disconnect(Connection: TADOConnection;
  var EventStatus: TEventStatus);
beginend;

Answer 3

可以在ADOConnection的disconnect事件中写入提示信息，比如：showmessage（‘数据库已经断开！
’）；

Answer 4

disconnect事件在意外断开的时候不触发，只有在调用close或设置connected为false时才触发。
我需要的是在网络断开，或服务器关闭时获得信息

Answer 5

试试这个事件
procedure TForm1.ADOConnection1InfoMessage(Connection: TADOConnection;
  const Error: Error; var EventStatus: TEventStatus);
beginend;

Answer 6

断开时会出发事件的:
procedure TForm1.ADOConnection1BeforeDisconnect(Sender: TObject);
begin
end;
好像也可以用
try
ADOConnection1。connection：＝true；
except
showmessage（‘已经断开’）；
end；