Discussion :

[Higgins]

Bonsoir tout le monde,

Voici mon problème: je développe sur XE7 et lorsque j'appelle la méthode free de ma classe, l'objet reste en mémoire et finit par provoquer des erreurs de ressources insuffisantes.
Je libère bien tous les membres dans le destructeur, puis je les force à nil (car ils sont toujours là qd j'évalue le code) mais sans succès

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
30
31
32
33
34
35
36
37
38
39
 
type tclasse1=class(tObject)
private
  fattribut1:int;
public
   destructor destroy;override;
   constructor create;
end;
 
type tclasse2=class(tObject)
private
  fattribut2:tclasse1;
public
   destructor destroy;override;
   constructor create;
end;
 
constructor tclasse1.create;
begin
 fattribut1=1;
end;
 
constructor tclasse2.create;
begin
 fattribut2=tclasse1.create;
end;
 
destructor tclasse2.destroy;
begin
 if fattribut2<>nil then
    fattribut2.free;
end;
 
procedure test;
var variable:Tclasse2;
begin
    variable:=Tclasse2.create;
    variable.free;
end;

Dans cet exemple, à la fin de la procédure test, l'attribut variable.fattribut2 est bien à nil mais variable n'est pas libéré alors que ce devrait être le cas.

Avez-vous une piste?

[Andnotor]

Il manque inherited en fin de Destroy.

[Higgins]

j'ai oublié de le mettre mais il est bien présent dans mon code.
voici le code exact sur une classe basique:

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
 
type TLanguage=class(Tobject);
public
     Id:integer;
     name:string;
     owner:TObject;
end;
 
destructor TLanguage.Destroy;
begin
 if owner<>nil then
    owner.free;
 inherited destroy;
end;
 
destructor TUserSession.Destroy;
begin
 ......
 if language<>nil then
    language.free;
 inherited destroy;
end;

Si je place le curseur de la souris sur la ligne

Code :

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

language.free

juste après l'avoir exécutée, l'explorateur de code affiche:
(language| (ID=0,name='',owner=nil)
alors que je m'attends à voir
language=nil

Ce phénomène se reproduit sur toutes mes classes et l'application ne cesse de grossir au cours du fonctionnement

[ALWEBER]

Bonjour,

1) As tu essayé avec des objets dérivés de TPersistent
2) Quel outil de mesure te permet de dire que tu pers de la mémoire ?

[Higgins]

1) même problème avec TPersistent
2) La taille en mémoire de l'exécutable augmente au fur et à mesure de son utilisation jusqu'à provoquer une erreur "Mémoire insuffisante". Par ailleurs, après l'appel à free, mon instance devrait être égale à nil et ce n'est pas le cas.

[SergioMaster]

Bonjour,

sans conviction aucune, je n'ai pas lu le code entier, pourquoi ne pas utiliser FreeAndNil(language);

[Andnotor]

Un Free ne met pas le pointeur à nil, il faut utiliser FreeAndNil pour ça.

Ce TLanguage.Destroy ne me plait guère. Il détruit son propriétaire qui va sans doute vouloir libérer ses éléments qui voudront à leur tour détruire leur propriétaire, etc. une boucle sans fin jusqu'à saturation.

[ShaiLeTroll]

Même remarque que AndNotOr

Dans le dernier code, l'utilisation du terme "Owner" est ambiguë.
Pour le TComponent, le Owner c'est l'objet qui libère les objets qu'il possède.
Dans ton cas, c'est du TObject, mais évite le mot Owner qui est presque un mot clé Delphi

Pense à changer le nom pour éviter que cela soit un piège dans une prochaine maintenance si c'est un Owner sans lien avec la mémoire,
peut-être mettre User ou Session par exemple !

De plus, utilise des property pour les membres public, c'est plus élégant et en particulier si l'objet ne doit pas être modifié par un autre objet en mettant une propriété en lecture seule
cela t'évitera des modifications ultérieurs si tu dois un jour ajouté des contrôles via des accesseurs

[Higgins]

Un Free ne met pas le pointeur à nil, il faut utiliser FreeAndNil pour ça.

Même résultat J'ai cru un instant que ça s'améliorait mais c'était tant que j'étais en pas à pas. Dès lors que j'exécute en "release", le pb revient

Ce TLanguage.Destroy ne me plait guère. Il détruit son propriétaire qui va sans doute vouloir libérer ses éléments qui voudront à leur tour détruire leur propriétaire, etc. une boucle sans fin jusqu'à saturation.

En réalité le code est un peu plus complexe que j'ai mis et je te rassures, il n'y a pas de boucle infinie.

De plus, utilise des property pour les membres public, c'est plus élégant et en particulier si l'objet ne doit pas être modifié par un autre objet en mettant une propriété en lecture seule

En réalité, il y a des getter setter et des property pour chaque membre. J'ai juste mis du code allégé.

Je vous remercie tous pour votre aide, mais j'ai décidé de contourner le problème. Il s'agit d'une simple application "moulinette" qui récupère des données d'une vieille base paradox, les mets en forme, leur applique des règles métiers, et les intègre dans une base SQL où elles seront utilisées par une autre application.
L'exécution n'a lieu qu'une seule fois lors de la reprise de données. J'ai donc contourné le pb en relançant l'appli lorsqu'elle atteint une taille en mémoire paramétrable.
Je mets donc le tag résolu et je vous remercie tous pour votre aide.

[ALWEBER]

1) même problème avec TPersistent
2) La taille en mémoire de l'exécutable augmente au fur et à mesure de son utilisation jusqu'à provoquer une erreur "Mémoire insuffisante". Par ailleurs, après l'appel à free, mon instance devrait être égale à nil et ce n'est pas le cas.

Bonjour,

Effectivement tu dois utiliser FreeAndNil (TLanguage) plutôt que Free ou Destroy

Peux tu modéliser un petit exemple pour pouvoir tester le problème en indiquant la version de Delphi que tu utilises. La solution passe peut-etre par quelque chose qui se rapproche du singleton