Discussion :

[JuJu°]

Bonjour,

Je suis toujours en train de decouvrir Delphi et maintenant un nouveau pb...

Voila j'ai une classe TClass1 qui derive de TObject
J'ai une interface IInterface1
J'ai une classe TClass2 qui herite de TClass1 et qui implemente IInterface1

Je n'arrive pas a trouver pourquoi il veut que j'implemente les methodes QueryInterface, _AddRef, _Release?

Voici mes fichiers

TClass1.pas

Code :

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

1
2
3
 
type
  TClasse1 = class(TObject)

IInterface1.pas

Code :

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

1
2
3
4
 
type
  ISurface = interface(IInterface)
    function GetName:string;

TClass2.pas

Code :

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

1
2
3
4
5
6
 
uses
  Class1, Interface1;
 
type
   TClass2 = class(TClass1, IInterface1)

Je dois rater quelquechose, tous les exemples que j'ai trouve, on a
TClass2 = class(TInterfacedObject, IInterface1)
Et la, je n'ai plus besoin des methodes QueryInterface, _AddRef, _Release
Si quelqu'un peut eclairer ma lanterne!

Merci beaucoup

[JuJu°]

Si je fais derive TClass1 de TInterfacedObject, cela passe bien!

Est-ce la bonne solution pour ce genre de probleme?

Merci

[sjrd]

Parce que IInterface1 dérive de IInterface (comme toutes les interfaces), et que IInterface déclare les trois méthodes que tu cites.

Est-ce la bonne solution pour ce genre de probleme?

Ce n'est pas un problème, mais c'est la solution