Ungültige Zeigeroperation

[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;

[haentschman]

Hallöle...

Der Fehler riecht danach, daß ein Objekt, was im Dictionary liegt, extern vom Dictionary mit Free freigeben wurde. Dann hat das Dictionary nur einen Pointer der nicht mehr existiert. Prüfe mal darauf.

Zeige mal wie du die Objekte erzeugst und in das Dictionary legst.

[Trafel21]

Zitat von haentschman:

Hallöle...

Der Fehler riecht danach, daß ein Objekt, was im Dictionary liegt, extern vom Dictionary mit Free freigeben wurde. Dann hat das Dictionary nur einen Pointer der nicht mehr existiert. Prüfe mal darauf.

Zeige mal wie du die Objekte erzeugst und in das Dictionary legst.

Guten Morgen das passiert so:

Code:

// neuen Anruf mit CallID anlegen
bc_AsteriskCallDictionaryDataModule.AddDictValue(GetCurrentCallID(StrBuffer));

Code:

procedure Tbc_AsteriskCallDictionaryDataModule.AddDictValue(ACallID: String);
var lCallInstance: TCallInstance;
begin

  if not fCallInstanceDictionary.TryGetValue(ACallID, lCallInstance) then
  begin
  lCallInstance := TCallInstance.Create;
  lCallInstance.CallID := ACallID;

  fCallInstanceDictionary.Add(ACallID, lCallInstance);
  end
end;

Wenn ich Werte innerhalb der CallInstance bearbeiten möchte ruf ich die trygetvalue von Dictionary auf

Bspw.:

Code:

function Tbc_AsteriskCallDictionaryDataModule.GetChannelID(ACallID: String): String;
var lCallInstance: TCallInstance;
begin
  if (fCallInstanceDictionary.TryGetValue(ACallID, lCallInstance)) then
  result := lCallInstance.ChannelID;
end; 

procedure Tbc_AsteriskCallDictionaryDataModule.SetCallEnd(ACallID: String; AToday: TDateTime);
var lCallInstance: TCallInstance;
begin
  if(fCallInstanceDictionary.TryGetValue(ACallID, lCallInstance)) then
  begin
    lCallInstance.CallEnd := AToday;
  end;
end;

[haentschman]

Moin...
Sieht unspektulär aus... Kein Free für eine TCallInstance?

Versuche mal das:

Delphi-Quellcode:

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

  fCallInstanceDictionary := TCallInstanceDictionary.Create([doOwnsValues]); // die Values werden von der Liste freigeben
end;

procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleDestroy(Sender: TObject);
begin
  inherited;
//  fCallInstanceDictionary.Clear; // vor dem Free brauchst du das nicht
  fCallInstanceDictionary.Free;
end;

[Trafel21]

Zitat von haentschman:

Moin...
Sieht unspektulär aus... Kein Free für eine TCallInstance?

Versuche mal das:

Delphi-Quellcode:

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

  fCallInstanceDictionary := TCallInstanceDictionary.Create([doOwnsValues]); // die Values werden von der Liste freigeben
end;

procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleDestroy(Sender: TObject);
begin
  inherited;
//  fCallInstanceDictionary.Clear; // vor dem Free brauchst du das nicht
  fCallInstanceDictionary.Free;
end;

Funktioniert, der Fehler kommt jetzt nicht mehr, danke. Lag es wirklich nur an doOwnsValues?

Muss ich die TCallInstance freigeben, ich dachte bei einer lokal erstellen Variable/Klasse passiert das nach Beendigung automatisch. Gilt das nicht für lokale Klassen?