Savoir si un objet implement une interface

Version imprimable

Bonjour a tous j'ai créer une interface

Code:

1
2
3
4
5
 
    ISecurity = interface(IInterface)
    ['{C05A0D2F-0E87-45E0-95DF-9315D1A02EEF}']
    procedure CanSessionAcces(Session: TSession); stdcall;
    end;

et j'ai une class qui implemente cette interface

Code:

1
2
3
4
5
6
7
8
9
10
TPersoBouton = class(TBitBtn, ISecurity)
  private
    ........
    procedure CanSessionAcces(Session: TSession); stdcall;
    ........
  public
    constructor Create(AOwner: TComponent); override;
  published
    ..........
      end;

sur un formulaire ou je depose mon bouton j'ai la fonction suivante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFormPerso.securityControl;
var i: integer;
Int :ISecurity;
btn :TPersoBouton;
begin
   for i:=0 to self.ComponentCount -1  do
   begin
        if   Components[i].IsImplementorOf(int) then
        begin
            Int := Components[i] as ISecurity;
            Int.CanSessionAcces(nil);
        end;
   end;
end;

la condition Components[i].IsImplementorOf(int) retourne toujours false bien l'element à l'index i implement l'interface.
j'espère avoir exposé clairement mon probleme.
Cordialement.

17/11/2006, 17h11
sjrd
Il est risqué de travailler sur un même objet en même temps en temps qu'instance d'une classe et qu'instance d'une interface. Car dès le moment que tu récupères une référence à son implémentation de l'interface, l'objet compte ses références d'interfaces, mais pas celles d'instance de classe.
Donc soit travaille uniquement avec des références à des interfaces, soit uniquement avec des références à des classes.

Cela dit, pour ton problème, il est fort possible qu'il te faille d'abord récupérer Components[i] en tant que IInterface, puis utiliser un as d'interfaces pour le récupérer en ISecurity, avec éventuellement génération d'une exception EIntfCastError s'il ne l'implémente pas.
Code:

1 2 3 4 5 6 7 8 9 10 var Intf : IInterface; Security : ISecurity; ... Intf := Components[i]; try Security := Intf as ISecurity; // Do something with Security except on Error : EIntfCastError do; end;
Voir aussi : Quid du transtypage et de l'opérateur as ?
17/11/2006, 18h39
toure32
je crois que le probleme est au niveau Components[i].IsImplementorOf(int) qui retourne false bien que Components[i] implemente l'interface.
je ne sais pas si c'est un bug mais
Components[i].IsImplementorOf(int) retourne false alors que
Code:

1 2 Int := Components[i] as ISecurity; Int.CanSessionAcces(nil);
ne genère pas d'erreur au contraire la methode CanSessionAcces(nil); est executé pour chacun des Components[i].
cordialement
17/11/2006, 20h54
sjrd

En fouillant un peu les codes sources de la VCL, j'ai compris le problème : IsImplementorOf, méthode qui ne me disait rien, n'est pas du tout utilisée dans ton cas de figure. Cela fait partie du processus très complexe de sauvegarde en flux des composants.

La seule manière de procéder qui fonctionne est celle que j'ai indiquée plus haut, à savoir l'utilisation de as avec un except sur EIntfCastError.