Erreur d'excution sur intranet

Version imprimable

bonjour

j'ai une erreur sur le code ci-dessous lorsque j'utilise des liens intranet à la variable server1

erreur :exception class EinoutErrorwhith message'I/O error 32' process stoped.

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
procedure tform1.appel ( dEncours, dFin : TDatetime;server1:string);
var
  Info   : TSearchRec; i:Integer;F:textfile; S: TStringList;  k,l:string;
 begin
 while dEncours < dFin do
  begin
   If FindFirst(server1+ FormatDateTime('MDD',dEncours),faAnyFile,Info)=0 Then

   Begin
      Repeat
      If Not((Info.Attr And faDirectory)=0)
       Then ListBox2.Items.Add(Info.FindData.cFileName)
      Else ListBox1.Items.Add(Info.FindData.cFileName);
      Until FindNext(Info)<>0;
    End;
   dEncours := dEncours + 1;
   FindClose(Info);
  end;
    application.ProcessMessages;
   for i:=0 to (listbox1.Items.Count-1) do
    begin
     listbox1.Items.Strings[i];
     assignfile(f,ExtractFilePath(Server1)+listbox1.Items.Strings[i]) ;
     Showmessage(ExtractFilePath(Server1)+listbox1.Items.Strings[i]);
     FileMode:=0;
     reset(f);
  S := TStringList.Create;
repeat
   readln(f,l);
   s.Delimiter:='^';
   s.DelimitedText:=L;
   adoIVR1.Insert;
   K:=S[0] ;
   adoIVR1.FieldByName('JOURS').AsString:=K[4]+K[5]+K[3]+K[1]+K[2]+K[6]+K[7]+K[8];
   adoIVR1.FieldByName('HEURE').AsString:=s[1];
   adoIVR1.FieldByName('A').AsString:=s[2];
   adoIVR1.FieldByName('NOM_AP').AsString:=s[3];
   adoIVR1.FieldByName('CHA').AsString:=s[4];
   adoIVR1.FieldByName('SUBNO').AsString:=s[8];
   adoIVR1.FieldByName('JOURS1').AsString:=K[4]+K[5]+K[3]+K[1]+K[2]+K[6]+K[7]+K[8];
    adoIVR1.FieldByName('EXTERNE').AsString:=S[20];
   adoIVR1.FieldByName('EXTERNE1').AsString:=S[21];
    adoIVR1.FieldByName('Transfer_Ns').AsString:=S[35];
   adoIVR1.Post;
 until eof(F)  ;
      CloseFile(F);
 S.Free;
 end ;
end;
procedure TForm1.Button1Click(Sender: TObject);
 var
 Info   : TSearchRec; f:TextFile;

begin
  ListBox1.Items.Clear;
  ListBox2.Items.Clear;
    if CheckBox1.Checked then
   Appel(DateTimePicker1.Date,DateTimePicker2.Date,'\\172.17.9.14\Logdata\f1);


   showmessage ('Fin d''Export');
 end;

comment je peux corriger l'erreur ?

18/04/2011, 10h55
ShaiLeTroll

Ce code est confu et illisible !
Tu pourrais séparer la création du Listing de la lecture\écriture DB
Utilise un TFileStream en lecture seule !
sinon modifie temporairement FileMode, normalement un ResetText est censé être en lecture seule !

Ton fichier est-il garanti que tu ne tente pas de l'ouvrir pendant qu'il est en cours d'écriture par un autre programme ?

il ne faut pas utiliser

Code:

repeat until eof

mais

Code:

while not eof do

...

utilise try except pour faire les autres fichiers, tu relanceras le traitement pour les fichiers qui n'ont pu être traité !
18/04/2011, 11h58
Paul TOTH

c'est quoi un "lien intranet" ?
18/04/2011, 12h29
louay02

Citation:

Envoyé par Paul TOTH

c'est quoi un "lien intranet" ?

je veux dire sous un réseau local \\IP_Adresse\Rep\
18/04/2011, 12h41
Cl@udius

Salut

Citation:

Envoyé par ShaiLeTroll

Ton fichier est-il garanti que tu ne tente pas de l'ouvrir pendant qu'il est en cours d'écriture par un autre programme ?

+1
I/O Error 32, il me semble que c'est une violation de partage sur le fichier.

C'est donc par là qu'il faut creuser.

@+
18/04/2011, 13h08
BuzzLeclaire

@Salut,

Il manquerai pas un '\' à ton chemin ? ou un de trop ?

Car tu envoi cela :

Code:

Appel(DateTimePicker1.Date,DateTimePicker2.Date,'\\172.17.9.14\Logdata\f1);

à server1

donc

Code:

If FindFirst(server1+ FormatDateTime('MDD',dEncours),faAnyFile,Info)=0 Then

ce qui donnerait :
\\172.17.9.14\Logdata\f1112011 (par exemple)

Bye
18/04/2011, 13h26
louay02

J’ai 8 serveurs apparemment il y a un serveur qui bloque l’extrait des données malgré que j’ai le privilège !! et le chemin est juste.