zeoslib av on transaction destruction

[jksmithiii]

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]

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]

hu in effect I'am experiencing same trouble. when closing sounds like the
Comp is not assingned but Ive tried with

Code: Pascal  [Select][+][-]

1. if Assigned(comp)

but no luck
I'm investigating on it

[rnervi]

solved (I hope !) with

Code: Pascal  [Select][+][-]

1. if (comp.Name <>  '') then
2.     begin
3.  
4.     IF COMP.InheritsFrom(TZAbstractRWTxnSeqDataSet) THEN