problème utilisation interfaces delphi
Bonjour,
je bute sur un problème lié à l'utilisation des interfaces sous delphi.
Ex :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
type
IInterfaceTest = interface
end ;
TTest = class(TInterfacedObject, IInterfaceTest )
end ;
function TraiterObjetParInterface(UnIInterfaceTest : IInterfaceTest) ;
begin
// faire des choses avec UnIInterfaceTest
end ;
procedure MaFonctionDeTest ;
var
UnTest : TTest ;
begin
UnTest := TTest.Create ;
TraiterObjetParInterface(UnTest) ;
// arrivé ici, l'objet UnTest est déjà détruit !!!
end ; |
Voila, je ne voudrais pas qu'il me détruise mon objet.
Bien sur, je pourrai appeler _Addref pour eviter la destruction, n'existe-t-il pas un moyen plus correct d'utiliser les interfaces tout en gardant le controle de l'objet ? :?
Merci d'avance ;)