Discussion :

[Neuromancien2]

Bonjour,

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

Code :

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

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 ?

[Dr.Who]

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

[Neuromancien2]

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.

[Paul TOTH]

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 :

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

1
2
3
4
5
6
 
destructor TArticle.Destroy;
begin
  WriteLn('Destroyed');
  inherited;
end;