Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous

Suite à des erreurs aléatoire IO 103, je recherche le meilleur moyen de les éviter.

Initialement j'avais ceci

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
 
//...
  InfoCompteurLigne(StrToIntDef(StringGridLignesDocument.Cells[10,i],1));
//...
 
function InfoCompteurLigne(Nbr: Integer): String;
Var
  F: TextFile;
  Fichier: String;
  Str: String;
  Valeur: Integer;
begin
  Fichier := FichierCompteurLigne + FormatDateTime(' dd_mm_yy',Date)+'.txt';
  Valeur := 0;
  AssignFile(F,Fichier);
 
  if FileExists(Fichier) then
  begin
    Reset(F);
    Readln(F,Str);
    Valeur := StrToIntDef(Str,0);
  end;
  Valeur := Valeur + Nbr;
 
  Try
    Rewrite(F);
    WriteLn(F,IntToStr(Valeur));
  Finally
    CloseFile(F);
  end;
end;

Temporaire j'ai fait ceci (le but étant d'éviter l'apparition de l'erreur) "bidouille"

Code :

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

1
2
3
4
5
6
 
  Try
    InfoCompteurLigne(StrToIntDef(StringGridLignesDocument.Cells[10,i],1));
  Except
    // Pas de message inutile
  End;

Voilà ce que je compte mettre en place désormais

Choix 1

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
 
function InfoCompteurLigne(Nbr: Integer): String;
Var
  F: TextFile;
  Fichier: String;
  Str: String;
  Valeur: Integer;
begin
  Fichier := FichierCompteurLigne + FormatDateTime(' dd_mm_yy',Date)+'.txt';
  Valeur := 0;
  AssignFile(F,Fichier);
  {$I-}
  Reset(F);
  {$I+}
  if IoResult=0 then
  begin
    {$I-}
    Reset(F);
    {$I+}
    if IoResult=0 then
    begin
      {$I-}
      Readln(F,Str);
      {$I+}
    end;
    Valeur := StrToIntDef(Str,0);
  end;
 
  Valeur := Valeur + Nbr;
 
  {$I-}
  Rewrite(F);
  {$I+}
  if IoResult=0 then
  begin
    {$I-}
     WriteLn(F,IntToStr(Valeur));
    {$I+}
  end;
 
  if IoResult=0 then
  begin
    {$I-}
    CloseFile(F);
    {$I+}
  end;
end;

Choix 2

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
 
function InfoCompteurLigne(Nbr: Integer): String;
Var
  F: TextFile;
  Fichier: String;
  Str: String;
  Valeur: Integer;
begin
  Fichier := FichierCompteurLigne + FormatDateTime(' dd_mm_yy',Date)+'.txt';
  Try
    Valeur := 0;
    AssignFile(F,Fichier);
 
    Reset(F);
    Readln(F,Str);
    Valeur := StrToIntDef(Str,0);
 
    Valeur := Valeur + Nbr;
    Rewrite(F);
    WriteLn(F,IntToStr(Valeur));
    CloseFile(F);
  Except
 
  end;
end;

pour info :
FichierCompteurLigne est un chemin réseau


Merci à vous pour votre grain de sel

[pprem]

hello

trapper des exceptions sans les traiter, c'est mal

quel était ton objectif de départ ?
y a-t-il plusieurs programmes qui accèdent au même fichier ? en même temps ?
quelle version de Delphi utilises-tu ?
sur quel OS est hébergé le fichier du compteur ?

[Charly910]

Bonjour,

as tu pensé à fermer le fichier avant de le réouvrir ?

pour ma part je ferai ceci :

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
function TForm1.InfoCompteurLigne(Nbr: Integer): String;
Var
  F: TextFile;
  Fichier: String;
  Str: String;
  Valeur: Integer;
begin
  Fichier := 'toto.txt';
  Valeur := 0;
  if FileExists(Fichier) then
  begin
    AssignFile(F,Fichier);
    Reset(F);
    Readln(F,Str);
    Valeur := StrToIntDef(Str,0);
    CloseFile(F);
  end;
  Valeur := Valeur + Nbr;
  AssignFile(F,Fichier);
  Rewrite(F);
  WriteLn(F,IntToStr(Valeur));
  CloseFile(F);
