Discussion :

[numeror]

Bonjour

Je suis en train de créer un système de plugin pour reduire le poids de mon application. Je suis en phase de test et d'apprentissage. J'ai créer une dll qui a deux procedure :

- creation d'une Listbox
- destruction d'une Listbox

Tout se passe bien jusqu'au moment de detruire la Listbox , voici le code :

Code :

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

1
2
3
4
  DestroyDll := GetProcAddress(HandleDLL, pAnsiChar('DestroyDll'));
//
  if assigned(DestroyDll) then
    DestroyDll;

Si je le met dans l'evenement onclose ou ondestroy de ma fiche principale , j'ai une violation d'acces au moment de la fermeture. J'ai donc rajouter un bouton qui appele le code ci dessus. Au moment de liberer la dll ca fonctionne.

Ma question est donc , comment faire pour detruire la Listbox a la fermeture de l'application?

Cordialement

[ShaiLeTroll]

Il faut que la TListBox soit créé ET libéré du même côté, cela tu sembles déjà correctement le respecter !
soit uniquement par la DLL qui fourni une instance et une autre fonction qui libère cette instance comme tu le fais !

soit uniquement par l'EXE en passant la référence de classe, attention sans BPL la TListBox de l'EXE et la TListBox de la DLL sont considérés comme différentes
C'est une autre méthode pour instancier l'objet venant d'une DLL

Pour ma part, je faisais la même chose avec des TForm dans la DLL que j'ancrais dans une TForm de l'EXE
J'ai même poussé à avoir une TForm dans une DLL ancré dans une TForm d'une autre DLL pour enfin l'ancré dans une TForm de l'EXE

Ton EXE est si gros pour que tu souhaites le diviser ainsi ?
Si c'est des composants visuels, un BPL est plus approprié

Ton code est un peu léger pour comprendre !
Arrives-tu à le reproduire dans un projet extrêmement simple ?

Tu peux par exemple, affecter le Parent à nil (depuis EXE) pour forcer la séparation entre la TListBox et son parent qui pourrait tenter de la libérer !
Puis tu appeles la DLL



Tiens un sujet très proche : DLL String Pourquoi ça marche sans BORLNDMM.DLL, cela évoque tout ce que j'ai mentionné ci-dessus !

[numeror]

Bonsoir

En faites le fait d'utiliser la dll en question avec la Listbox n'a juste pour but d'apprendre comment fonctionne l'affichage de composant, c'est pour ca que j'utilise une Listbox. Le but final est de créer des dll pour les différents panel. Comme par exemple l'explorateur de fichier, la gestion du presse papier, etc...

Un peu comme les plugin de phpedit.

Sinon pour en revenir au code, j'ai créer une procedure servant a detruire toute mes dll.

Code :

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

1
2
3
4
5
6
7
procedure TForm4.freeDll;
begin
  DestroyDll := GetProcAddress(HandleDLL, pAnsiChar('DestroyDll'));
 
  if assigned(DestroyDll) then
    DestroyDll;
end;

Puis je place cette procedure dans l'evenement OnDestroy de la fiche principale. Puis je mes la fonction FreeLibrary. Et la plus un seul bug.

Merci et bon week end