如何判断DOMCONNECTION 的状态，以保证应用程序长期无人值守。

Question

我有一个应用是调用应用服务器上的一个方法GETVALUE 我的做法为
手工连接应用程序服务器后，每隔一分钟执行DOM.APPSERVER.GETVALUE,
此应用要求24小时长期运行，如何控制出错后重新连接。
程序部分代码为
首先手工启动
DOM.CONNECTIN.OPEN;//procedure TForm1.getrda;//调用服务器方法
var
dastr:olevariant;
begin try
 begin
 form1.dom.AppServer.getrealdata('12','realdata',dastr);
 rd.Items[0]:=dastr;
 except
  memo1.Lines.Add(datetimetostr(now()));
 end;
end;procedure TForm1.Timer1Timer(Sender: TObject);//时钟为一分种
begin
form1.getrda ;
end;我想作到能动态检测DOM的状态，如果DOM不可用，网络中断等，该程序可每过五分钟检测一会，如果成功，则开始工作，否则，等待

Answer 1

用Socket，直接就可以用，我就是这样做的
procedure TF_main.ClientSocket2Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  MessageBox(Application.handle,'服务器已经断开!','提示',mb_iconerror+MB_OK + MB_DEFBUTTON1+MB_ICONExclamation);
  
 
  做你要做的 ......
end;