end;

Avec ce code je n'ai pas l'erreur I/O 103

A+
Charly

[SergioMaster]

Bonjour,

Comme Charly910, ce qui m'a fait tiquer dans le premier code c'est que l'existence du fichier était testée après son ouverture

[Charly910]

Oui, ça marche mieux en rectifiant !

[BuzzLeclaire]

Bonjour Pprem

hello

trapper des exceptions sans les traiter, c'est mal

quel était ton objectif de départ ?
y a-t-il plusieurs programmes qui accèdent au même fichier ? en même temps ?
quelle version de Delphi utilises-tu ?
sur quel OS est hébergé le fichier du compteur ?

Comme je le disais "bidouille" temporaire et je suis d'accord.. pas bien.. pas bien..

- Pour te répondre :
J'ai 3 tablettes surface Windows 10 Pro, chacune scanne des codes à chaque scanne j'utilise cette fonctionne qui alimente donc un compteur de scanne envoyer sur un répertoire réseau commun.
Sur la tablette principal j'ai un timer qui lit ces 3 fichiers toutes les 2 secondes et j'affiche "en quelque sorte" le résultat de ce calcul
(Valeur total Départ - valeur compteur tablette 1- valeur compteur Tablette 2 - valeur compteur Tablette 3)

Version : Delphi D2009

L'erreur est aléatoire et viens je pense d'un accès trop rapide.

Salut Charly,

Oui, ça marche mieux en rectifiant !

Dans ta proposition tu propose de faire un close avant la fonctionne rewrite, cas si FileExiste je n'y avais pas pensé.
Pour le AssignFile(F,Fichier); je comprends pas cela n'ouvre pas le fichier ?


Salut Serge ,

Bonjour,

Comme Charly910, ce qui m'a fait tiquer dans le premier code c'est que l'existence du fichier était testée après son ouverture

AssignFile(F,Fichier); n'ouvre pas le fichier ?

D’ailleurs comme je le signalais l'erreur est aléatoire, elle arrive lorsque le traitement est trop rapide cette fonctionne peut-être appelée toutes les demi-sec voir moins parfois (selon ce que fait l'utilisateur).

[Charly910]

Bonjour,

je crois quand même que tu devrais rectifier le code :

- AssignFile après le FileExists
- CloseFile avant de réouvrir en Rewrite

Après si ça plante en I/O 103 il faudra chercher d'autres causes (et tu peux évidement ajouter des {$I-} et des Try Except en tant que besoin)

Peut être que le fichier est verrouillé par un autre processus ou bien qu'il n'est pas encore complètement écrit sur le disque quand tu veux l'ouvrir ?

A+
Charly

[BuzzLeclaire]

Bonjour,

....
Peut être que le fichier est verrouillé par un autre processus ou bien qu'il n'est pas encore complètement écrit sur le disque quand tu veux l'ouvrir ?

A+
Charly

C'est surement ce cas qui se produit..., parfois lors de la lecture des 3 fichiers, l'écriture en même temps doit gêner !

Mais, je ne pensais pas que juste la lecture d'un autre poste, bloquerai l’écriture du poste qui est seul destiné à écrire.
Pourtant si on ouvre un fichier txt via le bloc-note en réseau depuis un poste et qu'on l'ouvre sur un autre en modifiant son contenu cela ne gène en rien celui où il est lu !
Bref je me demande en fait si c'est bien ça...

Je vais sanctuariser la lecture comme tu l'as évoqué je verrai bien d'ici 2 semaines si la Peugeot #103 reviens

Merci

[Charly910]

Bonjour,

