Dériver de TThread et d'une interface

Version imprimable

01/02/2016, 12h01
JimKirk

Dériver de TThread et d'une interface

Bonjour à tous,

je viens du C++ (depuis 1999!) et je commence à développer en Delphi depuis... 1 mois. Je bloque sur un problème conceptuel qui, je suis sûr, est un problème de débutant et une peccadille pour les développeurs ici présents. Voici :

- J'ai une classe A qui dérive d'une interface IObservable que j'ai déclaré comme suit : A= class(TInterfacedObject, IObservable) (implémentation du design pattern Observateur)

- Par ailleurs, je veux que cette classe dérive aussi à présent de la classe abstraite TThread.

Et là je rencontre un problème car je ne peux évidemment pas écrire : A = class(TInterfacedObject, IObservable, TThread) car il n'y a pas d'héritage multiple en Delphi.

Mais je ne peux pas non plus remplacer TThread par une IThread puisque TThread ne dérive pas d'une interface.

Comment faire ?

Merci par avance pour vos suggestions avisées.
01/02/2016, 13h42
Ph. B.

Bonjour,

Citation:

Envoyé par JimKirk

- J'ai une classe A qui dérive d'une interface IObservable que j'ai déclaré comme suit : A= class(TInterfacedObject, IObservable) (implémentation du design pattern Observateur)

- Par ailleurs, je veux que cette classe dérive aussi à présent de la classe abstraite TThread.

Et là je rencontre un problème car je ne peux évidemment pas écrire : A = class(TInterfacedObject, IObservable, TThread) car il n'y a pas d'héritage multiple en Delphi.

Mais je ne peux pas non plus remplacer TThread par une IThread puisque TThread ne dérive pas d'une interface.

Comment faire ?

Je ferais comme ceci :
Dériver TInterfacedObject en y incorporant un TThread (classe composée) : TThreadTInterfacedObject et cette dernière associée à l'interface.
On aurait A:= class(TThreadTInterfacedObject, IObservable)
01/02/2016, 14h03
JimKirk

Je vois. Merci beaucoup !
01/02/2016, 18h40
guillemouze

Ou tu peux aussi faire le contraire, hériter de TThread et implémenter les quelques fonctions de IInterface (QueryInterface, AddRef, Release), dont tu trouvera le code dans TInterfacedObject.
Attention, tu as 2 comportements qui peuvent te rendre dans un état incohérent : le TThread.FreeOnTerminate, et la destruction automatique des interfaces.
03/02/2016, 11h12
JimKirk

Citation:

Envoyé par guillemouze

Ou tu peux aussi faire le contraire, hériter de TThread et implémenter les quelques fonctions de IInterface (QueryInterface, AddRef, Release), dont tu trouvera le code dans TInterfacedObject.
Attention, tu as 2 comportements qui peuvent te rendre dans un état incohérent : le TThread.FreeOnTerminate, et la destruction automatique des interfaces.

OK, merci également pour cette seconde option !