TFileStream.Create : Comment fermer le fichier ?

**spyk** · 27/08/2005, 17h01

Voiila mon probleme : dans mon programme, il y a sa :
TFileStream.Create('C:/Test.txt',fmCreate);
Donc sa ouvre un fichier pour que je puisse ecrire dedans
Cependant: Une fois que j'ai ecrit dedans, le fichier reste ouvert, ce qui empeche mon programme d'y acceder car ma fonction se repete souvent

Question : Comment Fermer le fichier?
J'ai chercher dans l'aide de Delphi mais il avait pas l'air d'en parler.
J'ai essayer de mettre fmShareDenyNone pour que mon programme puissent y acceder a nouveau mais sa change pas le probleme

Merci!

**Reisubar** · 27/08/2005, 17h46

Le fichier est fermé à la destruction de l'objet. Si le fichier reste ouvert, c'est que tu ne libères pas ton objet via un appel indirect ou direct à Free.

**spyk** · 27/08/2005, 18h33

SIsi je libere bien la memoire.
Pour vous aidez je vais donner le code de toute ma fonction car mon explication n'est pas tres claire.
En faite la fonction recupere un fichier sur le net, l'enregistre, puis le lit.
voila le code

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
function GetRequest:string;
var FS : TFileStream;
var StockRequest : string ;
var SourceRequest : string;
var Ouvert : string;
begin
//CONFIG DES FICHIER
StockRequest := 'C:/test';
SourceRequest := 'http://membres.lycos.fr/.../requete.txt';
//Fin De La Config Des Fichier
 
//if Ouvert = '' then
//begin
Fs := TFileStream.Create(StockRequest,fmCreate,fmShareDenyNone);
//Ouvert := 'oui';
//end;
try
DownloadHTTP(SourceRequest,TStream(fs));
 
finally
FS.free;  //COmme vous pouvez le voire ici je libere bien la memoire
Result := LireFichier(StockRequest);
end;
end;

**Reisubar** · 28/08/2005, 01h02

le fichier reste ouvert

Alors quelle est l'erreur exacte renvoyée par Delphi ? Où ?

**smyley** · 28/08/2005, 02h12

Code :

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

1
2
 
Result := LireFichier(StockRequest);

Ce code correspond à quoi ? ne serai-ce pas dans cette fonction que tu oublies de fermer un stream ?

**spyk** · 28/08/2005, 10h30

La premiere fois que j'utilise la fonction, sa marche, mais la 2e fois que je l'utilise, le programme me dit que le fichier est deja utilisé par un programme.
(Le message apparait pendant l'utilisation, pas pendant la compilation)

Code :

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

Result := LireFichier(StockRequest);

Cette ligne fait en sorte que la fonction renvoie la requete qu'elle a recuperer sur un serveur http puis stocker dans un fichier.

Merci!

**tourlourou** · 28/08/2005, 14h15

pê qu'en séparant mieux création du stream et lecture... ?

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
function GetRequest:string; 
var
 FS : TFileStream; 
 StockRequest : string ; 
 SourceRequest : string; 
begin 
 StockRequest := 'C:/test'; 
 SourceRequest := 'http://membres.lycos.fr/.../requete.txt'; 
 try
  Fs := TFileStream.Create(StockRequest,fmCreate,fmShareDenyNone); 
  try 
   DownloadHTTP(SourceRequest,TStream(fs)); 
  finally 
   FS.free; 
   Result := LireFichier(StockRequest); 
 except
   ShowMessage('erreur de création stream');
 end; 
end;

**spyk** · 28/08/2005, 15h12

Non, toujour la meme erreur:
"Impossible de creer le fichier C:/test"

**Eric Sigoillot** · 28/08/2005, 15h22

Tu es sous Windows, le caractère de séparation dans les chemins est l'anti-slash, pas le slash.
Essaie avec 'C:\test'...

@++

**spyk** · 28/08/2005, 16h22

Marche pas non plus, de toute facons je crois que Delphi corrige ce genre de faute.
Je met ma fonction LireFichier() Peut etre que le probleme vient de la.

Code :

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

1
2
3
4
5
6
7
8
9
function LireFichier(const chemin : string): string;
var contenu : string;
    F       : TextFile ;
begin
AssignFile(F,chemin);
Reset(F);
read(F,contenu);
Result:=contenu
end;