fuite mémoire

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : fuite mémoire

Toby14

Toby or not Toby

Salut,

j'ai un processus qui bouffe énormément de mémoire.

j'ai fait un script qui récupère des info sécurité sur un réseau intranet et qui enregistre le tout ligne par ligne dans des fichiers texte.

au début mon process fait 7.5 mo puis plus la taille du fichier txt augmente plus la mémoire utilisé augmente. genre si j'ai 20 mo et bien ca va faire 30 mo ... la derniere fois j'avais récupéré 150mo de txt. j'imagine pas a combien était monté mon process.

bref je penche pour un bleme avec le writeline ou qqchose comme ca.

Publicité

mareek

Et de 3 \o/

c'est difficile de t'aider sans plus de précisions sur le code

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Toby14

Toby or not Toby

je ne peux mettre mon code vu qu'il y a a peu pres 250 ligne mais je peux expliquer.
Dnas un premier temps je recupere la liste des pc dans le parc puis pour chacun je liste les dossiers partagés et je récupere dans un fichier txt les info de sécurité qui m'interresse sur ces dossiers sous dossiers et fichier qu'ils contiennent.
En gros un truc énorme.

Donc pensant que la place mémoire prise venait du fait que le fichier txt devenait de plus en plus gros j'ai décidé de fermer le fichier tous les 5 dossiers partagés, de détruire l'instance FSO puis d'en recréer un autre . Mais non.

Comment faire.
Je sais c pas évident mais merci tout de même.

Taz

bisounours-codeur

essaie d'isoler le problème.

Toby14

Toby or not Toby

Salut,
j'ai toujours le meme probleme de processus qui bouffe de la mémoire au fur et a mesure.
je recupere mes données sur les fichiers et je les insere dans une base MySQL.
Si qq a une idée sur mon pb? :cry:

mareek

Et de 3 \o/

tu ne libère pas la mémoire que tu alloues

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Toby14

Toby or not Toby

mareek a écrit :

tu ne libère pas la mémoire que tu alloues

Et bien justement j'ai parcouru mon script et j'ai bien fait attention a faire un close puis je desalloue avec un beau nothing derriere une ouverture de fichier, de fermer les connection MySQL lorsque la requette a été exécuté. le seul hic c un objet WMI qui reste ouvert car lorque je parcours l'arborescence d'un dossier j'en ai besoin pour récupérer l'objet Folder qui sert à ressortir la collection des fichiers qu'il contient. l'objet en question c le FSO_text que j'ai crée en global puis j'alloue dans cette fonction

Code :

