Discussion :

[K.othmane]

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

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
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 ?

[Soulama]

Voir ici:
http://groups.google.de/group/borlan...44bb1cb7a6bec4

[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 :

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

1
2
3
4
 
  AssignFile(SomeTxtFile,'C:\fichier.rtf') ;
  FileMode := fmOpenRead;
  Reset(SomeTxtFile)

@+

[K.othmane]

Yop
Merci des reponses , sauf que ca n'a pas changé grand chose .
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

[Cl@udius]

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

L'aide de Delphi

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.

@+

[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...

[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