TFilestream, Exception et methode Free

J'ai un problème lors de la libération d'un tfilestream :

J'ai un message d'erreur (violation access) lors de la libération du fichier (Free) s'il y a eu une exception lors du create alors que d'après l'aide la methode Free marche même si l'objet n'est pas initialisé 8O

Est-ce normal ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.Button1Click(Sender: TObject); var fichier: TFileStream; begin try fichier := TFileStream.Create('test.txt', fmOpenWrite or fmShareExclusive); except // On MessageDlg('Erreur ouverture', mtError, [mbOK], 0); end; fichier.Free; end;

Salut
Pour pas t'embêter avec ça, utilise:
Code:

1 2 FreeAndNil(fichier);
Ca fait le même chose, ça met à nil et puis ça vérifie que ça existe...
Tu peux aussi faire:
Code:

1 2 if Assigned(fichier) then fichier.free;
Mais je pense aussi que tu dois te tromper dans l'ordre de ton code...
Bonne chance

J'ai essayé FreeAndNil et le test avec assign et j'ai toujours un violation access à la libération.

En fait il faut initialiser fichier à nil avant de faire le create. Apparamment en cas d'exception dans le create, la variable n'est pas modifiée et contient n'importe quoi puisque c'est une variable locale.

C'est en C++ que la variable est initialisée à NULL en cas de problème lors de la création d'un objet ?

Essaie:

Code:

1
2
3
4
5
6
7
8
 
    try 
        fichier := TFileStream.Create('test.txt', fmOpenWrite or fmShareExclusive); 
    except 
       MessageDlg('Erreur ouverture', mtError, [mbOK], 0); 
    finally
       fichier.Free; 
    end;

ou bien

Code:

1
2
3
4
5
6
7
 
    try 
        fichier := TFileStream.Create('test.txt', fmOpenWrite or fmShareExclusive); 
       fichier.Free; 
    except 
       MessageDlg('Erreur ouverture', mtError, [mbOK], 0); 
    end;

Bonne chance

Bonjour,

Essaie plutôt d'utiliser un TStream à la place d'un TFileStream

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 var Stream: TStream; begin Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); try LoadFromStream(Stream); finally Stream.Free; end; end;
Bonne chance

Citation:
Envoyé par Pedro204
Essaie:
Code:

1 2 3 4 5 6 7 8 try fichier := TFileStream.Create('test.txt', fmOpenWrite or fmShareExclusive); except MessageDlg('Erreur ouverture', mtError, [mbOK], 0); finally fichier.Free; end;
ou bien
Code:

1 2 3 4 5 6 7 try fichier := TFileStream.Create('test.txt', fmOpenWrite or fmShareExclusive); fichier.Free; except MessageDlg('Erreur ouverture', mtError, [mbOK], 0); end;
Bonne chance
Le problème avec delphi est que le try except finally n'existe pas, la deuxième solution ne me plais pas car en cas d'erreur dans un write le fichier n'est pas libéré. J'ai essayé avec un TStream et c'est le même problème.

Une solution est d'initialiser la variable à nil avant de faire le create, je pensait qu'elle était initialisé même en cas d'erreur par le create.
Code:

1 2 3 4 5 6 7 8 try fichier := nil; fichier := TFileStream.Create('test.txt', fmOpenWrite or fmShareExclusive); except MessageDlg('Erreur ouverture', mtError, [mbOK], 0); end; fichier.Free; end;

La méthode la plus sûre utilisée est celle-ci :
Code:

1 2 3 4 5 6 Objet := TClasse.Create; try // Utilisation de Objet. finally Objet.Free; end;
Cependant ce code ne permet pas d'intercepter l'erreur s'il y lieu. Voici donc une modif :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 try Objet := TClasse.Create; except on Error : Exception do begin // ... exit; end; end; try // Utilisation de Objet finally Objet.Free; end;

J'ai ce problème quand

J'ai une application qui est en train d'écrire un fichier
J'ai une autre application qui est en train de lire le même fichier.

Ce code ne fonctionne pas
Code:

1 2 3 4 5 6 try fs:=tfilestream.create(fichier,fmOpenRead OR fmshareexclusive); except fs.Free;//ce free déclenche occasionnellement une erreur: étrange. exit; end;
En n'appelant pas le free, pas d'erreur incontrôlable.

Ce code fonctionne
Code:

1 2 3 4 5 6 7 8 9 try fs:=tfilestream.create(fichier,fmOpenRead OR fmshareexclusive); except try fs.Free; except end; exit; end;

Citation:
Envoyé par sgmsg
Ce code ne fonctionne pas
Code:

1 2 3 4 5 6 try fs:=tfilestream.create(fichier,fmOpenRead OR fmshareexclusive); except fs.Free;//ce free déclenche occasionnellement une erreur: étrange. exit; end;
Tu ne comprends pas ce que tu fais ?
Si une exception se déroule durant tfilestream.create, la variable fs n'est jamais affecté, le Free se produit donc sur une variable à une valeur aléatoire ce qui provoque des Violation d'Accès tout aussi aléatoire, mais lorsqu'il n'y a pas d'erreur, cela ne veut pas dire que c'est bon, cela a modifié une zone mémoire accessible par ton programme on ne sait pas vraiment comment, les résultats pouvant se manifester dans une toute autre partie du code !
Citation:
Envoyé par sgmsg
Ce code fonctionne
Code:

1 2 3 4 5 6 7 8 9 try fs:=tfilestream.create(fichier,fmOpenRead OR fmshareexclusive); except try fs.Free; except end; exit; end;
Ce code protège l'exception du tfilestream.create et protrège contre un appel dangereux à Free précisémment là où il ne faut surtout pas l'appeler

Ne bricole pas n'importe quoi !
Pour revenir à la réponse de SJRD qui comme d'habitude apporte une vraie réponse, je corrigerais l'utilisation du "exit" qui apporte une rupture dans le code qui n'est pas facile à détecter !
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 try Objet := TFileStream.Create('...', fmOpenRead); try try // Utilisation de Objet TFileStream except on Error : ETypedException do // je préfère savoir ce que j'attrape begin // Erreur prévue durant l'utilisation TFileStream end; end; finally Objet.Free; end; except on Error : EFOpenError do // fmOpenRead donnera un EFOpenError et fmCreate donnera un EFCreateError begin // Erreur durant la création de l'objet TFileStream en Lecture end; on Error : Exception do begin // Erreur non prévue durant l'utilisation ou la création end; end;