Discussion :

[Shredder]

bonjour,

dans mon application je définis des form de la manière suivant :

Code :

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

chat_form                         : Array [0..nb_form] Of Tchat_unit;

ensuite, pour libérer un peu de mémoire (car en tout il y a plusieurs dizaines de forms ), et bien je fais :

Code :

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

1
2
3
4
if chat_form[ID]<>nil then begin
        chat_form[ID].Free;
        chat_form[ID]:=nil;
      end;

mais à ce moment là j'ai un message m'indiquant : "invalid pointer operation" :S

sauriez-vous comment faire pour libérer le plus de mémoire possible ?

merci

[Jipété]

sauriez-vous comment faire pour libérer le plus de mémoire possible ?

Probablement avec

Code :

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

1
2
3
4
if chat_form[ID]<>nil then begin
        chat_form[ID].Free;
        // chat_form[ID]:=nil; // libéré au-dessus donc inutile
      end;

Mes 2 cts,
--
jp

[Shredder]

le problème quand je fais ceci, c'est que ensuite la mémoire utilisée par mon application augmente considérablement, et ne baisse que très peu quand je supprime toutes les formes

est-ce que ce code libère aussi tous les composants de chaque forme ?

[Jipété]

le problème quand je fais ceci, c'est que ensuite la mémoire utilisée par mon application augmente considérablement, et ne baisse que très peu quand je supprime toutes les formes

Si je relis bien ce que tu as écrit, c'est le ensuite qui m'ennuie...
Y a quelque chose de pas clair, là, puisque le code est sensé supprimer les forms..

lest-ce que ce code libère aussi tous les composants de chaque forme ?

Normalement oui, enfin, si les composants (créés dynamiquement je suppose) ont bien la form comme parent.
--
jp

[tourlourou]

Code :

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

FreeAndNil(chat_form[ID]); //devrait suffire

mais plutôt que de mettre les TChatForm dans un tableau de dimension fixe, tu devrais pê les mettre dans une liste (et les en enlever en les libérant)

[Shredder]

Si je relis bien ce que tu as écrit, c'est le ensuite qui m'ennuie...
Y a quelque chose de pas clair, là, puisque le code est sensé supprimer les forms..


Normalement oui, enfin, si les composants (créés dynamiquement je suppose) ont bien la form comme parent.
--
jp

oui non désolé je me suis mal exprimé ^^

en fait on en est au stade où la mémoire a augmenté et ou je veux tout libérer.

alors je fais le code .Free (FreeAndNil correspond parfaitement à ce que je cherchais )

mais la taille de l'application reste élevée.

Release semble alors plus approprié en effet, et qu'en est-il de FreeOnRelease ?

[Franck SORIANO]

mais à ce moment là j'ai un message m'indiquant : "invalid pointer operation" :S

Si tu as ce message, c'est que tu essaies de libérer un objet qui a déjà été détruit !
Est-ce que tes forms n'auraient pas un Action := caFree sur l'événement OnClose ?
Si c'est le cas, les fiches en question sont détruites dès leur fermeture...

lest-ce que ce code libère aussi tous les composants de chaque forme ?

Normalement oui, enfin, si les composants (créés dynamiquement je suppose) ont bien la form comme parent.

Plus exactement, si les composants ont la form comme Owner. Le parent ne sert que pour Windows.

Ensuite Release plutôt que free changera uniquement le moment où la fiche sera détruite. Ca ne changera rien à ton problème mémoire.

Plusieurs remarques concernant la mémoire :
- Je ne pense pas qu'une dizaine de fiches avec leurs composants, même complêxes puissent avoir une occupation mémoire aussi significative que tu sembles l'indiquer. Tu dois plutôt avoir un memory leak sur une autre structure de données (peut-être un datamodule lié qui ne serait pas libéré...).
- Comment fais-tu pour contrôler la mémoire utilisée ? Si tu te contentes de regarder la mémoire utilisée par le processus dans le gestionnaire des tâches Windows, ça peut être très trompeur. D'abord, par défaut ce dernier n'affiche que la mémoire physique utilisée et pas la mémoire virtuelle (réduit ton application, tu verras la mémoire utilisée dans le gestionnaire des tâches diminuer d'un coup). Ensuite, Delphi possède son propre gestionnaire de mémoire par dessus Windows. Ce dernier demande de la mémoire par gros bloc à l'OS, et ne la rend également que par blocs entiers. Lorsque tu détruis une fiche, tu rends la mémoire disponible pour ton application, mais ça ne veut pas nécessairement dire que Delphi va rendre la mémoire à l'OS, surtout si cette dernière est fragmentée...

Cependant, si la consommation mémoire est si significative que ça, c'est que tu dois avoir un memory leak, ou que la mémoire n'est pas utilisée par les objets que tu penses...

[edam]

Code :

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

1
2
3
4
if chat_form[ID]<>nil then begin
        chat_form[ID].Free;
        chat_form[ID]:=nil; //est juste c'est pour le test aprés :if chat_form[ID]<>nil 
      end;

mais je crois que tu dois remplacé free par release
dans l'aide de delphi:

TCustomForm.Release

procedure Release;
Description
Utilisez la méthode Release pour détruire la fiche et libérer la mémoire associée.
Release ne détruit pas la fiche avant que tous les gestionnaires d'événements de la fiche et des composants de la fiche n'aient eu le temps de terminer leur exécution. Tous les gestionnaires d'événement de la fiche doivent utiliser Release à la place de Free. Si vous ne respectez pas cette règle, une violation d'accès risque d'être générée.
Remarque*: Release retourne immédiatement à l'appelant. Elle n'attend pas que la fiche soit libérée.