Discussion :

[desperado]

Bonjour,

je bute sur un problème lié à l'utilisation des interfaces sous delphi.

Ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[desperado]

J'ai trouvé quelqu'un ayant le meme problème, malheureusement, il a du abandonner

http://www.developpez.net/forums/showthread.php?t=6627

[sjrd]

Au lieu d'hériter de TInterfacedObject, écris toi-même _AddRef et _DeleteRef, de façon à... ne rien faire ^^

[desperado]

Merci pour l'info, je viens de tester, ca a l'air de marcher.

Il suffit donc de :


déclarer votre classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
TTest = class(TObject, IInterfaceTest )
 
  protected
     function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
     function _AddRef: Integer; stdcall;
     function _Release: Integer; stdcall;
 
  end ;

et de rien mettre dans ces fonctions

[krokmitaine]

Oublies pas le tag

[sjrd]

et de rien mettre dans ces fonctions

Mettre tout de même un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := E_NoInterface;

dans la première et un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := 1;

dans les deux autres, hein