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

[jmjmjm]

Si mes souvenirs sont exact le handle de ton application s'obtient comme ceci :

Code :

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

Application.handle;

[Delphi-ne]

Application.handle

Ca OK. Ce que je n'arrive pas à faire c'est la déclaration.
Ici HWND est de type inconnu et je ne sais quel uses indiquer.

Code :

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

Appli : HWND

[Delphi-ne]

J'ai trouvé : HWND est dans l'Unité Windows

La question qui me reste : avec le handle de l'application comment faut-il appeler le Data Module ?

[Linkin]

Ctrl+clic sur Application.Handle puis sur HWND, et on se retrouve sur l'unité Windows.



Edit: Grillé.

Pour le Handle de l'application, je pense qu'il faut faire une fonction de cette façon:
http://www.developpez.net/forums/sho...3&postcount=21
ou
http://www.developpez.net/forums/showthread.php?t=79597
Il y avait aussi d'autres post là-dessus, mais je ne les retrouve pas

[Delphi-ne]

Ctrl+clic sur Application.Handle puis sur HWND, et on se retrouve sur l'unité Windows.

Ca marche une fois que la Unit est déclarée. Sinon Deplhi dit qu'une erreur de syntaxe l'empêche de trouver.

Ce qui me reste est le pointage sur le DataModule de l'application en utilisant le Handle que je viens de passer en paramètre.
Et ca je ne sais pas le faire

[Caine]

Tu peux clarifier ton dernier post, je ne comprends pas ta question.

Tu as essayer de jouer en pas à pas l'init de ta dll et vérifier les valeurs passées et obtenues? Ou en utilisant un fichier de log.

[Delphi-ne]

Il n'y a pas de plantage
Dans l'EXE le datamodule a été ouvert. il s'appelle DM
Dans ma DLL j'ai le code suivant :

Code :

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

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

Je voudrais savoir comment appeler DM à l'intérieur de la dll.
Je pense qu'il faut utiliser le handle de l'application mais je ne connais pas la syntaxe.

[Caine]

J'ai compris, désolé mais jusque là j'été à côté!

A mon avis il y a plus simple : CreateFileMapping, pour partager l'objet avec la dll. Tu stockes DM dans un semaphore, nommé et la dll peux ansi récupéré l'objet initialisé.

Le problème du Handle, c'est que dans ta DLL, tu devras te pelucher l'API WIN 32 pour retrouver ton objet...très long à mettre en place.

Dans la FAQ Delphi, ou dans les tutos, il y a une rubrique sur CreateFileMapping.

Hum, peut être qu'un simple TSLData suffirait. Malheureusement, tout le code de mon cru est propriétaire et chez mon ancien employeur, je n'ai pas d'exmple à te donner.