Exception et Gestion de la mémoire

**Aos** · 22/04/2009, 14h02

Bonjour,

J'ai un petit soucis, je n'arrive pas a liberer la mémoire apres
une exception, j'ai beau faire un Free; mais rien n'y fait.

Le hic, c'est que le composant qui leve cette exception n'est
pas de moi et disons que je n'ai pas accés aux sources.

Donc en gros ça donne ça .

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
 
function estCrypté(chaine : String) : boolean;
var
b : boolean;
aes : TMclasse;
begin
  b:=true;
  try
    aes.decryptString(chaine);
    except
      b:=false;
   end;
 estcrypte:=b;
aes.free;
end;

Bon, c 'est pas le code exacte mais en gros c'est ça.
Y a t-il une particularité pour les exceptions au meme titre que pour
les destructions ?

**Cl@udius** · 22/04/2009, 14h36

Salut

Assure-toi de la destruction d'aes avec un try..finally.

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
function EstCrypte(const chaine: string): Boolean;
var
  aes: TMclasse;
begin
  Result := True;
  aes := TMclasse.Create; // ?
  try
    try
      aes.decryptString(chaine);
    except
      Result := False;
    end;
  finally;
    aes.Free;
  end;
end;

J'ai rajouté l'appel à Create qui doit trainé par là je suppose.

@+ Claudius

**Aos** · 22/04/2009, 14h40

oui oui le create est bien par la

Il se detruit bien, aucun message d'erreur avec un except.

Si c'est déclaré en local, en principe, tout est liberé a la fin de l'excution
de la fonction non ?

**Aos** · 22/04/2009, 14h44

En plus si j'appel cette meme fonction en faisant en sorte que l'exception
ne se leve pas, il n'y aucun soucis. la memoire est correctement libéré.

Si la classe que j'appelle crée elle meme d'autre instance d'une autre classe,
est-ce possible que ce soit ces instances la qui ne sont pas libérés ?

**Cl@udius** · 22/04/2009, 14h57

Envoyé par Aos

En plus si j'appel cette meme fonction en faisant en sorte que l'exception ne se leve pas, il n'y aucun soucis. la memoire est correctement libéré.

C'est tout l'intérêt du try .. finally qui t'assure la libération qu'une exception soit levée ou non.

Envoyé par Aos

Si la classe que j'appelle crée elle meme d'autre instance d'une autre classe, est-ce possible que ce soit ces instances la qui ne sont pas libérés ?

C'est au destructeur de ta classe de s'assurer de la libération des objets qu'elle a elle-même créés.

[Edit]

Envoyé par Aos

Si c'est déclaré en local, en principe, tout est liberé a la fin de l'excution de la fonction non ?

Ah non l'instance de ta classe sera toujours présente, et paf fuite de mémoire.

@+

**Aos** · 22/04/2009, 15h17

ok, mais alors comment expliques- tu que lorsque l'exception n'est pas levée,
la mémoire est bien libérée alors que quand elle est levée, la mémoire
ne se libère plus ?

**Cl@udius** · 22/04/2009, 15h24

Si si, la ligne aes.Free sera executée, exception levée ou pas.

Tu as bien repris mon exemple de code ?

**Aos** · 22/04/2009, 15h26

oui oui, j'avais déjà essayé comme ça

mais pour être sur, j'ai ressayé et c'est pareil.

**Cl@udius** · 22/04/2009, 15h28

Montre-nous la fonction EstCrypte telle que tu l'as modifié.

**Aos** · 22/04/2009, 15h41

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
function estCrypte(chaine : string) : boolean;
var
b : boolean;
tempRi : TlbRijndael;
begin
 
creation de tempRI;
 
b:=true;
try
  try
   tempRi.DecryptString(chaine)
   except
     b:=false;
   end;
  finally
   tempRi.free;
end;
  estCrypte:=b;
end;

**Cl@udius** · 22/04/2009, 16h12

Si ta fonction est bien construite ainsi, pas de soucis.
tempRi.free sera toujours exécuté.

**Aos** · 22/04/2009, 16h17

oui oui c'est comme ça, j'ai juste zippé la construction.

C'est le composant TplockBox 2.07 et j'utilise Aes rijndael, il doit y avoir
un problème dedans. Je vais me plonger dans les sources des que
j'aurai un peu de temps...

Ça peut venir que de la...

Je laisse le thread encore ouvert pour voir si quelqu'un a deja eu
la même péripétie et je le fermerai en soirée.

En tout cas merci a toi claudius

**guillemouze** · 22/04/2009, 22h04

Petite remarque, tu n'es pas obligé d'utiliser la variable b, l'affectation du resultat ne termine pas la fonction (comme en C par exemple). Tu peux faire :

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
function estCrypte(chaine : string) : boolean;
var
tempRi : TlbRijndael;
begin
 
creation de tempRI;
 
Result :=true;
try
  try
   tempRi.DecryptString(chaine)
   except
     Result:=false;
   end;
  finally
   tempRi.free;
end;
end;

