problem finalization thread INDY sous delphi 11

2 pièce(s) jointe(s)

Bonjour,
j'ai à priori une fuite memoire liée à l'usage d'INDY(Indy 10) dans un code Delphi11.
Je ne sais pas où intervenir du fait initialization dans le source projet.
Manque t'il une finalization à inclure qqle part ou est-ce une simple info du debugger madexcept?
Pourriez-vous m'aider ?
En vous remerciant.
Bonne journée

MadExcept me retourne sous debug VCL:Pièce jointe 632622 Pièce jointe 632623

Code:

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
 
program domcfg;
{$R *.res}
 
 
 
//{$R 'domcliResource.res' '..\domcliv14\domcliResource.rc'}
//{$R *.dres}
 
{$R 'domcliResource.res' '..\communs\domcliResource.rc'}
{$R *.dres}
 
uses
  madExcept,
  madLinkDisAsm,
  madListHardware,
  madListProcesses,
  madListModules,
  Vcl.Forms,
  Domo in '..\communs\Domo.pas',
....
 
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  //Application.CreateForm(TDtmListe, DtmListe);
  Application.CreateForm(TDomo_For, Domo_For);
  Application.CreateForm(TSaisie_InoutDft_For, Saisie_InoutDft_For);
  Application.CreateForm(TSaisie_ParamGene_For, Saisie_ParamGene_For);
  Application.CreateForm(TSaisie_ChoixCFG_For, Saisie_ChoixCFG_For);
  Application.CreateForm(TSaisie_ParamALARME_For, Saisie_ParamALARME_For);
  Application.CreateForm(TSaisie_ChoixFCT_For, Saisie_ChoixFCT_For);
  //Application.CreateForm(Tfor_RCfgProdTypeParam, for_RCfgProdTypeParam);
  //Application.CreateForm(Tfrm_suivistat, frm_suivistat);
  Application.CreateForm(TSaisie_Cond_For, Saisie_Cond_For);
  Application.Run;
end.

tu peux changer ceci dans IdCompilerDefines.inc
Code:

1 2 3 4 5 // $DEFINE the following if the global objects in the IdStack and IdThread // units should be freed on finalization {.$DEFINE FREE_ON_FINAL} {$UNDEF FREE_ON_FINAL}
les explications sont ici

super merci Paul.
Bonne journee.