Discussion :

[petitcoucou31]

bonjours a tous je suis toujours sur mon probleme de "fuite de memoire"..

je met ce post pour une confirmation , l' exemple de procedure ci dessous se trouve dans une DLL , il en existe plusieurs par DLL et plusieurs DLL de meme type.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function ExConfigLogicielle:integer;stdcall;
begin
    result:=0;
    if AfficheTestDLL then showmess('ExConfigLogicielle',CouleurMessage,10,[]);
    if ExecCode then
    begin
        FCongLog:=TFCongLog.create(application);
        FCongLog.Showmodal;
        FCongLog.free;  <------------ ????
    end;
    if AfficheTestDLL then showmess('Fin ExConfigLogicielle',CouleurMessage,10,[]);
end;

toute mes forms sont crée comme des 'applications' independante dans mes dlls et je les ferme par le 'close' de la fenetre , donc la memoire est elle vraiment libéré ?? le form.free est il utile ?..

malgres tout ce que j'ai pu lire sur les release , free... je me melange les pinceaux !! je cherche a etre sur de bien avoir libere la form a la sortie de ma fonction .

merci a tous.

[e-ric]

Salut

Pour les fiches, il est recommandé d'utiliser Release (notamment après un affichage) pour être sûr que tous les gestionnaires d'événements associés soient terminés (si je me souviens bien). En outre, un peu de bloc try finally ne ferait pas de mal à at DLL...

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
 
function ExConfigLogicielle:integer;stdcall; 
begin 
    result:=0; 
    if AfficheTestDLL then showmess('ExConfigLogicielle',CouleurMessage,10,[]); 
    if ExecCode then 
    begin 
        FCongLog:=TFCongLog.create(application); 
        try
          FCongLog.Showmodal; 
        finally
          FCongLog.Release;
          FCongLog := Nil; // si ta variable est globale   
        end;
    end; 
    if AfficheTestDLL then showmess('Fin ExConfigLogicielle',CouleurMessage,10,[]); 
end;

Cordialement

e-ric