j'ai une vieille fonction qui teste l'état d'un fichier avec IOResult . Je ne sais pas si cela fonctionne en réseau :

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
50
{ ============================================================================== }
function FichierOuvert(NomFichier : string; Var CodeRetour:Integer):Boolean;
//Test si un fichier est ouvert ou indisponible
// CodeRetour = 0 pas ouvert - 32 : violation de partage - sinon autre erreur
{
        2: writeln('File not found');
        3: writeln('Path not found');
        4: writeln('Too many open files');
        5: writeln('File access denied');
      100: writeln('Disk read error');
      101: writeln('Disk write error');
      150: writeln('Disk is write protected');
      152: writeln('Drive is not ready');
      154: writeln('CRC error in data');
      156: writeln('Disk seek error');
      157: writeln('Unknown media type');
      162: writeln('Hardware failure');
      else writeln('Various error');
 
et aussi :
12   Invalid file-access mode.
15   Invalid disk number.
16   Cannot remove current directory.
17   Cannot rename across volumes.
 
}
 
Var
   F:TextFile;
   MessErreur : String ;
Begin
  FichierOuvert := False ;
  AssignFile(F, NomFichier);
  {$I-}
  Reset(F);
  {$I+}
  CodeRetour := IOResult;
 
  case CodeRetour of
    0 : FichierOuvert := True  ; //Pas ouvert ou en lecture seule
    32: FichierOuvert := False ; //Ouvert en écriture ou exclusif  - violation de partage
    else
      Begin
//         FichierOuvert := False ;    // éventuellement
         MessErreur := Format('Erreur d''ouverture du fichier %s %s Erreur n° : %d', [NomFichier, RC, CodeRetour]);
//         MessageDlg(MessErreur, mtError, [mbOk], 0);  // éventuellement
      End ;
  end;
End;
{ ============================================================================== }

A+
Charly

[SergioMaster]

Bonjour,

AssignFile(F,Fichier); n'ouvre pas le fichier ?

je lis dans l'aide

In both cases, when the file is opened by Append, Reset or ReWrite

donc, non cela n'ouvre pas le fichier par contre le Rewrite le crée
néanmoins il faudrait peut être le jouer plus finement en utilisant FileOpen

[guillemouze]

Et que se passe t'il si les 2 tablettes mettent a jour le fichier en meme temps ?
tab1 lit 5
tab2 lit 5
tab1 ecrit 5+3, le fichier contient 8
tab2 ecrit 5+2, le fichier contient 7, au lieu de 10

As tu pensé à un petit systeme simple de base de données ? c'est je pense assez simple a mettre en place avec un sqlite ou access. Et ca te permet de gérer les accès concurrents.

[BuzzLeclaire]

CC serge,

Je vais changer de mode de fonctionnement. (ton lien ne fonctionnement pas)


Salut Bob l'éponge,

Et que se passe t'il si les 2 tablettes mettent a jour le fichier en meme temps ?
tab1 lit 5
tab2 lit 5
tab1 ecrit 5+3, le fichier contient 8
tab2 ecrit 5+2, le fichier contient 7, au lieu de 10

As tu pensé à un petit systeme simple de base de données ? c'est je pense assez simple a mettre en place avec un sqlite ou access. Et ca te permet de gérer les accès concurrents.

Chaque tablette gère son propre fichier en écriture. Une tablette gère uniquement en lecture les 3 fichiers pour afficher un calcul.
Donc je penses que lors de la lecture, le fichier n'est pas dispo pour l'écriture ou vice-versa.

Sinon comme je l'évoquais, je vais donc changer de fonctionnement car je vais devoir faire fonctionner 2 autres tablettes donc il y aura 5 tablettes Surface en tout dont une mère. Les 5 doivent générer un compteur et la tablette mère afficher le résultat d'un calcul.

Je vais écrire le fichier avec le compteur en local sur chaque tablette, à l'issu je copie ce fichier vers l'UNC du serveur uniquement si le fichiers n'existe pas.
Pour la lecture depuis la tablette mère du chemin UNC serveur, je vais lire les fichiers et les supprimer après lecture.

La je pense plus avoir de problème....

[anapurna]

salut


pourquoi ne pas utiliser les tstream ... en lieu et place des ancien accès fichier
qui sont de plus lié a la plateforme