Discussion :

[BONNEFOI Patrick]

Bonjour,

je souhaiterais modulariser une application afin de pouvoir la maintenir plus facilement. Mon projet est en delphi 7 win 32 et je ne souhaite pas le passer à .Net.

Dans mon idée je souhaitais créer un programme contenant la fiche principale plus un TJvPluginManager et ainsi développer des plugIns par fonction.

Le problème vient de l'accès à la base de données. Je ne vois pas comment faire.

Est-ce qu'il faudrait créer un datamodule dans chaque plugin ou au contraire faut-il créer un plugin avec tous les accès à la base de données ou encore mettre les accès à la BD dans la fiche principale ?

si quelqu'un peut me donner des pistes? Si vous avez lien je suis aussi preneur.

Merci

[BONNEFOI Patrick]

bon ,

j'ai un peu avancé
j'ai une DLL avec mon datamodule et dans lequel j'ai une requete.

J'execute ma requete depuis le programme qui appelle cette DLL et j'ai le message "opération de pointeur incorrecte". J'arrive pas à voir l'erreur.

A+

[evarisnea]

J'execute ma requete depuis le programme qui appelle cette DLL et j'ai le message "opération de pointeur incorrecte". J'arrive pas à voir l'erreur.

nous aussi, vu qu'on n'a pas ton code sous les yeux

[BONNEFOI Patrick]

Bonjour,

voici avec un peu de retard ma réponse

dans ma dll j'ai le code suivant

Code :

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

1
2
3
4
5
6
7
8
 
function FindAdhe : TOracleDataSet; stdcall;
begin
  if DmMainDB = nil then
    DmMainDb  := TDmMainDb.Create(nil);
  DmMain.DmMainDB.odsTestDL.Active    := True;
  Result  := DmMainDB.odsTestDL;
end;

et j'exporte ma fonction FindAdhe;

dans le programme client j'ai le code suivant

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DataSource1.DataSet       := FindAdhe;
end;

je veux simplement afficher la liste des adhérents dans une dbgrid.

dans le programme client, j'ai déclaré la fonction de la dll comme suit

Code :

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

1
2
 
function FindAdhe : TOracleDataSet; stdcall external 'DllDm' name 'FindAdhe';

C'est lorsque le passe sur l'affectation au datasource que j'ai le message 'Opération de pointeur incorrect'.

Merci

[Hauwke]

Bonjour,
2 files de discussion :
http://www.developpez.net/forums/sho...d.php?t=147619
http://www.developpez.net/forums/sho...d.php?t=148744
sur des sujets proches du votre et une conclusion:
J'ai abandonné l'usage des TDatamodule dans les Dlls. Je pense que pour les utiliser au travers d'une dll il faut utiliser les approches "passage d'objets" ou bien "instance d'interface", j'avoue ne pas avoir eu le temps de m'y pencher sérieusement.
Je suis preneur de toutes pistes de solution...
Cordialement,
Hauwke

[BONNEFOI Patrick]

Bonjour,

j'ai pas eu le temps de regarder plus

je garde sous le coude les liens que vous m'avez donné.

A+