From f4a455fb35fa28bed34818fb563e56d13baea191 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 15 Aug 2018 10:51:08 +0000
Subject: [PATCH] * Add new mysql versions

git-svn-id: trunk@39616 -
---
 packages/fcl-db/src/datadict/fpddregstd.pp | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/packages/fcl-db/src/datadict/fpddregstd.pp b/packages/fcl-db/src/datadict/fpddregstd.pp
index 48f3beb890..9406d31b0b 100644
--- a/packages/fcl-db/src/datadict/fpddregstd.pp
+++ b/packages/fcl-db/src/datadict/fpddregstd.pp
@@ -35,12 +35,12 @@ uses
   Classes, SysUtils, fpdatadict;
 
 Type
-  TDataDictEngine = (teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,
+  TDataDictEngine = (teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,teMySQL55,teMySQL56,teMySQL57,
                        tePostgreSQL,teSQLite3,teODBC, teMSSQL);
   TDataDictEngines = set of TDataDictEngine;
 
 Const
-  AllStdDDEngines = [teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,
+  AllStdDDEngines = [teDBF,teFirebird,teOracle,teMySQL40,teMySQL41,teMySQL50,teMySQL55,teMySQL56,teMySQL57,
                      tePostgreSQL,teSQLite3,teODBC,teMSSQL];
                      
 Type
@@ -78,6 +78,9 @@ uses
   fpddmysql40,
   fpddmysql41,
   fpddmysql50,
+  fpddmysql55,
+  fpddmysql56,
+  fpddmysql57,
   fpddmssql,
   fpddodbc;
   
@@ -86,19 +89,25 @@ Const
   StdEngineClasses : Array [TDataDictEngine] of TFPDDEngineClass
                    = (TDBFDDEngine, TSQLDBFBDDEngine, TSQLDBOracleDDEngine,
                       TSQLDBMySql40DDEngine, TSQLDBMySql41DDEngine ,
-                      TSQLDBMySql5DDEngine, TSQLDBPostGreSQLDDEngine,
+                      TSQLDBMySql5DDEngine, TSQLDBMySql55DDEngine, 
+                      TSQLDBMySql56DDEngine, TSQLDBMySql57DDEngine, 
+                      TSQLDBPostGreSQLDDEngine,
                       TSQLDBSQLite3DDEngine,TSQLDBODBCDDEngine, TSQLDBMSSQLDDEngine);
 
   StdEngineRegs : Array [TDataDictEngine] of procedure
                 = (@InitDBFImporter, @RegisterFBDDEngine, @RegisterOracleDDEngine,
                   @RegisterMySQL40DDEngine, @RegisterMySQL41DDEngine,
-                  @RegisterMySQL50DDEngine, @RegisterPostgreSQLDDengine,
+                  @RegisterMySQL50DDEngine, @RegisterMySQL55DDEngine,
+                  @RegisterMySQL56DDEngine, @RegisterMySQL57DDEngine,
+                  @RegisterPostgreSQLDDengine,
                   @RegisterSQLite3DDEngine, @RegisterODBCDDengine,@RegisterMSSQLDDEngine);
 
   StdEngineUnRegs : Array [TDataDictEngine] of procedure
                 = (@DoneDBFImporter, @UnRegisterFBDDEngine, @UnRegisterOracleDDEngine,
                   @UnRegisterMySQL40DDEngine, @UnRegisterMySQL41DDEngine,
-                  @UnRegisterMySQL50DDEngine, @UnRegisterPostgreSQLDDengine,
+                  @UnRegisterMySQL50DDEngine, @UnRegisterMySQL55DDEngine, 
+                  @UnRegisterMySQL56DDEngine, @UnRegisterMySQL57DDEngine, 
+                  @UnRegisterPostgreSQLDDengine,
                   @UnRegisterSQLite3DDEngine, @UnRegisterODBCDDengine,@UnRegisterMSSQLDDEngine);
                   
 function RegisterStdDDEngines(Engines: TDataDictEngines): TDataDictEngines;