[Instantobjects-cvscommit] SF.net SVN: instantobjects:[882] trunk/Source/Brokers/DBX/InstantDBX.pas

[<car...@us...>]

Revision: 882
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=882&view=rev
Author:   carlobar
Date:     2009-12-28 15:41:25 +0000 (Mon, 28 Dec 2009)

Log Message:
-----------
Added support for Devart DbExpress Driver for Interbase/Firebird

Modified Paths:
--------------
    trunk/Source/Brokers/DBX/InstantDBX.pas

Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas	2009-12-22 19:11:42 UTC (rev 881)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas	2009-12-28 15:41:25 UTC (rev 882)
@@ -165,6 +165,13 @@
     function GetDBMSName: string; override;
   end;
 
+  { Firebird/Interbase through the Devart dbX driver }
+
+  TInstantDBXDevartInterbaseBroker = class(TInstantDBXInterBaseFirebirdBroker)
+  protected
+    function GetDBMSName: string; override;
+  end;
+
   { MS SQL Server }
 
   TInstantDBXMSSQLSQLGenerator = class(TInstantSQLGenerator)
@@ -314,6 +321,8 @@
     Result := TInstantDBXMySQLBroker.Create(Self)
   else if SameText(Connection.DriverName, 'FirebirdUIB') then
     Result := TInstantDBXFirebirdUIBBroker.Create(Self)
+  else if SameText(Connection.DriverName, 'DevartInterbase') then
+    Result := TInstantDBXDevartInterbaseBroker.Create(Self)
   else
     raise Exception.CreateFmt('dbExpress driver "%s" not supported',
       [Connection.DriverName]);
@@ -893,6 +902,13 @@
   Result := 'Firebird';
 end;
 
+{ TInstantDBXDevartInterbaseBroker }
+
+function TInstantDBXDevartInterbaseBroker.GetDBMSName: string;
+begin
+  Result := 'Interbase';
+end;
+
 { TInstantDBXTransaction }
 
 constructor TInstantDBXTransaction.Create(const AConnector: TInstantDBXConnector);