Utilisation d'une variable publique dans une DLL

Version imprimable

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:

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:

1 2 With l_ADO_Query Do Begin Connection := DM.DM_ADO_Connection;
DM est égal à Nil

04/12/2006, 11h35
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.
04/12/2006, 11h58
Linkin

Il ne faut pas passer le handle de l'application à la DLL?
04/12/2006, 12h46
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.
04/12/2006, 14h50
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?
04/12/2006, 16h08
Delphi-ne
J'ai ajouté le Handle de l'application dans les paramètres attendus
Code:

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
04/12/2006, 16h11
jmjmjm

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

Code:

Application.handle;
04/12/2006, 16h29
Delphi-ne

Citation:

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:

Appli : HWND
04/12/2006, 16h31
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 ?
04/12/2006, 16h32
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
04/12/2006, 17h30
Delphi-ne

Citation:

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
05/12/2006, 09h08
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.
05/12/2006, 12h01
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:

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.
05/12/2006, 13h19
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.