Discussion :

[Pedro]

Salut à tous
Voila, je développe un programme qui utilise des plugins sous forme de DLL...Tout est géré dynamiquement et jusque là pas de problème
A ceci près: FreeLibrary...
Je fais un code du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var t: TMaProcedure;
     DLLHandle: HWND;
begin
  DLLHandle := LoadLibrary('MaDLL.DLL');
  if DLLHandle <> 0 then
  begin
    @t := GetProcAddress(DLLHandle, PChar('MaProcedure'));
    if t <> nil then
      t(...);
    FreeLibrary(DLLHandle);
  end;
end;

Tel quel, j'ai droit à un freeze de l'appli ou bien une Access Violation...
Si je mets:

Code :

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

1
2
 
  DLLHandle := 0;

en lieu et place de

Code :

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

1
2
 
  FreeLibrary(DLLHandle);

ca marche mais j'ai l'impression de laisser pleins de trucs en mémoire...
La procédure en question de la DLL crée une fiche, l'appelle avec ShowModal, fait pleins de trucs dessus puis la détruit lorsqu'elle se ferme...

Quelqu'un peut m'expliquer pourquoi le FreeLibrary stipulé pas le SDK de Win ne fonctionne pas?

[sjrd]

La procédure en question de la DLL crée une fiche, l'appelle avec ShowModal, fait pleins de trucs dessus puis la détruit lorsqu'elle se ferme...

Le problème se situe là En fait tu dois t'assurer que non seulement la fiche est détruite, mais aussi et surtout les ressources qu'elles engagent.
Pour cela, il faut appeler Dispose, qui traite les derniers messages Windows envoyés à la fenêtre avant de la détruire.

Le problème, c'est que Dispose est asynchrone, donc que dès que tu l'appeles, elle lance le processus de destruction et puis retourne. Le problème ne serait donc pas résolu, et même agravé.

Donc la solution n'est pas là mais tu sais au moins d'où vient le problème. Il faut encore creusé. Si j'ai une idée, je reviens l'indiquer

[Pedro]

Merci sjrd

Le problème se situe là En fait tu dois t'assurer que non seulement la fiche est détruite, mais aussi et surtout les ressources qu'elles engagent.
Pour cela, il faut appeler Dispose, qui traite les derniers messages Windows envoyés à la fenêtre avant de la détruire.

Le problème, c'est que Dispose est asynchrone, donc que dès que tu l'appeles, elle lance le processus de destruction et puis retourne. Le problème ne serait donc pas résolu, et même agravé.

Donc la solution n'est pas là mais tu sais au moins d'où vient le problème. Il faut encore creusé. Si j'ai une idée, je reviens l'indiquer

Je pensais que c'était Release
On peut bricoler un truc du genre dans la DLL:

Code :

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

1
2
3
 
  Form.Release;
  While Assigned(Form) do Application.ProcessMessages;

Comme ça, on attend la vrai fin de la Form... Par contre, il faut évidemment que Release mette nil à Form parce que sinon, pas de chocolat...

[sjrd]

Je pensais que c'était Release

Euh, oui. Au temps pour moi

On peut bricoler un truc du genre dans la DLL:

Code :

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

1
2
3
 
  Form.Release;
  While Assigned(Form) do Application.ProcessMessages;

Comme ça, on attend la vrai fin de la Form... Par contre, il faut évidemment que Release mette nil à Form parce que sinon, pas de chocolat...

Ben non, justement, tout comme Free, la variable objet n'est pas modifiée. Par contre, si le coeur t'en dis, tu peux faire ça :

Code :

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

1
2
3
4
5
6
Form.Release;
try
  while True do;
except
  on Error : EAccessViolation do;
end;

Mais je crains que ça ne plaise pas au patron (ni même à ta conscience de développeur propre ^^)

[Pedro]

Ben non, justement, tout comme Free, la variable objet n'est pas modifiée.

Je me disais bien aussi: Trop facile...

Par contre, si le coeur t'en dis, tu peux faire ça :

Code :

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

1
2
3
4
5
6
Form.Release;
try
  while True do;
except
  on Error : EAccessViolation do;
end;

Mais je crains que ça ne plaise pas au patron (ni même à ta conscience de développeur propre ^^)

Ah ouais! Ah ben non...
Finalement, il suffirait de savoir si la fiche est bien détruite et finie d'être détruite pour que FreeLibrary ne plante pas?

[sjrd]

Finalement, il suffirait de savoir si la fiche est bien détruite et finie d'être détruite pour que FreeLibrary ne plante pas?

Oui... Il suffirait

[Pedro]

Oui... Il suffirait

Donc je vais rester sur le principe de garder les Handles ouverts du début à la fin du prog... COmme ça à la fin, les FreeLibrary ne devraient pas trop poser de problèmes
Mais quoi qu'il en soit, je n'aime pas trop ça... En faisant LoadLibrary, que se passe-t-il exactement? La DLL est chargée en mémoire? Donc si je mets DLLHandle := 0 alors, je laisse toute cette mémoire en rade??

[sjrd]

Donc si je mets DLLHandle := 0 alors, je laisse toute cette mémoire en rade??

Oui, jusqu'à fin d'exécution complète de ton programme, ce qui entraîne la libération de ressource associée par Windows.

[Pedro]

Oui, jusqu'à fin d'exécution complète de ton programme, ce qui entraîne la libération de ressource associée par Windows.

Donc in fine, le FreeLibrary ne sert pas à grand chose? Puisque notre cher Delphi se charge de tout

[Hauwke]

Bonjour,
Comme je n'ai pas le code complet du Bastiais sous les yeux, je vous propose un bout de code qui fonctionne trés bien chez moi avec des fiches modales. Il n'est pas commenté mais vous le lirez sans problème. Le but étant de substituer le handle de l'appli appelante et de le restituer à la fin... Pour la finalité, c'est Windows qui s'en charge...

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
library MyDll;
uses
  SysUtils,
  Controls,
  Classes,
  forms,
  windows,
  FormDsDll in 'FormDsDll.pas' {toto};
 
{$R *.res}
var
 OldAppHandle : Longint = 0;
 
 function ShowMyForm(AppHandle : longint):Longint;
var
  Toto: TToto;
 begin
 if application.handle <>Apphandle then
 OldAppHandle := Application.handle;
 Application.handle := AppHandle;
 Toto := TToto.Create(Application);
 Toto.Showmodal;
 Result := longint(Application);
 end;
 
 function CloseMyForm(Handle: longint) :longint;
 var
 Toto : TToto;
 begin
  Toto :=TToto(Handle);
  Result := Toto.Handle;
  Toto.Close;
  Toto.Free;
  Application.handle := OldAppHandle;
  end;
 
  exports
  ShowMyForm,
  CloseMyForm;
 
begin
end.

Cordialement,
Hauwke