EAccessViolation avec interface et méthode de classe

Bonjour,

Je constate que l'appel d'une méthode de classe ayant une interface en paramètre provoque une erreur EAccessViolation.

Code:

---

1 2 3 4 5 6 7 8

IPublishable = interface procedure Publish; procedure Unpublish; end;   TPublisher = class class procedure Add(AKey : String; APublication : IPublishable); end;

---

L'appel de TPublisher.Add avec un objet implémentant l'interface IPublishable (et héritant de TInterfacedObject) provoque une erreur du type EAccessViolation.

S'agit-il d'un bogue ? Est-ce un comportement normal avec des méthodes de classe ?

Sur delphi 2009 ça compile et ça ne plante pas.

J'ai mis le code complet en pièce jointe. En fait il semble que le problème n'ait rien à voir avec les méthodes de classe mais avec le fait qu'avec les interfaces il y a un compteur de références et une libération automatique des objets.

c'est normal, on ne libère pas un TInterfacedObject, le compteur de référence s'en charge.

ta variable "Article" étant une référence de classe et non d'interface, elle n'intervient pas dans le comptage.

tu peux surcharger le destructor pour t'en assurer

Code:

---

1 2 3 4 5 6

destructor TArticle.Destroy; begin WriteLn('Destroyed'); inherited; end;

---