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

[<na...@us...>]

Revision: 891
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=891&view=rev
Author:   nandod
Date:     2010-01-27 08:33:07 +0000 (Wed, 27 Jan 2010)

Log Message:
-----------
+ Support for native D2010 Firebird DBX driver.

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

Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas	2010-01-03 04:02:13 UTC (rev 890)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas	2010-01-27 08:33:07 UTC (rev 891)
@@ -172,6 +172,13 @@
     function GetDBMSName: string; override;
   end;
 
+  { Firebird through the native D2010 driver }
+
+  TInstantDBXFirebirdBroker = class(TInstantDBXInterBaseFirebirdBroker)
+  protected
+    function GetDBMSName: string; override;
+  end;
+
   { MS SQL Server }
 
   TInstantDBXMSSQLSQLGenerator = class(TInstantSQLGenerator)
@@ -321,6 +328,8 @@
     Result := TInstantDBXMySQLBroker.Create(Self)
   else if SameText(Connection.DriverName, 'FirebirdUIB') then
     Result := TInstantDBXFirebirdUIBBroker.Create(Self)
+  else if SameText(Connection.DriverName, 'FIREBIRD') then
+    Result := TInstantDBXFirebirdBroker.Create(Self)
   else if SameText(Connection.DriverName, 'DevartInterbase') then
     Result := TInstantDBXDevartInterbaseBroker.Create(Self)
   else
@@ -962,6 +971,13 @@
 end;
 {$ENDIF}
 
+{ TInstantDBXFirebirdBroker }
+
+function TInstantDBXFirebirdBroker.GetDBMSName: string;
+begin
+  Result := 'Firebird';
+end;
+
 initialization
   RegisterClass(TInstantDBXConnectionDef);
   TInstantDBXConnector.RegisterClass;