Umgang mit Interfaces

[OlafSt]

Eine Frage zum Verständnis für jemanden, der mit Interfaces noch nie zu tun hatte:

Delphi-Quellcode:

var
  MySomeThingObject : ISomeThing; // <--- das ist so richtig
begin
  MySomeThingObject := TMyDoSomething.Create;
  if Supports(MySomeThingObject, IInteger) then
  begin
    ShowMessage('IInteger wird voll unterstützt!!!');
  end;
  MySomeThingObject.DoSomeThing;
end;

Sehe ich das richtig, das mein MySomeThingObject bei Verlassen der Prozedur automatisch freigegeben wird, obwohl ich zuvor mit TMyDoSomething.Create; Speicher dafür alloziert habe ?

[mezen]

Wenn in TMyDoSomething Referenzzählung enthalten ist (z.B. weil von TInterfacedObjekt abgelitten), dann ja, wird es bei Erreichen von 0 Referenzen automatisch freigegeben.

[Der schöne Günther]

Und da die einzige Referenz darauf eine lokale Variable war, ist der Referenzzähler beim Verlassen der Methode Null.

Nicht nur beim normalen Verlassen, natürlich auch, wenn deine Methode mittendrin per Exception rausfliegt. Damit spart man sich das ganze nervige try..finally..Destroy -Geraffel.

[jaenicke]

Zitat von Der schöne Günther:

Nicht nur beim normalen Verlassen, natürlich auch, wenn deine Methode mittendrin per Exception rausfliegt. Damit spart man sich das ganze nervige try..finally..Destroy -Geraffel.

Aber nur im Quelltext, bei Interfaces wird das nur mit noch mehr automatisch generiertem Code beim Kompilieren hinzugefügt.

[Der schöne Günther]

Ich habe in meinem Leben bislang nie den Mut gehabt, mir den Assemblercode anzuschauen, der für die Referenzzählung oder das Werfen einer Exception entsteht.

Dann würde ich jedes mal wenn ich in einer Methode mittels Interface-Variable über irgendetwas iterieren,ein schlechtes Gewissen bekommen und würde meines Lebens nicht mehr froh.


Ja, mir ging es jetzt nur um meinen persönlichen Komfort im Quelltext. Wie sehr der PC dann später zusätzlich schuften muss habe ich jetzt nicht bedacht...

[jaenicke]

Zitat von Der schöne Günther:

Ja, mir ging es jetzt nur um meinen persönlichen Komfort im Quelltext. Wie sehr der PC dann später zusätzlich schuften muss habe ich jetzt nicht bedacht...

Wenn du Interfaces benutzt, sind es jeweils rund 15-20 Assemblerbefehle für das Hinzufügen der Referenz und das Entfernen. Es ist also nicht so furchtbar viel, läppert sich aber durchaus, wenn man damit intensiv arbeitet.

[TiGü]

Zitat von OlafSt:

Sehe ich das richtig, das mein MySomeThingObject bei Verlassen der Prozedur automatisch freigegeben wird, obwohl ich zuvor mit TMyDoSomething.Create; Speicher dafür alloziert habe ?

Wie oben erwähnt, ja!

Mit einem normalen Objekt hättest du ein Speicherleck!

[OlafSt]

Zitat von TiGü:

Zitat von OlafSt:

Sehe ich das richtig, das mein MySomeThingObject bei Verlassen der Prozedur automatisch freigegeben wird, obwohl ich zuvor mit TMyDoSomething.Create; Speicher dafür alloziert habe ?

Wie oben erwähnt, ja!

Mit einem normalen Objekt hättest du ein Speicherleck!

Das ist mir klar, ich programmier schon ein paar Tage länger mit Delphi Ich hätte nicht gedacht, das meine simple Frage eine derartige Diskussion auslöst, die für mich aber ungeheuer interessant war. Bleibt noch eine letzte Frage übrig. Wenn ich so ein selbsterzeugtes MySomeThingObject nun in eine TList (nicht in der Prozedur deklariert) stecke, dann:

A) bleibt mein MySomeThingObject trotz verlassen der Prozedur existent
B) mit dem Freigeben meiner TList werden auch alle dort drin befindlichen MySomeThingObjects elimiert ?

Wenn hier 2x JA kommt, haben wir ja schon fast C#-Verhältnisse...

[himitsu]

bei Objekten:
Nein
und
Nein

Objekte mit TObjectList:
Nein
Ja

Interface mit Interfaces ode TObjectlist:
Ja
Ja

[Whookie]

Aber einsetzbar sind Interfaces anscheinend nur für simple Dinge, sobald Beziehung zwischen den Instanzen abgebildet werden müssen, verhindert die Referenzzähling eine Verwendung (siehe Beispiel aus meinem letzen Beitrag, dort werden Destructoren nicht aufgerufen, weil die Referenzzählung es beim Freigeben verhindert).

Ich habe das selbe Beispiel nochmals mit Interfaces ohne Referenzzählung implementiert, dann funktiniert die Referenzierung zwar, aber beim Freigeben kommet es dann zu Zugriffsfehlern weil Delphi anscheinend _Release auch dann noch aufruft, wenn das dazugehörige Objekt nicht mehr existiert.

Bleibt als die Schlußfolgerung, das Interfaces nicht geeignet sind komplexere Zusammenhänge abzubilden?!??

Für meinen speziellen Fall wäre es also eine Option eine Basisklasse zu deklarieren, die alle Eigenschaften aller Interfaces beinhaltet und in den jeweilig abgeleiteten Kindern die benötigte Funktion entsprechend zu implementieren. Dann lassen sich die Referenzen untereinander verlinken, aber schön ist das halt nicht!