interface dans un variant : libération de la référence

Version imprimable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
ITest = interface
        ['{8BAC43A7-9083-4736-8912-708AF5D684A7}']
        function BonAlors: Boolean;
end;
 
TTest = class(TInterfacedObject, ITest)
        function BonAlors: Boolean;
 
        destructor Destroy; override;
end;
 
 
 
{ TTest }
 
function TTest.BonAlors: Boolean;
begin
        result := True;
end;   
 
destructor TTest.Destroy;
begin
        Form1.Memo1.Lines.Add('Destr');
        inherited;
end;

ensuite

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
        VarTest: Variant;
        IntTest, IntTest2: ITest;
        testu: IUnknown;
begin
        Memo1.Clear;
 
        IntTest := TTest.Create;
 
        VarTest := IntTest as IUnknown;
 
        IntTest := nil;    
        VarTest := Unassigned;
 
        Memo1.Lines.Add('fin');
end;

je voudrait qu'il affiche 'destroy' avant d'afficher 'fin', cependant, VarTest := Unassigned ne semble pas provoquer la libération de la référence. Il faut attendre de sortir de la fonction pour que 'destroy' soit affiché.

Qqn a une explication ?

14/10/2005, 20h16
Laurent Dardenne
Salut,
le code est correcte mais il me semble que tu supposes que le compteur de référence devrait être égale à 2 après l'appel de
Code:

1 2 VarTest := IntTest as IUnknow;
mais en tracant on s'aperçoit que le compteur FrefCount vaut 3 tout simplement parce que l'opérateur as appel QueyInterface et donc incrémente le compteur de référence.
Au vu de ton code l'appel de as ne semble pas justifié, ce code affiche bien 'destroy' avant 'fin'.
Code:

1 2 VarTest := IntTest;
A partir du moment ou IntTest est une interface, le code IntTest := TTest.Create renvoi une interface qui par défaut implèmente IUnknow.

Qq peut-il confimer ?
14/10/2005, 20h21
Bruno75

j'avais eu un problème de compilation et c'est pourquoi j'avais cru nécessaire de mettre as IUnknown. Je viens de réessayer, ça fonctionne. J'avais du rater quelque chose d'autre.

hyper bizarre quand même ce problème de comptage de référence.

Citation:

A partir du moment ou IntTest est une interface, le code IntTest := TTest.Create renvoi une interface qui par défaut implèmente IUnknow.

Qq peut-il confimer ?

je confirme sans hésiter.
14/10/2005, 20h31
Laurent Dardenne

Citation:

Envoyé par Bruno75

hyper bizarre quand même ce problème de comptage de référence.

Pas vraiment d'aprés la doc en ligne (D6) :

Citation:

Renvoie une référence à l'interface spécifiée, si l'objet supporte cette interface.

type HResult = Longint;
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;

Description

QueryInterface vérifie si l'objet qui implémente cette interface prend en charge l'interface spécifiée par IID. Si tel est le cas, QueryInterface

incrémente le compteur de références.
définit le paramètre Obj afin qu'il pointe sur une instance de l'interface spécifiée.
renvoie 0 pour confirmer la réussite de l'opération.

Si l'objet ne supporte pas l'interface, QueryInterface renvoie un code d'erreur non nul tel que E_NoInterface.

si si c'est bizarre. d'ailleurs, si tu remplaces mon variant par une interface IUnknown et que tu laisses le as le destroy interviendra bien avant le retour de la fonction.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 VarTest: IUnknown; IntTest, IntTest2: ITest; testu: IUnknown; begin Memo1.Clear; IntTest := TTest.Create; VarTest := IntTest as IUnknown; IntTest := nil; VarTest := nil;
ça marche.

14/10/2005, 20h50
Laurent Dardenne

Oui j'avais fais le test mais la trace du comportement d'un variant est un peu plus complexe :wink:
14/10/2005, 20h53
Bruno75

un bon gros bug de Delphi quoi.
en tout cas merci tu m'as débeloker.