Discussion :

[LN(a)]

Bonjour,

J’ai une application en delphi qui doit être tournée en permanence 24h/24 et 7j/7. Et au bout de temps cette application consomme les ressources (le mémoire) pour exécuter les opérations différentes mais ensuit elle ne les libère pas. Dans ce programme tous les objets créés sont libérés par FreeAndNil. Mais il y a aussi des pointeurs et je ne sais pas trop est-ce que cette consommation exagérée peut venir de la. Est-ce que quelqu’un sais où est le problème ?

Merci.

[Matt2094]

Je ne suis pas éxpert, mais je pense que le système d'éxploitation, voyant que l'application tourne tout le temps, ne libère pas la mémoire : il essaye de prévoir le prochain chargement de l'appli ...

[TicTacToe]

Difficile dire ou est le pb

peut-être constater une montée en mémoire et pas de redescente lors de l'utilisation de certaines fonction.

Bien vérifier que non seulement les Create on des Free. (mais j'imagine que c'est déjà fait)

Bien vérifier également les objets créés et attachés à des listes:
par exemple un TStringList.AddObject( 'xxx', MonObjetCrééDynamiquement)

Un FreeAnNil de la liste de suffit pas, il faut libérer auparavant les objets de la liste.

bon courage car les fuites c'est jamais simple

[HumanTool]

salut,
une allocation de memoire une fois qu'elle a été faite ne se réduit pas automatiquement, sauf si tu détruis l'objet qui l'occupe.
Tu as certainement des variables ou objets qui, pour une raison ou une autre, ont eu besoin de s'allouer plus d'espace mémoire mais qui du coup ne la relache pas une fois leur opérations terminée.

[LN(a)]

En fait les pointeurs sont assez largement utilisés, mais se sont les variables locales declarées dans les fonctions privées d'un thread. La procédure "New" est utilisé pour allouer le memoire, mais je ne vois aucune procédure utilisée ("Dispose" par exemple) pour le libèrer. Peut être ce n'est pas necessaire pour les variables-pointeurs locales?

[TicTacToe]

si, il est nécessaire de faire des dispose pour libérer même si le pointeur est local.
enfin, là tu me mets le doute vu que je les utilise plus trop, mais il n'y a pas de raison que delphi le fasse.

[sjrd]

En effet, tu dois absolument équilibré chaque appel à new par un appel à Dispose, de la même façon que chaque appelle à un constructeur doit être équilibré d'un appel au destructeur.

[LN(a)]

Merci à tout le monde. Je vais libèrer les pointeurs et voir s'il y a encore la fuite de memoire.

[DarkChamallo]

Hello,

merci pour ces interventions, ça m'a appris l'astuce FreeandNil ce qui a stabilisé quand même une appli test que j'ai fait et avec laquelle je rencontrais effectivement ce type de problème (mémoire bouffée progressivement, à tel point qu'au bout d'une heure d'exécution un message d'erreur de plantage que je n'avais jamais vu auparavant (sans icône et sans bordure) expliquait que les ressources systèmes étaient insuffisantes.

Alors de 15 Mo de mémoire utilisés au démarrage de mon appli (et ça augmente de 10 ko progressivement) j'ai une astuce qui libère tout sans incident et qui ramène à 400 Ko ! (ensuite ça remonte à 4 Mo, et la progression reprend) :

toutes les 10 minutes je fais un :

Application.Minimize;
Application.Restore;

et YOUPI !!!!!



Radicalement efficace et propre (un léger scintillement de la fenêtre peut être perçu, mais toutes les 10 minutes c'est acceptable )

Voilà !

[exoseven]

voici une procédure équivalente et qui t'évitera le scintillement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure FreeMemory;
var
  MainHandle : THandle;
begin
  MainHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE,
GetCurrentProcessID);
 try
  SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF);
 finally
  CloseHandle(MainHandle);
 end;
end;

[DarkChamallo]

Excellent
Merci !!

[chtiot]

merci ExoSeven, ton astuce que je ne connaissais pas m'a permis de stabiliser une application pour laquelle je desespérais de trouver une solution à un problème de mémoire