Discussion :

[colorid]

Bonjour,

Avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Procedure UpdateFile(const FileName: TFileName; const Rec: TMyFile);
var
  F : TextFile;
begin
  {I-}
  AssignFile(F,FileName);
  If FileExists(FileName) then Append(F) else Rewrite(F);
  WriteLn(F,'NANE'+#9+Rec.Name);
// ..................... une suite de WriteLn
  CloseFile(F);
  {I+}
end;

1) le fichier qui existait n'existe plus
2) en traçant il semble qu'il execute le premier WriteLn puis saute à end sans même passer par la ligne CloseFile()

Que se passe-t'il ?

[Andnotor]

En {$I-}, tu devrais tester IOResult.

[colorid]

IOResult est à zéro

[colorid]

Code :

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

1
2
3
4
5
 
  {I-}
  AssignFile(F,FileName);
  if ioResult<>0 then ShowMessage('Error I/O');
  If FileExists(FileName) then Append(F) else Rewrite(F);

[Andnotor]

Il est a 0 quand ?
Après AssignFile, Append, Rewrite, WriteLn ?

Je n'utilise presque jamais AssignFile, mais je pense que tu dois tester après chaque opération.

Edit: ça répond à une partie de la question

[colorid]

Remarque si le fichier n'existe pas il se crée normalement il ne s'efface que s'il existe et j'utilise append

Code :

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

1
2
3
4
5
6
7
  {I-}
  AssignFile(F,FileName);
  if IoResult<>0 then ShowMessage('Erreur d''assignation');
  If FileExists(FileName) then Append(F) else Rewrite(F);
  if IoResult<>0 then ShowMessage('Erreur d''ouverture');
  WriteLn(F,'NANE'+#9+Rec.Name);
  if IoResult<>0 then ShowMessage('Erreur d''écriture');

[ShaiLeTroll]

J'ai abandonné le textfile, depuis des soucis avec le caractère 14 et 26 (si je me souviens bien) qui provoquait l'arrêt de l'écriture d'une ligne, ce qui tronquait mes logs, depuis, je me traine une fonction, elle est fonctionnelle, peux-tu la tester, si tu as le même problème ça devient inquietant !

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
42
43
44
45
46
47
48
49
procedure WriteLog(LogName, SectionName, BufferLog: string; AddDate: Boolean = True);
var
   LogFile: file;
   Dirfile, NameFile, TimeLog: string;
   Buf: string;
const
   LogPrefixe = 'LOG_';
   LogExt = '.txt';
begin
   // C:\...\MonProgramme.exe -> C:\...\MonProgramme\log\
   try
      if AddDate then begin
         TimeLog := FormatDateTime('dd/mm/yyyy hh:nn:ss:zzz', Now());
      end;
      Dirfile := GetLocalLogDirectory();
      if not DirectoryExists(Dirfile) then begin
        ForceDirectories(Dirfile);
      end;
      NameFile := Dirfile + LogPrefixe + LogName + LogExt;
      try
         AssignFile(LogFile, NameFile);
         try
            if not FileExists(NameFile) then begin
               ReWrite(LogFile, 1);
            end else begin
               Reset(LogFile, 1);
               Seek(LogFile, FileSize(LogFile));
            end;
            try
               if AddDate then begin
                  Buf := TimeLog + #9', ' + SectionName + ' :'#9 + BufferLog + #13#10;
               end else begin
                  Buf := SectionName + ' :'#9 + BufferLog + #13#10;
               end;
               // Buf[1] car BlockWrite écrit n octets à partir de la position Buf[1] !
               BlockWrite(LogFile, Buf[1], Length(Buf));
            except
               Exit;
            end;
         finally
            CloseFile(LogFile);
         end;
      except
         Exit;
      end;
   except
      Exit;
   end;
end;

[colorid]

Si je comprend bien ce fichier log ressemble aux fichiers INI
Je vais essayer mais mon fichier contient des données en tableau c'est moins simple...
J'essaie et communique mon résultat.
A+

[LadyWasky]

1) le fichier qui existait n'existe plus

Peut être que le FileExists ne pointe pas dans le bon répertoire

2) en traçant il semble qu'il execute le premier WriteLn puis saute à end sans même passer par la ligne CloseFile()

ça c'est parce que tu as une erreur d'écriture dans ton fichier, il est censé exister et n'existe déjà plus, ou un truc dans le genre.


En tout cas, il n'y a pas de raisons, cette partie du code est bonne.

La vérité est ailleurs !

[colorid]

J'avais poblié le closefile à la derniere lecture

Encore merci à tous