Discussion :

[toure32]

Bonjour a tous j'ai créer une interface

Code :

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

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 :

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

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 :

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

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.

[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 :

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

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 ?

[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 :

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

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

[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.