清幽傲竹实现的kbmMWServer数据库联接失败重联(转载红鱼儿)-优快云博客

本文介绍如何在UniConnection组件中实现数据库重联功能，通过设置选项和处理事件来确保应用服务器与数据库之间的连接即使在异常情况下也能保持稳定。通过修改kbmMWUnidac单元的TkbmMWUNIDACConnection方法，加入重连逻辑，实现了数据库与应用服务器之间的异常断开后自动恢复连接。具体包括设置本地故障切换选项、定义OnConnectionLost和AfterConnect事件处理程序，确保了应用在数据库连接问题上的高可用性。

1。修改kbmMWUnidac单元的TkbmMWUNIDACConnection.InternalOpenConnection方法，加上：

         //支持unidac重联
          FDatabase.Options.LocalFailover:=Options.LocalFailover;
          FDatabase.OnConnectionLost:=OnConnectionLost;
          FDatabase.AfterConnect:=AfterConnect;

2.处理UniConnection组件:

设置Options.LocalFailover:=True;

编码OnConnectionLost及AfterConnect事件：

procedure TFServerDM.UniMysqlConnectionConnectionLost(Sender: TObject;
Component: TComponent; ConnLostCause: TConnLostCause;
var RetryMode: TRetryMode);
begin
if (Sender as TUniConnection).Tag < 1 then
begin
    RetryMode := rmReconnectExecute;
    (Sender as TUniConnection).Tag := (Sender as TUniConnection).Tag + 1;
end
else
begin
    RetryMode := rmRaise;
    (Sender as TUniConnection).Tag := 0;
end;
end;

procedure TFServerDM.UniMysqlConnectionAfterConnect(Sender: TObject);
begin
(sender as TUniConnection).Tag := 0;
end;

感谢清幽傲竹！用这方法，就不怕数据库与AppServer的异常断开了！

我没有遇到这个问题，可能的原因是生产环境好，用的还是MSSQL，联接没有异常断开过，竹子用的是MYSQL。