From 76e176ae2eeaca5963e345aa52d7417407f8d5dd Mon Sep 17 00:00:00 2001
From: Jan Kohlmeyer <jan.kohlmeyer@vario.ag>
Date: Mon, 7 Mar 2022 22:25:27 +0100
Subject: [PATCH] Get ServerVersionUntouched for Firebird. For Interbase is
 still empty, because I don't know, how to select with sql.

---
 source/dbconnection.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index d8581fa2..6df93e74 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -2884,7 +2884,11 @@ begin
       //! Query('PRAGMA busy_timeout='+(Parameters.QueryTimeout*1000).ToString);
 
       FServerDateTimeOnStartup := GetVar('SELECT ' + GetSQLSpecifity(spFuncNow));
-      //! FServerVersionUntouched := GetVar('SELECT sqlite_version()');
+
+      if Self.Parameters.LibraryOrProvider.Equals('IB') then
+        FServerVersionUntouched := ''
+      else
+        FServerVersionUntouched := GetVar('SELECT rdb$get_context(''SYSTEM'', ''ENGINE_VERSION'') as version from rdb$database');
       FConnectionStarted := GetTickCount div 1000;
       FServerUptime := -1;