Delphi XE2 Create Destroy ne fonctionne plus comme avant

Version imprimable

10/10/2011, 21h44
alheuredudejeuner

Delphi XE2 Create Destroy ne fonctionne plus comme avant
Code:

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é
10/10/2011, 22h32
evarisnea

:salut:

quel est le souci ?
quelle est la question ?
10/10/2011, 23h07
Franck SORIANO
Citation:

Envoyé par alheuredudejeuner

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:

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.
11/10/2011, 06h57
alheuredudejeuner

Opération de pointeur incorrecte

uniquement sur le TMemoryStream
pareil avec le free...

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

cordialement
11/10/2011, 07h39
Paul TOTH

Citation:

Envoyé par alheuredudejeuner

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.
11/10/2011, 10h50
ShaiLeTroll

Citation:

Envoyé par alheuredudejeuner

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 !

Citation:

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 ?

Citation:

Envoyé par alheuredudejeuner

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 ?

vérification annulée :Opération de pointeur incorrecte

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
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;

11/10/2011, 20h23
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:

HttpCli1.RcvdStream:= VersionStream;

Puis tu as :

Code:

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".
11/10/2011, 20h30
alheuredudejeuner

je pense avoir compris

merci à tous

André

PS ça fonctionnait avec D7 et D2009, ce qui ne veux pas dire que c'était bon.
12/10/2011, 09h22
ShaiLeTroll
Code:

HttpCli1.RcvdStream:= VersionStream;
Code:

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 :mouarf:)

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 !