[Instantobjects-cvscommit] SF.net SVN: instantobjects: [641] trunk/Source/Brokers/IBX/InstantIBX.pas

[<jcm...@us...>]

Revision: 641
Author:   jcmoraisjr
Date:     2006-03-09 16:40:50 -0800 (Thu, 09 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=641&view=rev

Log Message:
-----------
Added compiler directive to the IBX's AutoStopAction property, due to problems with IBX 5.x.

Modified Paths:
--------------
    trunk/Source/Brokers/IBX/InstantIBX.pas
Modified: trunk/Source/Brokers/IBX/InstantIBX.pas
===================================================================
--- trunk/Source/Brokers/IBX/InstantIBX.pas	2006-03-09 12:44:27 UTC (rev 640)
+++ trunk/Source/Brokers/IBX/InstantIBX.pas	2006-03-10 00:40:50 UTC (rev 641)
@@ -244,7 +244,10 @@
     try
       FTransaction.DefaultDatabase := Connection;
       FTransaction.Params.Add('read_committed');
+      {$IFDEF D6+}
+      // AutoStopAction property from IBX 5.x is broken
       FTransaction.AutoStopAction := saCommit;
+      {$ENDIF}
     except
       FreeAndNil(FTransaction);
       raise;