Subject RE: [IBO] Session Not Defined
Author Jason Wharton
Post date 2019-03-07T02:24:32Z
It appears this should effectively prevent this problem from happening.
 
procedure TIB_Transaction.SetSession( ASession: TIB_Session );
begin
  if FIB_Session <> ASession then
  begin
    if Assigned( FIB_Session ) then
    begin
      Close;  //  I added this line.
      if ( not FHasNilAncestry ) then
      begin
        with FIB_Session do
        begin
          if FocusedTransaction = Self then
            FocusedTransaction := nil;
          Session_Transactions.Remove( Self );
        end;
      end;
    end;
    inherited SetSession( ASession );
    if Assigned( FIB_Session ) then
      if ( not FHasNilAncestry ) then
        FIB_Session.Session_Transactions.Add( Self );
  end;
end;

From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com]
Sent: Wednesday, March 06, 2019 6:53 PM
To: IBObjects@yahoogroups.com
Subject: Re: [IBO] Session Not Defined

 

Hi Jason,

I traced through it and it appears that it only happens for a Cursor if its ReadOnly and AutoCommit is set to True.  We are using start/commit transactions everywhere.  Initailly I was not using it for Read Only ones.  But we did that as well a while ago.  We missed a handful of them.

On 5/03/2019 08:35, Rohit Gupta rohit@... [IBObjects] wrote:
 


:76c1b022 KERNELBASE.RaiseException + 0x62
IB_Components.TIB_Component.CheckSession(True)
IB_Components.TIB_Transaction.API_Commit
IB_Components.TIB_Transaction.SysCommitBegin(False,True)
IB_Components.TIB_Transaction.SysCommit(False)
IB_Components.TIB_Transaction.Close
IB_Components.TIB_Transaction.Destroy

On 4/03/2019 18:32, 'Jason Wharton' jason@... [IBObjects] wrote:
 

I would like to see the callstack on that. Can you share it?

Jason Wharton

-----Original Message-----
From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com]
Sent: Sunday, March 03, 2019 7:51 PM
To: IBObjects@yahoogroups.com
Subject: [IBO] Session Not Defined

Hi Guys,  just migrating from 2007 to xe10.3.  In some places when a cursor
is freed after closing, I get the above error.  Any ideas ?

Regards

Rohit

------------------------------------

------------------------------------

__________________________________________________________
IB Objects - direct, complete, custom connectivity to Firebird or InterBase
without the need for BDE, ODBC or any other layer.
__________________________________________________________
http://www.ibobjects.com - your IBO community resource for Tech Info papers,
keyword-searchable FAQ, community code contributions and more !
http://tracker.ibobjects.com - your portal to submit and monitor bug reports
http://community.ibobjects.com - your portal to purchase and upgrade
------------------------------------

Yahoo Groups Links


--


Rohit Gupta  B.E. Elec., M.E., Mem IEEE, Mem IET
Technical Director
Computer Fanatics Ltd
AU: 1300 361 447 NZ: 0800 235 452 UK: 0845 095 0132
SG: 3159 0522 US: 855 565 5971 Global: +64 9 489 2280
Ext: 601 Fax: +64 9 489 2290 Email: rohit@...
. . . . .
This email and any attachments contain information, which is confidential and may be subject to legal privilege and copyright.
If you have received this in error, please notify us immediately by return email and then delete this email and any attachments.
If you are not the intended recipient, you must not use, distribute or copy this email or attachments.


--


Rohit Gupta  B.E. Elec., M.E., Mem IEEE, Mem IET
Technical Director
Computer Fanatics Ltd
AU: 1300 361 447 NZ: 0800 235 452 UK: 0845 095 0132
SG: 3159 0522 US: 855 565 5971 Global: +64 9 489 2280
Ext: 601 Fax: +64 9 489 2290 Email: rohit@...
. . . . .
This email and any attachments contain information, which is confidential and may be subject to legal privilege and copyright.
If you have received this in error, please notify us immediately by return email and then delete this email and any attachments.
If you are not the intended recipient, you must not use, distribute or copy this email or attachments.