Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.060 Beiträge
 
Delphi 10.4 Sydney
 
#16

AW: TWinControl via TInterfacedObject via TInterfacedPersistent

  Alt 8. Jun 2018, 07:53
@Zacherl

Mit der Anleitung kann man allerdings nur Schiffbruch erleiden, oder? Wo ist denn jetzt der Unterschied zu der vorherigen Situation?

- TAudioVolume erzeugen
- Über TAudioVolumeProxy eine Interface-Instanz weiterreichen
- TAudioVolume freigeben
- Es knallt, wenn die Interface-Instanz auf nil gesetzt wird.
Verstehe ich nicht. Der Proxy soll innerhalb von TAudioVolume als Objektreferenz gehalten werden, nicht als Interface. Erzeugen im Constructor und Freigeben im Destructor. TAudioVolume selbst implementiert dann gar kein Interface mehr und braucht auch nicht von TInterfacedObject/TInterfacedPersistent abzuleiten, sondern nur vom guten alten TObject .

Was intern mit dem Proxy passiert ist dadurch streng reguliert (da die Proxy Instanz privat ist, nie als Interface angesprochen wird und Erzeugung und Freigabe von TAudioVolume geregelt wird.
Aber auch nur, wenn Emil den Proxy von TInterfacedPersistent (oder System.Generics.Defaults.TSingletonImplementation) ableitet, ansonsten hat er wie im Post darüber zu lesen für ihn unverständliche Invalid Pointer Zugriffe und er resigniert.

Geändert von TiGü ( 8. Jun 2018 um 07:58 Uhr)
  Mit Zitat antworten Zitat