Discussion :

[Matt27]

Bonjour, dans mon projet je dois réaliser des interfaces et des implémentations mais je ne connais pas la syntaxe en delphi. En java c'est assez simple l'utilisation des mots clés "interface" et "implements" suffise

Voici le code en java que j'aimerais obtenir en delphi :

déclaration de l'interface :

public interface MartingaleService {

L'implémentation :

public class MartingaleServiceImpl implements MartingaleService {

A noter que ce sont dans deux fichiers différents.

Pour l'instant j'ai réalisés ceux ci :

déclaration de l'interface :
IMartingaleService = interface
function add(martingale: TMartingale): TMartingale;
procedure remove(martingale:TMartingale);
procedure update(martingale:TMartingale);
function getAll(): r_Martingale ;
function getByid(id:integer): TMartingale;
function getByType(typeM: string): TMartingale;
end;

L'implémentation :
TMartingaleServiceImpl = class(TInterfacedObject,IMartingaleService)

Je voudrais savoir si mon implémentations est correct ? Si c'est le cas comment obtenir l’accès des méthodes de ma classe IMartingaleService(interface) a partir de ma classe TMartingaleServiceImpli(implémentation)

Merci pour vos réponses.

[Paul TOTH]

Code :

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

1
2
3
4
5
6
7
8
 
var
  Service: TMartingaleServiceImpl ;
  iService: IMartingaleService;
begin
  Service: = TMartingaleServiceImpl.Create;
  iService := Service; // Delphi se charge du QueryInterface et du AddRef
end;

Attention, le Release (automatique sous Delphi quand la variable sort de la portée) de TInterfacedObject peut entraîner une libération de l'objet (c'est ça façon de gérer IUnknown), mais ton service n'est pas obligé de dériver de cette classe (dans ce cas il doit implémenter IUnknown également)

[ShaiLeTroll]

Un peu de lecture : Implémentation des interfaces
Question sur les interfaces, Court circuiter le ref-count d'un TInterfacedObject! ou Les limites de l'implements ? ainsi que [C++\Delphi] Interface, Héritage et Supports !

Pense que Interface en Delphi, c'est plus pour le modèle COM qu'autre chose !

Sinon, comme le mentionne Paul TOTH, tu peux hériter du TObject et mettre un code vide au 3 méthodes de IInterface\IUnknown
Cela ne pourra pas gérer les GUID et l'opérateur as, tout dépend, si tu veux utiliser les interface juste pour des "contrat" ou vraiment pour un polymorphisme en faible couplage !

Je suppose que tes TMartingale seront en réalité des IMartingale pour conserver le couplage faible ?

Certains utilisent aussi les interfaces Delphi pour simuler un Garbage-Collector

[Matt27]

[code]

Attention, le Release (automatique sous Delphi quand la variable sort de la portée) de TInterfacedObject peut entraîner une libération de l'objet (c'est ça façon de gérer IUnknown), mais ton service n'est pas obligé de dériver de cette classe (dans ce cas il doit implémenter IUnknown également)

D'accord donc je peux faire comment pour implémenter sans utiliser TInterfacedObject ? parce que pour moi c'est ce qui permet de faire la relation entre l'interface et l'implémentation ?

TMartingaleServiceImpl = class(TInterfacedObject,IMartingaleService)

[ShaiLeTroll]

Attention, l'utilisation de TInterfacedObject est vivement conseillé !
Il faut juste bien gérer la durée de vie de ses interfaces !
En général, cela ne pose aucun problème !

Utilise déjà TInterfacedObject dans l'état, si tu as des problèmes d'interdépendances, on verra à ce moment là !

Sinon, tu es obligé d'utiliser des interfaces ?
En Delphi, ce n'est pas très utilisé, un bon vieux "virtual abstract" suffit largement, c'est similaire aux interface du C++ !
C'est bien plus léger que ce bordel de compteur d'interface, par contre, faut aimer libérer ses objets dans les destructeurs, tâches que le TInterfacedObject fait à ta place, c'est sûr que si tu es habitué au Java, tu vas trouver cela pénible de faire les libération explicite, bienvenu dans le monde rigoureux du Delphi !

[Matt27]

J'avais pas vu ta réponse Shail, merci à vous pour vos docs je vais voir ça.

[Matt27]

Non pas spécialement mais dans le code JAVA de mon prof , il utilise des interfaces donc je me suis dit que j'allais le suivre ...

[ShaiLeTroll]

Ne cherche pas à transcrire du Java en Delphi !
Quel est l'intérêt d'une telle traduction ?

Essaye de faire ton propre code, d'imaginer tes classes par toi même !

Comme toi, j'ai appris Java à l'école et Delphi durant l'apprentissage, je peux te dire qu'entre la théorie UML, les classes côté cours, et la pratique, bien bourrin côté entreprise, on était aux extrêmes opposés !
Qu'as-tu prévu comme développement avec ton Maître d'Apprentissage ?
Vous vous êtes mis d'accord sur un projet à réaliser utile pour l'entreprise ?
Finalement, tu n'utiliseras pas DataSnap ?

La méthode de programmation est différente, les pratiques sont différentes comme l'héritage d'implémentation, très courant en Delphi (90% de la VCL est codé comme ça) hors c'est justement l'inverse des Design Patterns et de l'utilisation massive des Interfaces comme cela devrait être théoriquement appliqués en JAVA !