TInterfacedObject wird nicht freigegeben

[Codehunter]

Hallo!

Ich habe das Problem, dass ich so wie es aussieht mal wieder über den Referenzzähler bei Interfaces stolpere. Ich habe eine Komponente basierend auf TWebbrowser, welche ein HTML-Editor sein soll. Im OnDocumentComplete-Handler erzeuge ich ein TInterfacedObject zum Handling von Javascript-Events (was soweit auch alles funktioniert). Das einzige Problem ist, dass dieses TInterfacedObject genau einmal weniger freigegeben als instantiiert wird und folglich ein Memleak beim Programmende entsteht. Hier erstmal ein bisschen Code:

Delphi-Quellcode:

type
  THTMLEditor = class(TWebbrowser)
  private
    { private declarations }
    FKeyDownEvent: THtmlEvent;

{...}

procedure THTMLEditor.DoDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  GetDocument.body.style.borderStyle:= 'none';
  if HasDocument then begin
    FKeyDownEvent:= NIL; // <-- Ruft THtmlEvent.Destroy TATSÄCHLICH auf
    FKeyDownEvent:= THtmlEvent.Create;
    FKeyDownEvent.OnEvent:= DoKeyDownEvent;
    FKeyDownEvent.Document:= GetDocument;
    GetDocument.onkeypress:= FKeyDownEvent as IDispatch;
  end;
  EditMode:= TRUE;
end;

{...}

destructor THTMLEditor.Destroy;
begin
  FKeyDownEvent:= NIL; // <-- Wird bei Programmende ausgeführt
  FBodyHtml.Free;
  FInterfaceContainer.Free;
  inherited;
end;

{...}

type
  THtmlEvent = class(TInterfacedObject, IDispatch)
  {...}
  end;

{...}

destructor THtmlEvent.Destroy; // <-- Wird bei Programmende NICHT ausgeführt
begin
  FDocument:= NIL;
  inherited Destroy;
end;

Die Meldung von FastMM lautet, dass genau eine Instanz von THtmlEvent beim Programmende noch existierte und zwar egal wie viele Documents zwischendurch geladen und OnDocumentComplete aufgerufen wurde.

[Sir Rufo]

FKeyDownEvent ist vom Typ THtmlEvent , richtig?

Die Referenzzählung geht aber nur, wenn du mit dem Interface arbeitest und nicht mit dem Objekt

[Bernhard Geyer]

Beim IE (TWEbBrowser) ist es Normal das die Implementierung die MS gemacht hat es nicht so genau mit der Freigabe der Interfaces nimmt.
Ich muss öfter direkt mal _Release-Aufrufen damit mir der Speicher nicht volläuft. Vermutlich vergisst der IE auch bei dir auch die entsrpechenden Release-Aufrufe.

[Codehunter]

Zitat von Bernhard Geyer:

Ich muss öfter direkt mal _Release-Aufrufen damit mir der Speicher nicht volläuft. Vermutlich vergisst der IE auch bei dir auch die entsrpechenden Release-Aufrufe.

Das war die Lösung! Herzlichen Dank!

[Sir Rufo]

Leider ist deine Annahme falsch

Delphi-Quellcode:

    FKeyDownEvent:= NIL; // <-- Ruft THtmlEvent.Destroy TATSÄCHLICH auf
    ...
    GetDocument.onkeypress:= FKeyDownEvent as IDispatch;

denn die Instanz wird freigegeben wegen
GetDocument.onkeypress:= FKeyDownEvent as IDispatch;

[TiGü]

Delphi-Quellcode:

var YourObject : ...;

if YourObject.Type.BeginsWith.I then
  YourObject:= nil;

if YourObject.Type.BeginsWith.T then
  YourObject.Free;

[Codehunter]

Zitat von Sir Rufo:

denn die Instanz wird freigegeben wegen
GetDocument.onkeypress:= FKeyDownEvent as IDispatch;

Haste Recht! Geht auch ganz ohne... Diese ganze Interfacerei ist nicht so mein Fall. Ich bin froh wenn ich mich mit Delphi native befassen und auf den eigenen Speichermanager verlassen kann. Aber manchmal gehts halt nicht ohne Interfaces. Wie in diesem Fall, denn zum IE im EditMode gibt es nach wie vor nicht wirklich eine Alternative.

[Sir Rufo]

Zitat von TiGü:

Delphi-Quellcode:

var YourObject : ...;

if YourObject.Type.BeginsWith.I then
  Object := nil;

if YourObject.Type.BeginsWith.T then
  Object.Free;

Du hast da noch was vergessen

Delphi-Quellcode:

TMyClass = class( TInterfacedObject )
end;

var
  MyInstance : TMyClass;
  MyInterface : IInterface;

// das geht
MyInstance := TMyClass.Create;
MyInstance.Free;

// das knallt
MyInstance := TMyClass.Create;
MyInterface := MyInstance; // Referenz-Zähler auf 1
MyInterface := nil; // Referenz-Zähler auf 0 => Instanz wird freigeben
MyInstance.Free; // rumms

[TiGü]

Zitat von Sir Rufo:

Du hast da noch was vergessen

Delphi-Quellcode:

TMyClass = class( TInterfacedObject )
end;

var
  MyInstance : TMyClass;
  MyInterface : IInterface;

// das geht
MyInstance := TMyClass.Create;
MyInstance.Free;

// das knallt
MyInstance := TMyClass.Create;
MyInterface := MyInstance; // Referenz-Zähler auf 1
MyInterface := nil; // Referenz-Zähler auf 0 => Instanz wird freigeben
MyInstance.Free; // rumms

Wer sowas macht hat es auch nicht anders verdient!

[Sir Rufo]

Zitat von TiGü:

Zitat von Sir Rufo:

Du hast da noch was vergessen

Delphi-Quellcode:

TMyClass = class( TInterfacedObject )
end;

var
  MyInstance : TMyClass;
  MyInterface : IInterface;

// das geht
MyInstance := TMyClass.Create;
MyInstance.Free;

// das knallt
MyInstance := TMyClass.Create;
MyInterface := MyInstance; // Referenz-Zähler auf 1
MyInterface := nil; // Referenz-Zähler auf 0 => Instanz wird freigeben
MyInstance.Free; // rumms

Wer sowas macht hat es auch nicht anders verdient!

Die sogenannten weak Referenzen sind teilweise unumgänglich, da ansonsten auch Interfaces nicht korrekt freigegebn werden (zirkuläre Referenzen)