Discussion :

[heffer69]

Bonjour,

J'ai développé une application qui est exécutée en permanence sur un serveur.
Lorsque que je démarre l'exécutable, il consomme 8Mo de RAM mais au bout de 24 H, l'utilisation de la mémoire monte à 250Mo!
Je n'ai pas trouvé où est la faille de mon programme et je voulais savoir s'il existe un outil pour surveiller la mémoire utilisée par mon programme.

Merci.

[ucfoutu]

Bonjour,

tu cherches peut-être à faire ceci ,

avec un timer Timer1, un label label1 et un label label2

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
Option Explicit
Private Type MEMORYSTATUS
  dwlength As Long       '32
  dwmemoryload As Long   'pourcentage mémoire utilisée
  dwtotalphys As Long    '
  dwavailphys As Long    'mémoire physique disponible en octets
  dwavailpagefile As Long
  dwtotalvirtual As Long '
  dwavailvirtual As Long '
End Type
 
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpmstmemstat As MEMORYSTATUS)
 
Private Sub Form_Activate()
 timer1.Enabled = True
 timer1.Interval = 1
End Sub
 
Private Sub timer1_Timer()
    Dim memoire As MEMORYSTATUS, tata$, toto$
    memoire.dwlength = Len(memoire)
    GlobalMemoryStatus memoire
    With memoire
        tata$ = Str((.dwavailphys / 1024))
        toto$ = Str((.dwmemoryload))
        Label1.Caption = tata$
        Label2.Caption = toto$ & "%"
    End With
End Sub

[Vld44]

diagnostiquer une fuite mémoire est un des exercices qui me stimulent le plus :p

1/ Est-ce que tu es sûr que c'est bien de la ram qu'il consomme ?
2/ Quel OS ?
3/ dans les grandes lignes, il fait quoi ton programme ?

A+ !

[heffer69]

Vld44> Le programme scrute à intervalle de temps régulier (Timer) un répertoire contenant des fichiers textes et en sortie, il écrit dans une base Oracle et crée des fichiers XML. Rien d'extraordinaire...
La fuite de mémoire se produit sur un serveur windows 2000.
Effectivement, je ne suis pas sûr que c'est de la RAM qu'il consomme, mais c'est de la mémoire en tout cas!

ucfoutu> Merci pour le code. Mais ça ne donne que l'indication du pourcentage de mémoire utilisée. Est-ce que ça me permettra de trouver où est la fuite?

[ucfoutu]

ucfoutu> Merci pour le code. Mais ça ne donne que l'indication du pourcentage de mémoire utilisée. Est-ce que ça me permettra de trouver où est la fuite?

Là, c'est à toi de te montrer astucieux ...

Tu peux par exemple te servir d'une variable globale toto, dont la valeur dépend d'un numéro, différent à chaque procédure.
Dans l'évènement Timer de Timer1 : te servir d'une variable static (appoelons-la titi), mise à jour à la sortie de l'évènement et contenant le dernier pourcentage.
Lorsque l'écart est grand entre le nouveau popurcentage et titi ===>> dénoncer le contenu de la variable toto (et tu connaitras ainsi le "numéro" de l'instruction "gourmande" ...
Ce n'est qu'une idée et je compte sur toi pour te montrer malin....

EDIT : on ignore le code que tu utilises ici et là ...!
Mais (au hasard) si tu crées quelque chose, pense à détruire ce que tu crées, lorsque le résultat de ce que tu as créé est atteint.
Une question : tu utilises FSO pour "scruter" tes répertoires ????

[Vld44]

désactive les fonctions les plus profondes une par une et lance ton soft pour détecter de laquelle vient la fuite

Ensuite une fois détectée, scrute bien la libération de mémoire, les pointeurs etc

[heffer69]

Non je n'utilise pas FSO pour lire les répertoires mais ces fonctions là:

Code :

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

1
2
3
4
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Est-ce qu'il est préférable d'utiliser FSO?

[ucfoutu]

Est-ce qu'il est préférable d'utiliser FSO?

Non ! C'est bien ...

Ceci étant dit, je viens (manuellement) de lancer 3 ou 4 recherches (simultanément) depuis l'explorateur et sur toutes mes partitions, tout en observant la "gourmandise" de la chose !
C'est gourmand, oui !

alors:

Le programme scrute à intervalle de temps régulier (Timer) un répertoire contenant des fichiers textes et en sortie

avec quels intervalles ?
Il est clair que si l'intervalle est petit, tu risques fort de lancer plusieurs reecherches à la fois (l'une après l'autre, alors que les précédentes ne sont pas encore terminées...) et là, ma foi....