Ungültige Zeigeroperation

[Trafel21]

Hallo zusammen,

ich bekomme eine Fehlermeldung 'Ungültige Zeigeroperation' beim Aufruf des Destructors nach dem schließen der Anwendung.

Delphi-Quellcode:

type
  TCallID = string;

  TCallInstance = class(TObject)
    CallID: String;
    CallFrom: String;
    CallTo: String;
    ChannelID: String;
    CallStart: TDateTime;
    CallEnd: TDateTime;
    CurrentEvent: TCallEvent;
  private
  public
  end;

  TCallInstanceDictionary = class(TObjectDictionary<TCallID,TCallInstance>)
  end;
  TCallInstanceDictionary = class(TObjectDictionary<TCallID,TCallInstance>)
  end;

  Tbc_AsteriskCallDictionaryDataModule = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    function AddDictValue(ACallID: String): String;

  private
    { Private-Deklarationen }
    fCallInstanceDictionary: TCallInstanceDictionary;
  public
    { Public-Deklarationen }
  end;

var
  bc_AsteriskCallDictionaryDataModule: Tbc_AsteriskCallDictionaryDataModule;

implementation

procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleCreate(Sender: TObject);
begin
  inherited;

  fCallInstanceDictionary := TCallInstanceDictionary.Create();
end;

procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleDestroy(Sender: TObject);
begin
  inherited;
  fCallInstanceDictionary.Clear;
  fCallInstanceDictionary.free; // Hier Awnedungsfehlermeldung
end;

Ich vermute das ich der Create() funktion noch eigene Variablen von TCallID und TCallInstance übergeben muss aber
ansich funktioniert das Dictionary ohne Probleme.

[TiGü]

Wie ist es denn so?

Delphi-Quellcode:

procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleDestroy(Sender: TObject);
begin
  fCallInstanceDictionary.Clear;
  fCallInstanceDictionary.free; 

  inherited;
end;

[DeddyH]

Wieso eigentlich inherited, es handelt sich ja nicht um einen Destruktor?

[TiGü]

Stimmt! Ich sah nur "Destroy".
Das wird auch komplett ignoriert vom Compiler (keine blauen Punkte).

[Uwe Raabe]

Zitat von DeddyH:

Wieso eigentlich inherited, es handelt sich ja nicht um einen Destruktor?

In diesem Fall ist das wirklich obsolet, da die Klasse direkt von TDataModule abgeleitet wurde. Kommt allerdings Formvererbung ins Spiel, werden in einem Eventhandler bei inherited auch die in der DFM des Vorfahren verdrahteten Handler aufgerufen. Das ist zwar was völlig anderes als virtual/override, benutzt aber dasselbe Keyword.

[haentschman]

Delphi-Quellcode:

TCallInstanceDictionary = class(TObjectDictionary<TCallID,TCallInstance>)
end;
TCallInstanceDictionary = class(TObjectDictionary<TCallID,TCallInstance>)
end;

..ist das ein Copy/Paste Fehler?

Ownerships:
http://docwiki.embarcadero.com/Libra...tionary.Create

Das erkärt noch nicht den Fehler. Das müßte MemoryLeaks erzeugen.

[Trafel21]

Danke für die Antworten.

Zitat von Uwe Raabe:

Zitat von DeddyH:

Wieso eigentlich inherited, es handelt sich ja nicht um einen Destruktor?

In diesem Fall ist das wirklich obsolet, da die Klasse direkt von TDataModule abgeleitet wurde. Kommt allerdings Formvererbung ins Spiel, werden in einem Eventhandler bei inherited auch die in der DFM des Vorfahren verdrahteten Handler aufgerufen. Das ist zwar was völlig anderes als virtual/override, benutzt aber dasselbe Keyword.

Ich hab es entfernt. Danke für den Hinweis.

Zitat von haentschman:

Delphi-Quellcode:

TCallInstanceDictionary = class(TObjectDictionary<TCallID,TCallInstance>)
end;
TCallInstanceDictionary = class(TObjectDictionary<TCallID,TCallInstance>)
end;

..ist das ein Copy/Paste Fehler?

Ownerships:
http://docwiki.embarcadero.com/Libra...tionary.Create

Das erkärt noch nicht den Fehler. Das müßte MemoryLeaks erzeugen.

Ja, war ein Copy/Paste Fehler.

Ich bin noch einmal mit dem Debugger und F8 weiter rein.

Code:

//System.Classes

procedure TComponent.DestroyComponents;
var
  Instance: TComponent;
begin
  FreeAndNil(FSortedComponents);
  while FComponents <> nil do
  begin
    Instance := FComponents.Last;
    if (csFreeNotification in Instance.FComponentState)
      or (FComponentState * [csDesigning, csInline] = [csDesigning, csInline]) then
      RemoveComponent(Instance)
    else
      Remove(Instance);
    Instance.DisposeOf; //////// Hier wird der Fehler ausgelöst
  end;
end;

//SYSTEM.pas

procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Pointer(Self)); //////// hier wird angehalten, wenn ich die Option beim ausgelösten Fehler wähle
end;