sub Chercher_Fichier_Dossier_Dans_Partage(chemin, I, machine, nomCourant)
on error resume next
Dim Folder, SubFolder, File
' Instanciation
Set Folder = FSO_text.getFolder("\\" & machine & "\" & nomCourant)
if Err<>0 Then
call Rapport_Erreur(" Une Erreur est survenue get folder" )
Err.Clear
end if
' Incrementation de l'arborescence - dossiers
I = I + 1
' On ne tient pas comptes des _vti, _derived, _notes (dossiers réservés à IIS),
' Trouver la position du dernier '\' et vérifier si le caractère suivant est un _
If Mid(chemin, (Len(chemin) - Instr(StrReverse(chemin), "\" )+2), 1) <> "_" Then
' Incrementation de l'arborescence - fichiers
I = I + 1
call secu(machine,Folder,"",nomCourant,chemin)
' stocker tout les fichers contenu dans le répertoire courant
For Each File in Folder.Files
'recup de secu ntfs sur les fichiers contenus dans Folder
call secu(machine,Folder,File.Name,nomCourant,chemin)
Next
Set File = nothing
' Décrémentation de l'arborescence - fichiers
I = I - 1
End If
' Parcourir tout les sous-dossiers du dossier courant
for each SubFolder in Folder.SubFolders
' Verifier si le dernier caractère du chemin vers le dossier
' courant est un '\'
If Right(chemin,1) <> "\" Then
chemin = chemin & "\"
End If
If Right(nomCourant,1) <> "\" Then
nomCourant = nomCourant & "\"
End If
' le dossier courant dans l'arbre
Call Chercher_Fichier_Dossier_Dans_Partage(chemin & SubFolder.Name, I, machine, nomCourant & SubFolder.Name)
' Décrémentation de l'arborescence
I = I - 1
' Prochain
Next
'Destruction des instances
Set SubFolder = nothing
Set Folder = Nothing
if Err<>0 Then
call Rapport_Erreur(" Une Erreur est survenue lors du parcours des fichiers partagés" )
Err.Clear
end if
end sub

bon voila si ca peut vous aider à m'aider

Message édité par Toby14 le 23-09-2004 à 10:33:38

mareek

Et de 3 \o/

Si il y a un pb de fuite mémoire, je ne crois pas qu'il soit dans cette fonction. pourrais tu poster le code de la foction secu() ?

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Toby14

Toby or not Toby

Code :

'--------------------------------------------------------------------------------
'recupere les parametre de sécurité des dossiers ou fichiers passé en parametres
'puis écrit dans un fichier txt
sub secu(machine, dossier, nomFichier, nomCourant, chemin)
on error resume next
dim ObjSet, refItem
if nomFichier = "" Then
Set ObjSet = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & machine & "\root\cimv2:Win32_LogicalFileSecuritySetting='" & chemin & "'" )
else
If Right(chemin,1) <> "\" Then
chemin = chemin & "\"
End If
Set ObjSet = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & machine & "\root\cimv2:Win32_LogicalFileSecuritySetting='" & chemin & nomFichier & "'" )
end if
if Err<>0 then
call Rapport_Erreur(" erreur lors de l'appel au service wmi sur " & nomCourant & "\" & nomFichier & " surement du a une apostrophe" )
Err.clear
call insert_donnees(machine, nomFichier, chemin, "PB apostrophe", "voir directement", "le fichier" )
end if
If ObjSet.GetSecurityDescriptor(refSD) = 0 Then
'call insert_donnees(machine, nomCourant,ObjSet.Path, refSD.Owner.Name,"", "" )
for each refItem In refSD.DACL
if nomFichier = "" then
Dim nouveauNomCourant
nouveauNomCourant = "\" & nomCourant
nouveauNomCourant = Mid(nouveauNomCourant,Len(nouveauNomCourant) - (Instr(StrReverse(nouveauNomCourant), "\" ))+2, Len(nouveauNomCourant))
call insert_donnees(machine, nouveauNomCourant, ObjSet.Path, refSD.Owner.Name, refItem.Trustee.Name, decodeAccessMask(refItem.AccessMask))
else
call insert_donnees(machine, nomFichier, ObjSet.Path, refSD.Owner.Name, refItem.Trustee.Name, decodeAccessMask(refItem.AccessMask))
end if
next
Set refSD = nothing
Set refItem = nothing
end if
if Err<>0 Then
call Rapport_Erreur(" Erreur dans la recheche Secu de " & nomCourant & " " & nomFichier & " path: " & ObjSet.Path)
Err.Clear
end if
Set ObjSet = nothing
nomFichier =""
end sub

voici secu.
menfin je crois pas non plus qu'il y ait de fuite mémoire en fait.
Simplement vue que je fait du récursif, les boucle for s'embriquent.
Sinon j'aurais pu faire de l'itératif et gérer une pile ou une file, mais j'aurais une pile énorme et donc cela prendrais aussi beaucoup de mémoire. Mais sans oute moins que d'embriquer des boucles for.

Message édité par Toby14 le 23-09-2004 à 10:33:02

grib51100

bonjour, j'ai eut le même problème et j'ai trouvé la solution sur un autre forum un enregistrement régulier de ton fichier permet de contenir ta mémoire.

Publicité

kiki29

Salut, pas mal comme déterrage pour un Post du 23-09-2004 ( 11 ans )

Message édité par kiki29 le 12-08-2015 à 06:40:07

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

FORUM HardWare.fr

Programmation

VB/VBA/VBS

fuite mémoire

Sujets relatifs
[Java] Problème de taille mémoire avec un JTree	[ASM] Optim : précalcul en mémoire ou calcul sur registres ?
Mise en mémoire d'évènements midi : HashMap ?	pile memoire - modification donnees
[Weblogic] pas assez de mémoire sous l'EDI Workshop	gestion de la memoire
[Visual Basic] utilisation d'un dll C++ && fuite memoire	API C de MySQL: fuite de mémoire
c coi une fuite de mémoire ?	[C - Visual Studio] Detection de fuite mémoire
Plus de sujets relatifs à : fuite mémoire

Page générée en 0.079 secondes