I/O error 104

Version imprimable

I/O error 104

Yop
je vous fais part de mon code tout d'abord :

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
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
procedure GetLinks;
var
l : integer;
  SomeTxtFile : TextFile;
  buffer , buffer1, StringFirst , StringSecond , lien , lien1 : string;
begin
  AssignFile(SomeTxtFile,'C:\fichier.rtf') ;
  //showmessage('Assigned file');
  Reset(SomeTxtFile) ;
  while not EOF(SomeTxtFile) do
    begin

   
    ReadLn(SomeTxtFile, buffer) ;
    if AnsiContainsStr(buffer, 'Onclick')  then
       begin
      StringFirst:=droite('Onclick',buffer);
      StringSecond :=gauche(')',Stringfirst);
      form1.listbox1.Items.Add(stringsecond);
       end
   end;
  CloseFile(SomeTxtFile) ;
   Form1.getpages;
end;

procedure Tform1.GetPages;
var
l : integer;
  SomeTxtFile : TextFile;
  buffer , buffer1, StringFirst , StringSecond : string;
begin
  AssignFile(SomeTxtFile,'C:\fichier.rtf') ;
  Reset(SomeTxtFile) ;
  while not EOF(SomeTxtFile) do
      begin
      ReadLn(SomeTxtFile, buffer) ;
      if AnsiContainsStr(buffer, '>Next<')  then
         begin
          StringFirst:=gauche('">Next<',buffer);
          StringSecond :=droite('width:253px;"',Stringfirst);
          showmessage(stringsecond);
                 if AnsiContainsStr(stringsecond, 'href="')  then
               begin
               Lien:= droite('href="',stringsecond)  ;
                CloseFile(SomeTxtFile) ;
                cherche ;
               end
else 
break ;
             end
      end
     end;

Procedure Tform1.Cherche ;
var
i ,j:integer ;
begin
j:=0;
Recherche :='http://www.site.com'+lien;
showmessage(recherche);
UrlDownloadToFile(nil, PChar(recherche), PChar('C:\fichier.rtf'), 0, nil) ;
sleep(6000);
getlinks;
end ;

procedure TForm1.Button4Click(Sender: TObject);
begin
Lien :='BlaBla';
cherche;
end;

Le code est supposé parcourir des pages du meme site et rassembler des liens d'un peu partout , mais juste a la derniere page j'ai une erreur : I/O error 104 .
Je ne comprends pas , c'est pourtant correct non ? :?

04/09/2006, 16h49
Soulama

Voir ici:
http://groups.google.de/group/borlan...44bb1cb7a6bec4
04/09/2006, 17h09
Cl@udius
Salut

A la lecture du lien donné par Soulama, je te conseille donc de t'assurer que tu es en mode de lecture seule avant de parcourir ton fichier.
Si ton fichier RTF est en lecture seule, le mode d'ouverture par défaut fmOpenReadWrite déclenche ce type d'erreur.
Code:

1 2 3 4 AssignFile(SomeTxtFile,'C:\fichier.rtf') ; FileMode := fmOpenRead; Reset(SomeTxtFile)
@+
04/09/2006, 17h23
K.othmane

Yop
Merci des reponses , sauf que ca n'a pas changé grand chose :cry: .
Quelqu'un a une autre idée ??
et sinon j'ai entendu dire qu'on pouvait eviter de " montrer " ces erreurs en changeant des options sur le compilateur , parce que la ca fait tres bien ce que c'est supposé faire , mais n'empeche l'erreur est un peu chiante surtout qu'il faut appuyer sur ok a chaque fois ...
Merci
04/09/2006, 17h26
Cl@udius

Oui on peut les supprimer c'est directive $I.

L'aide de Delphi

Citation:

Type Bascule
Syntaxe {$I+} ou {$I-}
{$IOCHECKS ON} ou {$IOCHECKS OFF}
Défaut {$I+}
{$IOCHECKS ON}
Portée Locale
Remarques

