0

我正在尝试解决一个大问题（目前对我而言），希望您能帮助我。

我的应用程序在开始时连接到数据库，并在应用程序运行时保持连接。连接丢失时会出现问题。它只是保持断开连接，直到我重新启动我的应用程序。

错误信息是：

无法完成对主机“USER-PC”的网络请求。
将数据写入连接时出错。
现有连接被远程主机强行关闭。

如果我断开并连接也可以解决问题，但我怎样才能自动做到这一点？如何检测到连接已丢失？

与数据库的连接：

 IBDataBase1.DatabaseName := ServerName + '/' + ServerPort + ':' +
 'LOCAL';
     try
       IBDataBase1.Connected := True;
       Result := True;
     except on E:Exception do begin
       MessageDlg(Message_2 + #13#10 + e.Message, mtError, [mbOk],0);
     end;

我使用的数据库是 Firebird 2.5，组件是 IBDatabase，我使用别名进行连接。问题是我如何捕获该异常以及何时捕获？我有大量不同的表格。

4

0 回答 0