Discussion :

[Pierre95]

Bonjour,

lorsque je tente de fermer mon application, j'ai un message "Invalid pointer operation" qui s'affiche à la ligne:

Code :

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

 FreeAndNil(GstlFsPoints);

(voir ci dessous)
Si je ferme le message et que tente à nouveau la fermeture, l'application se ferme bien.

Le code de la fermeture:

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
procedure TfrmMain.imgExitMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  pnlExit.BevelInner:= bvRaised;
  pnlExit.BevelOuter:= bvRaised;
  FreeAndNil(GstlFsxPoints);//
  FreeAndNil(GstlFsPoints);//
  FreeAndNil(GstlAirpRwysList);//
  FreeAndNil(GstlAirportData);//
  FreeAndNil(GstlRwys);//
  FreeAndNil(GstlApts);//
  FreeAndNil(GstlFs9Points);//
  FreeAndNil(GstlAlist);//
  FreeAndNil(GstlMapPoints);//
  FreeAndNil(GstlWPDist);//
  FreeAndNil(GstlAdeuPoints);//
  if FileExists('FlightMap.jpg') then
    DeleteFile('FlightMap.jpg');
  if FileExists('Fuel.jpg') then
    DeleteFile('Fuel.jpg');
  if FileExists('LdgForm.png')then
    DeleteFile('LdgForm.png');
  if FileExists('ToForm.png') then
    DeleteFile('ToForm.png');
  Application.Terminate;
end;

Auriez vous une idée sur l'origine possible de ce message?

Merci de votre aide

Cordialement
Pierre

[franckcl]

C'est parceque l'objet qui est pointé par GstlFsPoints a déjà été libéré mais que GstlFsPoints n'a pas été mis à nil.
Du coup, comme le pointeur est assigné (différent de nil) la fonction FreeAndnil essaie de libérer une seconde fois l'objet ce qui provoque cette exception.

Il est probable que l'objet pointé par GstlFsPoints ait été automatiquement libéré par un objet parent par exemple avant l'appel de ta fonction.

Met simplement la ligne en commentaire et tu ne devrais pas avoir de problème.


Pour être sur de ne pas générer de fuite mémoire dans ton application (fuite = mémoire occupée par l'occupation qui grossit au fur et à mesure de son utilisation) qui pourrait finir par geler l'application ou rendre le PC plus lent, alors, en mode débug il faut rajouter cette ligne à la fin de ta fiche principale:

Code :

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

1
2
3
4
5
6
 
Begin
 {$ifdef debug}
   System.ReportMemoryLeaksOnShutdown:=true; // report memory leaks when exiting the application
 {$endif}
end.

Si un objet n'a pas été libéré, il te l'indiquera.

F.

[Pierre95]

Merci pour ces précieux conseils.

Voici le log obtenu après mise en commentaire de la ligne incriminée:


Comment interpréter ces messages?

Pierre

[franckcl]

Il n'est pas facile d'interpréter ce message mais il indique clairement que des objets n'ont pas été libérés correctement, ça c'est sur.
Tu utilises des fichiers ini ? peut être n'as-tu pas libérer les objets ?
Idem pour des listes de chaine TStringList.

C'est pour cette raison qu'il est nécessaire d'activer cette option dès le début d'un développement car c'est plus simple de savoir ce qu'on vient de rajouter et qui provoque ce message.

F.

[Pierre95]

Merci beaucoup pour cette réponse.
Je m'en vais faire le plombier et tenter de trouver l'origine de ces fuites.

Meilleurs vœux pour 2017.

Pierre