دخول

**لؤي** · 17-04-2011, 04:01 PM

سلام الله عليكم

كبف يمكنني ان اتخطى هذا الخطأ:

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

شكرا

**kachwahed** · 17-04-2011, 05:47 PM

وعليكم السلام
يبدو الخطأ I/O متعلق بوحدات الإدخال/الإخراج
إن كان عند التعامل مع الملفات فتحقق من صحة المسارات (الرمز \ خاصة)
استخدم IoResult لاقتناص الأخطاء (استخدم البحث)
لمزيد من التوضيح وضح محتوى كود (أو سطر) الخطأ.

**لؤي** · 17-04-2011, 06:48 PM

سأوضح أكثر لما أنفذ الكود داخل جهازي الشخصي لا يعطي أي مشكلة ولكن لما أنفذه و أعطيه مساراة على الشبكة المحلية(الأنترانت) يتوقف مع خطأ في السطر reset(f)

كود :
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);

**Lam.Abdeldjalil** · 17-04-2011, 10:05 PM

السلام عليكم

لم اطلع على الكود المستعمل لكن عندي ملاحظتين : - تأكد من صحة المسار - تأكد من إمتلاك صلاحية الكتابة في المسار المختار

بالتوفيق

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة