Devart Forums

Code: Select all

object UniConnection1: TUniConnection
  ProviderName = 'SQL Server'
  Options.KeepDesignConnected = False
  Options.LocalFailover = True
  PoolingOptions.MinPoolSize = 5
  PoolingOptions.Validate = True
  Pooling = True
  Server = 'xxq4x4fwrj.database.windows.net,1433'
  Connected = True
  LoginPrompt = False
  AfterConnect = UniConnection1AfterConnect
  OnError = UniConnection1Error
  OnConnectionLost = UniConnection1ConnectionLost
end

Code: Select all

procedure Tglobalmodule.UniConnection1Error(Sender: TObject; E: EDAError;
  var Fail: Boolean);
begin

if not uniconnection1.Connected then begin
  if pos('Error locating Server',e.Message)>0 then begin
    e.Message:='Server not found';
    sm(e.Message);
    fail:=false;
  end
  else
    try
      Uniconnection1.Connect;
    finally
    end;
end;

sm('DB error #'+inttostr(e.ErrorCode)+': '#13+e.Message);

if (e.ErrorCode=10054)or(e.ErrorCode=10053) then begin
  //WLRestartApplication;
end;

end;

procedure Tglobalmodule.UniConnection1ConnectionLost(Sender: TObject;
  Component: TComponent; ConnLostCause: TConnLostCause;
  var RetryMode: TRetryMode);
begin
RetryMode := rmReconnectExecute;
end;