La directive bascule $I active ou désactive la génération automatique du code vérifiant le résultat des appels aux procédures d'E/S. Les procédures d'E/S sont décrites dans le Guide du langage Delphi. Voir Routines standard et entrées/sorties Si une procédure d'E/S renvoie un code retour d'E/S non nul alors que cette bascule est activée, une exception EInOutError est déclenchée (ou le programme termine son exécution si la gestion des exceptions est désactivée). Lorsque cette bascule est désactivée, le programme doit tester les codes retour des procédures d'E/S à l'aide de la fonction IOResult.

@+
04/09/2006, 17h29
cmen76

Salut

J'ai l'impression que les appels sont récursifs
getLinks -> getPages -> Cherche -> getLinks -> etc.
Du coup quand ça va dépiler, il va ya avoir des CloseFile et d'autres actions fichiers, d'où l'erreur E/S 104 (action impossible, fichier fermé).

Je te conseille de revoir l'algorithme...;)
04/09/2006, 17h32
K.othmane

@Cmen76 : Oui j'y ai pensé mais j'ai trop la flemme la :/ .
@Claudius40 : Cool , et heu c'est comment pour desactiver , je veux dire c'est ou que je trouve ces directives ?
Merci bien ;)

Un ptit exemple toujours extrait de l'aide de Delphi. Je t'invite au passage de faire comme moi et de la consulter en premier lieu ! ;)

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
 
functionFileIsThere(FileName:string):Boolean;
 
{Fonction booléenne qui renvoie True si le fichier existe,
False sinon.Elle ferme le fichier s'il existe.}
var
  F:file;
begin
  {$I-}
  AssignFile(F,FileName);
  FileMode :=0;{Accès en lecture seule au fichier }
  Reset(F);
  CloseFile(F);
  {$I+}
  FileIsThere :=(IOResult =0)and (FileName <>'');
end;{FileIsThere }
 
 
begin
  if FileIsThere(ParamStr(1))then {Lecture du nom du fichier àpartir de la ligne de commande }
    Canvas.TextOut(10,10,'Le fichier existe')
  else
    Canvas.TextOut(10,10,'Fichier non trouvé');
end;

Par contre cmen76 a sûrement raison, tu devrais te repencher sur ton code.

@+

04/09/2006, 17h39
K.othmane

Merci Claudius .
Je pense que je devrais revoir le code , quelqu'un a une ptite idée pour s'y prendre d'une autre facon ??
Merci a vous

Pour éviter tout souci avec les fichiers, tu pourrais utiliser des TStringList.
Code:

1 2 3 4 5 6 7 8 9 stl := TStringList.Create; try stl.LoadFromFile(<nom de fichier>); // charge tout le fichier dedans ParcourirStringList; // bla bla... finally stl.Free; end;

1-ajoute getlinks comme méthode de form1
2-dans chercher: appel les d2 proc (getlinks;GetPages;)
3-suit ton code pour connétre votre erreur:

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
26
27
procedure Tform1.GetPages;
var
l : integer;
  SomeTxtFile : TextFile;
  buffer , buffer1, StringFirst , StringSecond : string;
begin
{$i-}
  AssignFile(SomeTxtFile,'C:\fichier.rtf') ;
  Reset(SomeTxtFile) ;
  while not EOF(SomeTxtFile) do
    --begin
    |      ReadLn(SomeTxtFile, buffer) ;
    |      if AnsiContainsStr(buffer, '>Next<')  then
    |        |--begin
    |        |    StringFirst:=gauche('">Next<',buffer);
    |        |    StringSecond :=droite('width:253px;"',Stringfirst);
    |        |    showmessage(stringsecond);
    |        |    if AnsiContainsStr(stringsecond, 'href="')  then
    |        |       begin
    |        |          Lien:= droite('href="',stringsecond)  ;
    |        |          CloseFile(SomeTxtFile) ; 
    |        |          cherche ;
    |        |       end
    |        |     else break ;
    |        |-- end
    |-- end;
end;

04/09/2006, 17h50
Cl@udius

Citation:

Envoyé par cmen76

Pour éviter tout souci avec les fichiers, tu pourrais utiliser des TStringList.

:ccool:
Farpaitement ! On n'a pas assez le reflèxe d'utiliser des TStrings.

@+