Discussion :

[alheuredudejeuner]

Code :

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

1
2
3
4
5
6
 
  Version :=TstringList.create;
  VersionStream:=TMemoryStream.Create;
// traitement
  version.Destroy;
  VersionStream.Destroy;

est-ce que le destroy ne sert plus à rien ou bien il faut faire autrement ?
je faisais comme cela avec D7 et D2009

cordialement

André

[evarisnea]

quel est le souci ?
quelle est la question ?

[Franck SORIANO]

est-ce que le destroy ne sert plus à rien ou bien il faut faire autrement ?
je faisais comme cela avec D7 et D2009

Tu n'aurais jamais dû faire comme ça. Il ne faut pas appeler Destroy directement mais faire un Free :

Code :

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

1
2
3
4
5
6
 
Version :=TstringList.create;
  VersionStream:=TMemoryStream.Create;
// traitement
  version.Free;
  VersionStream.Free;

Et le mieux serait avec des try... finally, en détruisant les objets dans l'ordre inverse de leur création.

[alheuredudejeuner]

uniquement sur le TMemoryStream
pareil avec le free...

la question implicite est : comment dois-je procéder pour libérer l'objet

cordialement

[Paul TOTH]

uniquement sur le TMemoryStream
pareil avec le free...

la question implicite est : comment dois-je procéder pour libérer l'objet

cordialement

non aucun changement...le problème doit venir de ton traitement.

[ShaiLeTroll]

est-ce que le destroy ne sert plus à rien ou bien il faut faire autrement ?
je faisais comme cela avec D7 et D2009

Faudrait lire l'aide !

N'appelez pas directement Destroy. Appelez plutôt Free.

Cela a toujours été (au moins depuis D3, avant je suppose aussi)
Ce n'est pas faute de le répéter !

Sinon quel est le PROBLÈME ?

comment dois-je procéder pour libérer l'objet

Utilise Free ! Cela libère, il n'y a rien à faire d'autres !
As-tu des fuites mémoires ?
Une Exception entre Create et Free ?

[alheuredudejeuner]

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
 
procedure TMAJ.aVerifVersionExecute(Sender: TObject);
Var   VersionStream :TMemoryStream; version :TStringlist;
begin
  try
    Version :=TstringList.create;
    VersionStream:=TMemoryStream.Create;
    Memo1.lines.Add('vérification version serveur');
    HttpCli1.URL := addVersion ;
    HttpCli1.RcvdStream:= VersionStream;
    try
      begin
        HttpCli1.Head;
        ProgressBar1.Max:=HttpCli1.ContentLength;
        HttpCli1.Get;
        VersionStream.Seek(0,0);
        version.LoadFromStream(VersionStream);
        Memo1.Lines.Add('version serveur acquise : '+version[0]);
        if StrToInt(version[0]) > StrToInt(vIntVersion) then
          begin
            bInstalMAJ.Visible:=true;
            bMAJ.Visible:=false;
            Memo1.Lines.Add('Fermer toutes les fiches et cliquer sur "installer la mise à jour" ');
          end
        else Memo1.lines.Add('Il n''y a pas de mise à jour disponible');
      end;
    finally
      HttpCli1.RcvdStream.Free;
      //VersionStream.free;==> peut être un double emploie ici
      version.free;
    end;
  except
    on E:Exception do
    begin
      Memo1.Lines.Add('vérification annulée  :'+E.Message);
    end;
  end;
end;

[Franck SORIANO]

Tu as une exception de type "Opération de pointeur incorrecte" si tu essaies de détruire un objet une deuxième fois alors qu'il a déjà été détruit.

Delphi était moins capricieux à ce sujet avant BDS2006. Avec BDS2006, le gestionnaire de mémoire a été remplacé par FastMM qui justement détecte ce type d'anomalie et déclenche une exception (et si tu utilises la version complète et non pas celle intégrée dans Delphi, FastMM peut aller encore plus loin et détecter par exemple les objets qui continuent à être utilisés après avoir été détruit).

Dans ton code tu as la ligne :

Code :

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

 HttpCli1.RcvdStream:= VersionStream;

Puis tu as :

Code :

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

 HttpCli1.RcvdStream.Free;

Autrement dit, à cette ligne, tu détruis VersionStream. Si tu fais à nouveau la destruction de VersionStream, il est logique d'obtenir un "Invalid Pointer Operation".

[alheuredudejeuner]

merci à tous

André

PS ça fonctionnait avec D7 et D2009, ce qui ne veux pas dire que c'était bon.

[ShaiLeTroll]

Code :

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

HttpCli1.RcvdStream:= VersionStream;

Code :

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

1
2
3
finally
      HttpCli1.RcvdStream.Free;
      //VersionStream.free;==> peut être un double emploie ici

Faudrait vérifier le code de l'objet contenant RcvdStream !
Est-ce qu'il fait juste copier la référence donc cela reste le même objet !
Beaucoup utilise Assign pour dupliquer le Stream, c'est une bonne pratique mais à le problème d'augmenter la consommation mémoire ... il faudrait lire la doc du HttpCli1 à ce sujet, en général, il précise qui doit libérer quoi (si il ne l'ont pas fait, euh ... passe à TIdHttp )

En D7, la double libération posait des problèmes aussi ! même sans FastMM, les collisions entre des Objets partagées par deux ObjectList (sans notification) provoquait ce type d'erreur !