Discussion :

[BuzzLeclaire]

Bonjour à tous et à toutes ,

Je voudrais savoir comment éviter une fuite mémoire lorsqu'on stop un thread.



Evidement, j'ai activé ReportMemoryLeaksOnShutDown := true; dans mon dpr

Cela arrive si je stop mon téléchargement encours en fermant mon application


J'ai essayé de jouer avec le destructor du thread, mais je ne sais pas quoi libérer, voici un des threads concerné :

Code :

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

1
2
3
4
5
Destructor TDownloadStatus.Destroy;
begin
  FreeAndNil('????');
  inherited;
end;

Le Thread

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
  TDownloadStatus = class(TInterfacedObject, IBindStatusCallback)
  private
    Wnd :hWnd;
  public
    function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; stdcall;
    function GetPriority(out nPriority): HResult; stdcall;
    function OnLowResource(reserved: DWORD): HResult; stdcall;
    function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; stdcall;
    function OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall;
    function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall;
    function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc; stgmed: PStgMedium): HResult; stdcall;
    function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall;
  public
    Constructor Create(const aWnd :hWnd);
    Destructor Destroy; override; { Destructeur }
  end;

Et pour le deuxieme, cela ne change rien :

Code :

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

1
2
3
4
5
Destructor TDownloadNewVersionThread.Destroy;
begin
  FreeAndNil(Status);
  inherited;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  //Tâche téléchargement
  TDownloadNewVersionThread = class(TThread)
  private
    Wnd        :hWnd;        //Fenêtre qui reçoit les notifications
    RemoteFile :string;      //HTTP://... fichier nouvelle version
    Status     :TDownloadStatus;
  protected
    procedure Execute; override;
  public
    constructor Create(const aWnd :hWnd; const aRemoteFile :string);
    Destructor Destroy; override; { Destructeur }
  end;

Merci.

[tourlourou]

pour terminer les threads, ne faut-il pas leur setter Terminated à True et tester Terminated dans leur boucle du Execute ?
à condition que FreeOnTerminate, ils se libèreront, non ?

[GoustiFruit]

Comment stoppes-tu ton thread quand il y a demande de fermeture de la fiche ?

[Andnotor]

Si ces erreurs étaient systématiques et augmentaient avec le temps, je me poserais certainement des questions (mais surtout en runtime)
Sinon, en sachant que la mémoire du processus est entièrement libérée à sa terminaison, inutile de se soucier d'une chaîne non désallouée. (elle le sera de toute façon)

[BuzzLeclaire]

pour terminer les threads, ne faut-il pas leur setter Terminated à True et tester Terminated dans leur boucle du Execute ?

Je ne peux pas faire de teste sur terminated à true.

Comment stoppes-tu ton thread quand il y a demande de fermeture de la fiche ?

Dans chaque create des Threads avec

Code :

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

1
2
  //Libération automatique à la fin du thread
  FreeOnTerminate := TRUE;

Si ces erreurs étaient systématiques et augmentaient avec le temps, je me poserais certainement des questions (mais surtout en runtime)
Sinon, en sachant que la mémoire du processus est entièrement libérée à sa terminaison, inutile de se soucier d'une chaîne non désallouée. (elle le sera de toute façon)

Salut Andnotor,

Tu as tout à fait raison, une fois l'application fermée tout est désalouée.
Je voulais apprendre, savoir si c'était possible.
après beaucoup de test différent je n'ai pas trouvé le moyen de le faire, je suis même arrivé à faire pire... lol

[BuzzLeclaire]

Bjr,

J'ai du louper un Wagon, il n'y a plus de bouton DELESTAGE ?

(Ps: dans les options non plus)

Merci.

[mick605]

Bjr,

J'ai du louper un Wagon, il n'y a plus de bouton DELESTAGE ?

(Ps: dans les options non plus)

Merci.

Salut

En effet, c'est depuis un moment : http://www.developpez.net/forums/d11...olu-delestage/

[Franck SORIANO]

pour terminer les threads, ne faut-il pas leur setter Terminated à True et tester Terminated dans leur boucle du Execute ?
à condition que FreeOnTerminate, ils se libèreront, non ?

En fait le FreeOnTerminate ne fonctionne que lorsque la méthode Execute du thread rend la main :
Lorsque la classe TThread est instanciée, en interne celà provoque l'appel à CreateThread sur une procédure qui appelle à son tour la méthode Execute du thread. Lorsque Execute rend la main, la procédure interne utilisée pour appeler Execute teste si FreeOnTerminate est activé et détruit l'instance de TThread avant de rendre la main et que le thread Windows ne se termine.

Autrement dit, ça fonctionne si Execute rend la main parce que le traitement est finit ou que dans le traitement du thread, on teste Terminated pour quitter Execute.
Cependant, si c'est le thread windows qui est tué (un arrêt brutal du thread, par exemple avec TerminateThread), c'est l'exécution de la procédure interne qui a appelé Execute qui est stoppée. FreeOnterminate ne sera pas testé et l'instance du thread restera...

Dans le cas de BuzzLeclaire, à la fermeture de la fenêtre, il faudrait contrôler s'il existe encore des TDownloadNewVersionThread en cours d'exécution. Si c'est le cas, il faut notifier au thread qu'il doit s'arrêter, et s'il est en attente d'un objet de synchronisation, il faut débloquer le thread pour qu'il s'arrête proprement.

Sinon, en sachant que la mémoire du processus est entièrement libérée à sa terminaison, inutile de se soucier d'une chaîne non désallouée. (elle le sera de toute façon)

Le problème c'est que s'il reste des threads en cours d'exécution, le process reste aussi en mémoire et ne se termine pas. Apparemment ici les threads ont l'air d'avoir été tués violament donc ça ne poserait pas de problème, mais il serait plus sûr de faire le ménage correctement.

[tourlourou]

@Franck : tu as parfaitement explicité ce que j'avais "résumé" ! Et en y ajoutant le problème de Synchro, auquel je n'avais pas pensé... Tu as également raison de souligner que ce n'est possible que si la méthode Execute se prête à l'écoute du Terminated.

[Andnotor]

Ce que je voulais dire est que ReportMemoryLeaksOnShutDown nous renvoi un état des lieux à la fin du thread principal.
Si pour une raison quelconque le thread secondaire prend plus de temps à s'arrêter que le principal (il n'est pas forcément en attente), un memory leak sera reporté. Ce qui ne veux pas dire que la mémoire ne sera pas libérée normalement par la suite...

Si le problème est sporadique, ce n'est pas forcément une erreur. Juste un faux signal négatif. S'il est systématique, oui je me ferais du soucis
Si le processus ne se termine pas, la question ne se pose pas... Y'a du boulot !

Enfin je peux me tromper...