+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كبف يمكنني ان اتفادى هذا الخطأ (/showthread.php?tid=3004)
كبف يمكنني ان اتفادى هذا الخطأ - لؤي - 17-04-2011
سلام الله عليكم
كبف يمكنني ان اتخطى هذا الخطأ:
exception class EinoutErrorwhith message'I/O error 32' process stoped
شكرا
كبف يمكنني ان اتفادى هذا الخطأ - kachwahed - 17-04-2011
وعليكم السلام
يبدو الخطأ I/O متعلق بوحدات الإدخال/الإخراج
إن كان عند التعامل مع الملفات فتحقق من صحة المسارات (الرمز \ خاصة)
استخدم IoResult لاقتناص الأخطاء (استخدم البحث)
لمزيد من التوضيح وضح محتوى كود (أو سطر) الخطأ.
كبف يمكنني ان اتفادى هذا الخطأ - لؤي - 17-04-2011
سأوضح أكثر لما أنفذ الكود داخل جهازي الشخصي لا يعطي أي مشكلة ولكن لما أنفذه و أعطيه مساراة على الشبكة المحلية(الأنترانت) يتوقف مع خطأ في السطر 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
السلام عليكم
لم اطلع على الكود المستعمل لكن عندي ملاحظتين : - تأكد من صحة المسار - تأكد من إمتلاك صلاحية الكتابة في المسار المختار
بالتوفيق