Discussion :

[RObMat]

Salut tous,

Je suis un petit nouveau dans le delphi [Delphi 7][WinXP] mais j'ai toutefois une lourde expérience en Java. Et je me suis pris au jeu de faire une conception à la java avec en particulier l'utilisation d'interface c'est à dire en Delphi de IInterface. Et j'ai des comportement plutot bizarre concernant les affectations de variables.

Voici un rapide exposé de ma conception :

Code :

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

1
2
3
4
5
 
IService = interface
 
 procedure InitService;
end

le Guid étant généré avec S+Ctrl+G

Une classe d'implémentation

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
 
TMyService = class(TInterfacedObject , IService)
  constructor Create;
 
  private
    FEventListeners :     IInterfaceList;
    FSequenceListeners :  IInterfaceList;  
 
   public
    // Implementation de l'interface
    procedure InitService;
 
   //Implementation propre
 
  procedure fire;
end

L'implementation du constructor s'assure de mettre à nil toutes les variables.

Code :

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

1
2
3
4
5
constructor Create;
begin
 FEventListeners := nil;
 FSequenceListeners := nil; 
end;

Et Fire initialize les variables FeventListeners et FSequenceListeners.

Voici la sequence d'utilisation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
 l_list : IListInterface;
 l_service : IService;
 l_MyService : TMyService;
begin
l_list := TListInterface.Create;
l_list.add(IService(TMyService.create ));
l_service := l_list[i] as IService;
l_service.init;
l_MyService := TMyService(l_service);
l_MyService.fire;

Et c'est là dans fire qu'apparait le problème.

Code :

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

1
2
3
4
5
6
7
 
procedure fire;
begin
 if FEventListeners <> nil then
    FEventListeners := TListInterface.Create;
 
end

Bien que FEventListeners est été mis à nil dans le Create et bien il n'est pas nil et provoque donc une erreur lors de la nouvel création.

Ici la variable est est une IInterfaceList mais j'ai aussi le cas avec d'autre type.

Est ce que quelqui'un peut m'expliquer ou m'aiguiller vers de la doc détailler sur les différents cast et en particulier dans l'utilisation des IInterface.

Merci
Et si quelqu'un a des problèmes en JAva - No problem

[MD Software]

Essaye :

Code :

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

1
2
3
4
5
6
procedure fire; 
begin 
 if Assigned(FEventListeners) then 
    FEventListeners := TListInterface.Create; 
 
end

[RObMat]

Je te remercie de ton aide mais le problème n'est pas de vérifier l'affectation, c'est qu'il y a affectation d'une variable sur un pointer non souhaité. Ma variable est normalement à nil mais quand je verifie son affectation après récupération dans la liste, suite au cast TMyService, une ou des variables sont affectés sans action de ma part.

[Pierre Castelain]

Je pense savoir d'où vient ton problème. Cette ligne me semble fausse :

Code :

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

1
2
 
l_list.add(IService(TMyService.create ));

Tu devrais écrire :

Code :

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

1
2
 
l_list.add(TMyService.create as IService);

En effet, lorsque on utilise l'opérateur as, cela revient à appeler la méthode QueryInterface qui retourne l'interface spécifié : un pointeur, différent de celui d'une autre interface ou de la classe Delphi. Si tu transtypes directement, tu transforme artificiellement une instance de classe Delphi en interface. Tu obtiens donc n'importe quoi.
Autre chose :

Code :

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

1
2
 
l_service := l_list[i] as IService;

Est-tu sûr de ta variable i ? Comme elle n'apparait pas dans le code...
A ta place, j'aurais plutot écrit :

Code :

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

1
2
3
4
5
6
 
begin 
l_list := TListInterface.Create; 
l_service:= TMyService.Create as IService;
l_list.add(l_service); 
l_service.init;

C'est plus rapide puisqu'il n'y a plus qu'un seul "transtypage" et le risque d'erreur est plus faible.

[RObMat]

Merci de ta réponse éclairante. Il semble en effet que se soit lié à des problèmes de transtypage.

Il n'y a pas de souci dans la récupération du IService dans la liste. Par contre lorsque je retranstype celui ci dans l'objet y a un problème.

Code :

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

1
2
3
4
5
6
7
var
l_service : IService;
l_myservice : TMyService;
begin
l_service.init; // Pas de souci
l_myservice := TMyService(m_service);
l_myservice.fire ; //Problem les variables sont déjà affecté par un grand mystère.

pour info si cela peut vous donner des pistes. J'utilise un singleton : TAppliContext qui contient la liste de mes services afin de disposer d'une seule instance de ceux ci partout dans le code. Ca marche très bien sauf ces malheureuse affectation.

Sinon merci pour réactivité

[RObMat]

Il faut lire le code suivant

Code :

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

1
2
3
4
5
6
7
var
l_service : IService;
l_myservice : TMyService;
begin
l_service.init; // Pas de souci
l_myservice := TMyService(l_service);
l_myservice.fire ; //Problem les variables sont déjà affecté par un grand mystère.

Et MERCI pour vos réponses.