17-04-2011, 04:01 PM
17-04-2011, 05:47 PM
وعليكم السلام
يبدو الخطأ I/O متعلق بوحدات الإدخال/الإخراج
إن كان عند التعامل مع الملفات فتحقق من صحة المسارات (الرمز \ خاصة)
استخدم IoResult لاقتناص الأخطاء (استخدم البحث)
لمزيد من التوضيح وضح محتوى كود (أو سطر) الخطأ.
يبدو الخطأ 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);17-04-2011, 10:05 PM
السلام عليكم
لم اطلع على الكود المستعمل لكن عندي ملاحظتين : - تأكد من صحة المسار - تأكد من إمتلاك صلاحية الكتابة في المسار المختار
بالتوفيق
لم اطلع على الكود المستعمل لكن عندي ملاحظتين : - تأكد من صحة المسار - تأكد من إمتلاك صلاحية الكتابة في المسار المختار
بالتوفيق