Interface und 'normale' Referenz

[Bernhard Geyer]

Zitat von hansmaad:

Das Problem hab ich ja schon erkannt. Die Frage ist wie es zu lösen ist. Ein IWasAnders Interface einführen? Aber wie sieht dann Foos Erzeugung aus?

erzeugung ist genauso. Du darfst es halt keinen Referenzzeiger mehr zuweisen:

Delphi-Quellcode:

var
    f : IMachtBuh;
begin
    f := Foo.Create;

Hier nehm ich mir of COM als vorbild und leg mit eine Co-Funktion an und die Implementierende Klasse soweit verstecken das keiner mehr darauf kommt diese entsprechend über Refernzzeiger zu verwenden:

Delphi-Quellcode:

funktion CoFoo: IMachtBuh;
begin
  result = Foo.Create;
end;

[hansmaad]

Zitat von Bernhard Geyer:

erzeugung ist genauso. Du darfst es halt keinen Referenzzeiger mehr zuweisen:

Delphi-Quellcode:

var
    f : IMachtBuh;
begin
    f := Foo.Create;

Ja nu ruf aber mal Foo.WasAnderes auf.

[quantum]

Seit Delphi 2010 kann man endlich von Interface auf Instanz casten.

Code:

var
    f : IMachtBuh;
begin
    f := Foo.Create;
    (f as Foo).WasAnderes;

[xaromz]

Hallo,

wenn es nur darum geht, eine Funktion aufzurufen, kannst Du auch mit const arbeiten:

Delphi-Quellcode:

procedure MachBuh(const b : IMachtBuh);
begin
    b.Buh;
end;

Dadurch wird der Referenzzähler beim Aufruf nicht verändert und folglich das Objekt am Ende nicht freigegeben. Man sollte übrigens immer const verwenden, das vermeidet Fehler und ist außerdem noch schneller.

Gruß
xaromz

[Bernhard Geyer]

Zitat von xaromz:

Dadurch wird der Referenzzähler beim Aufruf nicht verändert und folglich das Objekt am Ende nicht freigegeben.

Guter Tipp Sonst mach ich bei Strings/Records alles immer mit const. Aber das das bei Interfaces auch was positives bewirkt ist ja schön.

[hansmaad]

Zitat von xaromz:

Hallo,

wenn es nur darum geht, eine Funktion aufzurufen, kannst Du auch mit const arbeiten:

Delphi-Quellcode:

procedure MachBuh(const b : IMachtBuh);
begin
    b.Buh;
end;

Dadurch wird der Referenzzähler beim Aufruf nicht verändert und folglich das Objekt am Ende nicht freigegeben. Man sollte übrigens immer const verwenden, das vermeidet Fehler und ist außerdem noch schneller.

Gruß
xaromz

Guter Tipp. Dazu aber (wenn zur Zeit für mich zwar nicht relevant) mal die Frage, ist der Referenzzähler von Interfaces Thread sicher? Denn wenn MachBuh(const b : IMachtBuh); den Referenzzähler nicht inkrementiert, könnte ein anderer Thread das Objekt löschen. Oder ist die Sicherheit generell nicht gegeben.

Zitat von quantum:

...Besser ein Interface für die benötigten Methoden einführen und nichts anderes als die Interfaces benutzen.

Delphi-Quellcode:

IMachtWasAnderes = interface
  procedure WasAnderes;
end;

Foo = class(TInterfacedObject, IMachtBuh, IMachtWasAnderes)

Danach hatte ich ja auch schon gefragt. Wie würdest du denn damit die Funktion aus dem ersten Beitrag schreiben?

[mjustin]

Zitat von hansmaad:

ist der Referenzzähler von Interfaces Thread sicher?

Interfaces in Delphi haben keinen Referenzzähler. Die konkreten Klassen wie z.B. TTinterfacedObject, TInterfacedPersistent oder TComponent sorgen für die Referenzzählung - daher muss man wissen, wie diese implementiert ist, um Probleme mit Threads oder Speicherlecks zu vermeiden.

• Bei TTinterfacedObject kann man im Code direkt sehen, dass threadsicher vorgegangen wird

• Bei TTinterfacedPersistent wird die Referenzzählung an ein 'FOwnerInterface' Feld delegiert (das vorhanden sein kann aber nicht muss...)

• Bei TComponent wird eine Referenzzählung an ein IVCLComObject delegiert, falls es vorhanden ist

Es gibt noch weitere Varianten der Referenzzählung (zum Beispiel bei der TRemotable für Soap). Interfaces in Delphi erlauben Freiheiten bei der Implementierung, die es in anderen Sprachen nicht gibt - wer mag, kann das natürlich auch als Vorteil sehen.

[generic]

Notfalls erzeugt man sich eine eigene Klasse, die das gewünschte verhalten hat.

[hansmaad]

Zitat von mjustin:

• Bei TTinterfacedObject kann man im Code direkt sehen, dass threadsicher vorgegangen wird

Dann muss eine Funktion, die ein IMachBuh Parameter als const nimmt trotzdem aufpassen, dass ein anderer Thread das Objekt nicht weglöscht, denn sie inkrementiert den Zähler überhaupt nicht ??

[Bernhard Geyer]

Zitat von quantum:

Seit Delphi 2010 kann man endlich von Interface auf Instanz casten.

Das halte ich für nicht sinnvoll. Man verwendet ja Interfaces um von den Objektinstanz-Klassen wissen zu müssen.