Memory Leak mit IBEvents

[himitsu]

Sowas passiert auch, wenn man auf Objekte zugreift, nachdem diese freigegeben wurden.

FastMM hat die Bereiche mit 80 gefüllt und so wie es aussieht, wurde in diesen Speicherbereich ein "Pointer" reingeschrieben.
Das könnte z.B. die Typ-Zeiger am Anfang einer Klasse sein.

[Delphianer]

Hallo,

ich habe mit XE einen fehlerhaften cast in IBEvents. Wahrscheinlich ist der Fehler ja schon länger drin.

Delphi-Quellcode:

destructor TIBEvents.Destroy;
begin
  try
    if Registered then
      UnRegisterEvents;
  except
    // silence any exceptions which might be raised
    // by UnRegisterEvents during destruction
  end;
  If Assigned(FDatabase) then
    FDatabase.RemoveEventNotifier(Self);
  FThreads.Free;
// LL 06.04.2011
//  IF Assigned(FEvents) then
//    TStringList(FEvents).OnChange := nil;
  FEvents.Free;
// LL 06.04.2011
  IF Assigned(FUniEvents) then
    TStringList(FUniEvents).OnChange := nil;
  FUniEvents.Free;
  FGDSLibrary := nil;
  inherited Destroy;
end;

Unter Umständen ist es dieser Fehler, der bei Dir gemeldet wird.

Lutz

[Rainer Wolff]

Jepp, genau der isses, so wie es aussieht. Der Fehler ist weg.

Danke!

Gruß Rainer