UniDAC 断线重连方法

最新推荐文章于 2021-12-14 20:46:45 发布

weixin_34037977

最新推荐文章于 2021-12-14 20:46:45 发布

阅读量817

点赞数

CC 4.0 BY-SA版权

文章标签：数据库

原文链接：http://www.cnblogs.com/lpq21314/p/6004999.html

本文介绍如何实现KBM服务端UniConnection针对MSSQLServer的断线重连功能，主要包括修改单元文件、设置选项及事件处理等步骤。

KBM服务端的 UniConnection 要实现断线重连（连接 MSSQLServer）, 需要以下几个步骤：

一、修改单元文件：kbmMWUniDAC.pas

procedure TkbmMWUNIDACConnection.InternalOpenConnection(ConnectionPool:TkbmMWCustomConnectionPool);
begin
  // Create new database connection using template.
  with TkbmMWUNIDACConnectionPool(ConnectionPool).FDBTemplate do
  begin
    //  针对UniDAC需要增加这个语句，否则连接数据库失败
    FDatabase.Server := Server;

    FDatabase.Database := Database;
    FDatabase.Username := UserName;
    FDatabase.Password := Password;
    FDatabase.LoginPrompt := False;
    FDatabase.ProviderName := ProviderName;

    
    FDatabase.Port := Port;

    FDatabase.SpecificOptions.Assign(SpecificOptions);

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

    with TkbmMWUNIDACConnectionPool(ConnectionPool) do
      if Assigned(FOnSetupDBConnection) then
        FOnSetupDBConnection(self,FDatabase);
  end;
 
  if FDatabase.ProviderName='SQL Server'  then
    CoInitialize(nil);

  FDatabase.Open;
end;

二. 把 UniConnection 的 Options.LocalFailover:=True ;

三. 在 UniConnection 的 ConnectionLost 事件修改如下：

procedure TDM.CON_AConnectionLost(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;

四、如果在服务端的函数里有调用 UniQuery 或其他数据库组件，在函数的开头加：CoInitialize(nil); 结尾加：CoUninitialize;

转载于:https://www.cnblogs.com/lpq21314/p/6004999.html