Discussion :

[zanoubya]

Bonjour;
Je veux créer un module en delphi qui regroupera toutes les fonctions dont j'aurai besoin et le DataModule correspondant pour pourvoir les ré implémenter dans une autre application.

J'ai trouvé que c'est possible de le faire en créant une unité mais mon souci c'est que l'unité ne me permettra pas de ré implémenter le DataModule : elle contient que les fonctions et les procédures.
Alors comment procéder pour avoir un seul module contenant les fonctions et le DataModule à la fois ???? est il possible????

Merci infiniment.

[Tardiff Jean-François]

Bonjour,

Si j'ai bien compris, vous voulez créer automatiquement le datamodule losrsque vous appeler votre unité pour la 1° fois.


Pour cela vous pouvez utiliser la fonction initialization de l'unité.
Pour détruire votre datamodule en fin de travaille, utiliser finalization.

Exemple:

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
17
 
 
unit UMyUnité;
 
interface
uses  SysUtils, ADODB, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, DataBase, Classes, DB,  Variants, Contnrs,
UMyDataModule
;
 
var
  MyDataModule : TFMyDataModule; // Dans l'unité UMyDataModule
implementation
 
Initialization
  MyDataModule := TFMyDataModule.Create(nil);
Finalization
 MyDataModule.Free;

Une autre solution (plus simple), consiste a mettre vos procédure dans le DataModule.

[Just-Soft]

Salut;

je crois que la solution c'est le client / serveur. dans ton serveur tu met ton ou tes datamodules puis tu les invoque depuis le ou les clients. c'est un peu difficile de les programmer et les maintenir.

[guillemouze]

je pense que tu aura ce que tu recherche en faisant un click droit sur ton dataModule->ajouter au referentiel.
Ensuite dans un autre projet, tu fais nouveau->autre... et tu selectionne ton datamodule. Tu peu choisir d'en creer un copie, de l'heriter, ou tout simplement de referencer le meme fichier

[Andnotor]

Il faut aussi penser que si ces fonctions sont réparties dans plusieurs unités mais qu'elles apparaissent dans le uses de ton DataModule, leurs inclusions dans ton projet est implicite . Tu n'as pas besoin de les lier manuellement (Ajout au projet).

[zanoubya]

Bonjour;
Merci à tous pour vos réponses.
Je vois que toutes vos solutions sont logiques mais pour mon cas je vais suivre celle prposée par Tardiff Jean-François.
BOnne journée

[guillemouze]

bon bah alors je crois que j'ai pas compris ton probleme

[ShaiLeTroll]

Pour information, c'est la mise en pratique de la Design Patterns : Singleton ...

Sinon, un DataModule, ça ne sert pas à grand chose, ce n'est qu'un container pour TComponent, cela peut être remplacé par une véritable architecture objet base sur les patterns Singleton et Factory ...