Utilisation de FreeLibrary ?

Pour charger dynamiquement une DLL, j'utilise LoadLibrary (comme il se doit).

Pour libérer, je pensais qu'il fallait utiliser FreeLibrary, mais j'obtiens des violations d'accès à la fermeture de l'application pour certaines de mes DLL.
Et si je ne l'utilise pas, plus d'erreur. Mais, la DLL chargée en mémoire, est-elle déchargée ?

Je précise qu'auparavant, j'utilisais ma DLL de manière statique, sans problème. Je suis passé à une méthode dynamique pour pouvoir spécifier le chemin où se trouve la DLL.

Donc, pour l'instant je n'utilise plus FreeLibrary.
Mais, est-ce propre ?

Salut

Pour ma part point de LoadLibrary sans FreeLibrary.
Si tu charges dynamiquement ta DLL il faut prendre le soin de la libérer après utilisation.

Donc pour répondre à ta question: Est-ce propre ?
Ma réponse est non. :aie:

Par contre je suis étonné que tu n'aies pas de problème avec un chargement statique. Qu'est-ce qu'elle fait cette DLL ?

@+ Claudius

Citation:

---

Envoyé par Cl@udius

Pour ma part point de LoadLibrary sans FreeLibrary.
Si tu charges dynamiquement ta DLL il faut prendre le soin de la libérer après utilisation.

Donc pour répondre à ta question: Est-ce propre ?
Ma réponse est non. :aie:

---

Bon, c'est ce qu'il me semblait. ;)

Citation:

---

Envoyé par Cl@udius

Par contre je suis étonné que tu n'aies pas de problème avec un chargement statique. Qu'est-ce qu'elle fait cette DLL ?

---

Elle ouvre une fenêtre (ou plusieurs même), et après quelques saisies, je fais quelques requêtes Oracle pour ranger tous ça.
Ca fonctionne bien depuis pas mal de temps (en statique). Si aucun utilisateur ne s'est plein, c'est que ça doit être plutôt stable. :aie:

Sinon, j'ai testé avec un point d'arrêt sur le FreeLibrary, et la grosse erreur survient après. Mais, je ne peux plus tracer. Ce n'est plus dans mon code.

Pour faire avancer le problème, voici des bouts de code :
- Déclarations :

Code:

---

1 2 3 4 5 6

var _HandleDLL: THandle; InitDemandeExtDLL_: procedure(HandleApp: HWND; pSession: Pointer; const sInstance: PChar; const sSociete, sSite, sAtelier, sLibelleAtelier, sUtilisateur: PChar); stdcall; // external 'DemandeExt.dll' name 'InitDemandeExtDLL'; AffDemandeExt_: function(nMode: LongInt; sNumDemande: PChar; sQuantite: PChar; pInfoDmd: Pointer = nil): LongBool; stdcall; // external 'DemandeExt.dll' name 'AffDemandeExt'; GetDernierID_: function: ShortString; stdcall; // external 'DemandeExt.dll' name 'GetDernierID'; GetPorteRetour_: function(const sCode: PChar): TPorte; stdcall; // external 'DemandeExt.dll' name 'GetPorteRetour';

---

- Chargement de la DLL :

Code:

---

1 2 3 4 5 6 7 8 9

procedure ChargerDLL; begin _HandleDLL := 0;   //.Chargement de la DLL. _HandleDLL := LoadLibrary('C:\APP_HMY\DLL\DemandeExt.dll'); if _HandleDLL = 0 then raise Exception.Create('.Erreur : le chargement de la DLL [DemandeExt.dll] a échoué !'); end;

---

- Exemple d'appel d'une fonction de ma DLL :

Code:

---

1 2 3 4 5 6 7 8

procedure InitDemandeExtDLL(HandleApp: HWND; pSession: Pointer; const szInstance: String; const szSociete, szSite, szAtelier, szLibelleAtelier, szUtilisateur: String); begin @InitDemandeExtDLL_ := GetProcAddress(_HandleDLL, 'InitDemandeExtDLL'); if @InitDemandeExtDLL_ = nil then raise Exception.Create('.Erreur : la procedure ''InitDemandeExtDLL'' de la DLL [DemandeExt.dll] est introuvable !' + #13#10 + SysErrorMessage(GetLastError)) else InitDemandeExtDLL_(HandleApp, pSession, PChar(szInstance), PChar(szSociete), PChar(szSite), PChar(szAtelier), PChar(szLibelleAtelier), PChar(szUtilisateur)); end;

---

- Libération de la DLL :

Code:

---

1 2 3 4 5 6

procedure LibererDLL; begin //.Libération de la DLL. if _HandleDLL <> 0 then FreeLibrary(_HandleDLL); end;

---

Re,

Dans InitDemandeExtDLL_, je suppose que HandleApp est le handle de l'application hôte.

Est-ce que tu attribues ce handle au handle de l'objet TApplication de la DLL ?

Code:

---

Application.Handle := HandleApp;

---

Je demande ça car je prends toujours cette précaution lorsque la DLL possède des fenêtres, comme préconisé dans l'aide de Delphi d'ailleurs.

Citation:

---

Envoyé par Cl@udius

Dans InitDemandeExtDLL_, je suppose que HandleApp est le handle de l'application hôte.

Est-ce que tu attribues ce handle au handle de l'objet TApplication de la DLL ?

Code:

---

Application.Handle := HandleApp;

---

---

Oui, c'est ça.
De même que le pSession pour utiliser la même session Oracle et éviter une deuxième connexion.

Bon :koi:
Difficile comme ça de cerner le problème.

Pb de connexion de connexion avec Oracle ? Fermeture intempestive de la session à la libération ? Appel tardif d'une fonction de la DLL depuis l'hôte ?

Je ne suis pas d'une grande aide, désolé.

@+ Claudius.

Citation:

---

Envoyé par Cl@udius

Pb de connexion de connexion avec Oracle ? Fermeture intempestive de la session à la libération ?

---

Je ne pense pas. Il n'y a pas d'erreur Oracle, ni BDE.
Et à la fermeture, je ne fais aucune requête.

Citation:

---

Envoyé par Cl@udius

Appel tardif d'une fonction de la DLL depuis l'hôte ?

---

Il est possible que l'application fasse appel à la DLL d'une façon ou d'une autre. C'est le plus probable.

Mais, il n'y a pas d'appel à mes fonctions de la DLL qui soit incontrôlés. C'est-à-dire qu'il y a très peu d'appel, et que sur des actions précises d'utilisateur (type clic sur un bouton). Donc, en fermeture, je ne vois pas bien ...

:arf: