instantobjects-cvscommit

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

[<fas...@us...>]

Revision: 573
Author:   fastbike2
Date:     2006-02-02 17:24:03 -0800 (Thu, 02 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=573&view=rev

Log Message:
-----------
Internal transaction now AutoCommits.  Fix for bug 1402383 "Hanging Transactions".

Modified Paths:
--------------
    trunk/Source/Brokers/IBX/InstantIBX.pas
Modified: trunk/Source/Brokers/IBX/InstantIBX.pas
===================================================================
--- trunk/Source/Brokers/IBX/InstantIBX.pas	2006-02-02 02:23:34 UTC (rev 572)
+++ trunk/Source/Brokers/IBX/InstantIBX.pas	2006-02-03 01:24:03 UTC (rev 573)
@@ -244,8 +244,9 @@
     try
       FTransaction.DefaultDatabase := Connection;
       FTransaction.Params.Add('read_committed');
+      FTransaction.AutoStopAction := saCommit;
     except
-      FTransaction.Free;
+      FreeAndNil(FTransaction);
       raise;
     end
   end;

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

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

Revision: 623
Author:   jcmoraisjr
Date:     2006-02-23 08:55:26 -0800 (Thu, 23 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=623&view=rev

Log Message:
-----------
Fixed exception into D5 and IBX.InternalCommit and InternalRollback methods.

Modified Paths:
--------------
    trunk/Source/Brokers/IBX/InstantIBX.pas
Modified: trunk/Source/Brokers/IBX/InstantIBX.pas
===================================================================
--- trunk/Source/Brokers/IBX/InstantIBX.pas	2006-02-23 14:14:00 UTC (rev 622)
+++ trunk/Source/Brokers/IBX/InstantIBX.pas	2006-02-23 16:55:26 UTC (rev 623)
@@ -268,12 +268,14 @@
 
 procedure TInstantIBXConnector.InternalCommitTransaction;
 begin
-  Transaction.Commit;
+  if Transaction.InTransaction then
+    Transaction.Commit;
 end;
 
 procedure TInstantIBXConnector.InternalRollbackTransaction;
 begin
-  Transaction.Rollback;
+  if Transaction.InTransaction then
+    Transaction.Rollback;
 end;
 
 procedure TInstantIBXConnector.InternalStartTransaction;

[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;