zeoslib av  on transaction destruction
lazarus / 16-Databases

----------------------------------------------------------------------
jksmithiii · 2025-02-05 03:32

I've read somewhere this bug was fixed in in ver 8 patch. I've applied
patch and still get it. Anybody seen this?

procedure TZAbstractTransaction.BeforeDestruction;
var I: Integer;
  Comp: TComponent;
begin
  for i := FLinkedComponents.Count -1 downto 0 do begin
    Comp := TComponent(FLinkedComponents);
  av  --> if Comp.InheritsFrom(TZAbstractRWTxnSeqDataSet) then
      if TZProtectedAbstractRWTxnSeqDataSet(Comp).UpdateTransaction =
Self then
        TZProtectedAbstractRWTxnSeqDataSet(Comp).UpdateTransaction :=
nil;
    if Comp.InheritsFrom(TZAbstractRODataset) then
      if TZProtectedAbstractRODataset(Comp).Transaction = Self then
        TZProtectedAbstractRODataset(Comp).Transaction := nil;
    if Comp.InheritsFrom(TZSQLProcessor) then
      {if TZSQLProcessor(Comp).Transaction = Self then
        TZSQLProcessor(Comp).Transaction := nil;}
  end;
  FreeAndNil(FParams);
  FreeAndNil(FLinkedComponents);
  ReleaseInternalTransaction;
  if Connection <> nil then
    SetConnection(nil);
  inherited BeforeDestruction;
end;

----------------------------------------------------------------------
jksmithiii · 2025-02-09 18:07

I need to do some memchecks on this, but prior to destruction, better
to manually make sure references to linked components are set to nil
before allowing the stock zeos code do it.

----------------------------------------------------------------------
rnervi · 2025-10-04 12:43

hu in effect I'am experiencing same trouble. when closing sounds like
the
Comp is not assingned but Ive tried with
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i if
Assigned(comp) but no luck
I'm investigating on it

----------------------------------------------------------------------
rnervi · 2025-10-04 12:48

solved (I hope !) with

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i if
(comp.Name <>  '') then    begin     IF
COMP.InheritsFrom(TZAbstractRWTxnSeqDataSet) THEN