**peter27x** · 23/04/2009, 09h33

Il quand même assez étonnant que pour tester si une chaine est cryptée ton composant n'est pas d'autres manière de répondre que par une exception !

**Aos** · 23/04/2009, 12h10

hello!

@guillemouze : Oui c'est effectivement une sale habitude de Java

Merci

@peter : Bah oui, même moi ça me fait flipper, mais j'ai vraiment rien trouvé
dans la doc que j'ai parcouru plusieurs fois. A moins que je l'ai loupé mais
vraiment c'est le seul moyen que j'ai trouvé pour savoir si c'était crypté ou non.
Je vais rereregarder en espérant trouver cette fois.

Mais de toute façon, ça ne règle en rien cette satanée fuite de mémoire

.

Lorsque j'aurai mis le doigt dessus, ça va barder!!

**peter27x** · 23/04/2009, 13h23

Envoyé par Aos

hello!

@guillemouze : Oui c'est effectivement une sale habitude de Java

Merci

@peter : Bah oui, même moi ça me fait flipper, mais j'ai vraiment rien trouvé
dans la doc que j'ai parcouru plusieurs fois. A moins que je l'ai loupé mais
vraiment c'est le seul moyen que j'ai trouvé pour savoir si c'était crypté ou non.
Je vais rereregarder en espérant trouver cette fois.

Mais de toute façon, ça ne règle en rien cette satanée fuite de mémoire

.

Lorsque j'aurai mis le doigt dessus, ça va barder!!

Ce serait bien de voir le code de decryptString afin de voir ce qu'il fait et ce qui est susceptible de le faire "planter" comme ça.

Ainsi toi en amont tu pourrais déjà faire une batterie de test avant d'appeler cette fonction (caractères indésirables, ... ?).

Ainsi tu aurais pas à passer par une exeption et tu aurais peut être plus le pb de la mémoire qui fuit (sinon mets de la 5W50).

**Aos** · 23/04/2009, 13h58

Voila la procédure qui plante...
Je suis en train de parcourir le code pour voir ou est cette fameuse fuite de mémoire.

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
39
40
41
 
procedure LbDecodeBase64(InStream, OutStream : TStream);
var
  I, O, Count, c1, c2, c3 : Byte;
  InBuf  : array[0..87] of Byte;
  OutBuf : array[0..65] of Byte;
begin
  repeat
    O := 0;
    I := 0;
 
    Count := InStream.Read(InBuf, SizeOf(InBuf));
    if (Count = 0) then
      Break;
 
    { Decode data to output stream }
    while I < Count do begin
      if (InBuf[I] < 43) or (InBuf[I] > 122) or
         (InBuf[I+1] < 43) or (InBuf[I+1] > 122) or
         (InBuf[I+2] < 43) or (InBuf[I+2] > 122) or
         (InBuf[I+3] < 43) or (InBuf[I+3] > 122) then
        raise Exception.Create('Invalid Base64 Character');
 
      c1 := LbD64Table[InBuf[I]];
      c2 := LbD64Table[InBuf[I+1]];
      c3 := LbD64Table[InBuf[I+2]];
      OutBuf[O] := ((c1 shl 2) or (c2 shr 4));
      Inc(O);
      if Char(InBuf[I+2]) <> '=' then begin
        OutBuf[O] := ((c2 shl 4) or (c3 shr 2));
        Inc(O);
        if Char(InBuf[I+3]) <> '=' then begin
          OutBuf[O] := ((c3 shl 6) or LbD64Table[InBuf[I+3]]);
          Inc(O);
        end;
      end;
      Inc(I, 4);
    end;
    OutStream.Write(OutBuf, O);
  until Count < SizeOf(InBuf);
end;

**Aos** · 23/04/2009, 14h15

Je crois que le problme vient de la, si la fonction LbEncodeBase64 plante,
alors les in,out,work Stream ne sont pas libérés.
Je teste ça et je tiens au courant...

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
 
function RDLEncryptStringEx(const InString : string;
            const Key; KeySize : Longint; Encrypt : Boolean) : string;
var
  InStream  : TMemoryStream;
  OutStream : TMemoryStream;
  WorkStream : TMemoryStream;
begin
  InStream := TMemoryStream.Create;
  OutStream := TMemoryStream.Create;
  WorkStream := TMemoryStream.Create;
  InStream.Write(InString[1], Length(InString));
  InStream.Position := 0;
 
  if Encrypt then begin
    RDLEncryptStream(InStream, WorkStream, Key, KeySize, True);
    WorkStream.Position := 0;
    LbEncodeBase64(WorkStream, OutStream);
  end else begin
    LbDecodeBase64(InStream, WorkStream);
    WorkStream.Position := 0;
    RDLEncryptStream(WorkStream, OutStream, Key, KeySize, False);
  end;
  OutStream.Position := 0;
  SetLength(Result, OutStream.Size);
  OutStream.Read(Result[1], OutStream.Size);
 
  InStream.Free;
  OutStream.Free;
  WorkStream.Free;
end;