Discussion :

[Delphi-ne]

J'utilise une DLL devant accéder aux données.
Elle inclut donc un DataModule.
Le DataModule est initialisé à l'ouverture de la DLL et je voudrais savoir le rendre Global pour que les différentes unités le voient sans que j'ai à le repasser en paramètre.

Actuellement mon code ressemble à cela

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
18
19
20
21
22
23
24
25
Var
   DM    : TDM;
   oForm : ToFormS01_ECIV;
 
 
{$R *.RES}
Procedure xxx(P1        : String;
              var Objet : TPanel);
Var
   oPanel: TPanel;
   oForm : Tform;
 
Begin
   DM := TDM.Create(Nil);
   DM.DM_Initialisation;
   oForm := TW_Test.Create(Application);
   oForm.ParentWindow := Objet.Handle;
   oForm.Align        := alClient;
   oForm.Show;
End;
 
Exports xxx;
 
begin
end.

Le problème est qu'au niveau de la Form la ligne

Code :

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

1
2
   With l_ADO_Query Do Begin
        Connection := DM.DM_ADO_Connection;

DM est égal à Nil

[Caine]

Je suppose que tu as bien chargé la dll? Utilises-tu du just in time auqeul cas, si elle trop logtemps inutile, a dll est peu être déchargée.

Es-tu sur qu'il n'y a pas eu d'exception dans ta dll, qui aboutit aussi à DM == nil?

Voilà quelques pistes.

[Linkin]

Il ne faut pas passer le handle de l'application à la DLL?

[Delphi-ne]

La DLL fontionne bien.
Elle affiche les informations, ouvre bien le dataModule et charge les informations dont elle a besoin.
En parametre elle reçoit juste le handle d'un panel dans lequel elle doit travailler.

[Caine]

Le handle du panel est-il valide en dehors du processus qui le detient? Il me semble que ce n'est pas une certitude.

Le handle de l'application, l'est mais pour les autres...je ne sais plus.

Tu peus nous faire un screenshot du message d'erreur?

[Delphi-ne]

J'ai ajouté le Handle de l'application dans les paramètres attendus

Code :

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

1
2
3
Procedure xxx(    P1    : String;
              var Objet : TPanel;
                  Appli : HWND);

Par contre j'ai un premier problème : HWND est de type inconnu. A lire l'aide j'avais compris qu'il fallait un Uses de TForm mais apparament ce n'est pas le cas.

Ma seconde question : une fois que j'aurai le handle de l'application comment faut-il il appeler le dataModule ?

Merci d'avance