delphi4arab منتديات دلفي للعرب

نسخة كاملة : رسائل الأخطاء للدالة copyfile
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

تعمل الدالة copyfile على نسخ ملف من المصدر إلى الوجهة المراد وضع فيها الملف لكن إن كانت الوجهة خاطئة أو فيها خلل في الرابط لا تعطيك خطأ وبالتالي لا تعلم إن تم نسخ الملف أم لا كيف لي أن أعلم إن حدث خطأ أم لا أو تم النسخ بنجاح .ممكن عمل بحث عن وجود الملفات المنسوخة في الوجهة إن لم أجدها أعرف أن لم تتم العملية لكن هذا لا يعطيني سبب عدم إجراء النسخ هل هو ناتج عن خطأ في الرابط أم مشكل إمتيازات إن كان على السبكة أو قرص مملوء ....إلخ
كود :
CopyFile(PChar('C:\fichier'),PChar(':\En\'+'H'),True)

كيف لي معرفة وجود الأخطاء في حالة عدم نسخ الملفات ب copyfile أم هناك طريقة أخرى فعالة ؟
السلام عليكم ورحمة الله وبركاته
استخدم الدالة getlaserror فى حالة نجاح عملية النسخ سيكون الناتج هو صفر غير ذلك لم تنجح العملية
فى المثال التالى استخدمت الدالة copyfile لنسخ ملف اسمه ssetings واستخدمت الدالة getlasterror ووضع الناتج منها فى memo1
PHP كود :
begin
copyfile
(pchar('c:\ssettings.ini'),pchar('d:\ssetings.ini'),true);
Memo1.Lines.Add(IntToStr(GetLastError));
end; 

ولمعرفة نوع الخطا ممكن الاستعانة بالدالة SysErrorMessage
PHP كود :
Memo1.Lines.Add(SysErrorMessage(GetLastError)); 
justnick كتب :ولمعرفة نوع الخطا ممكن الاستعانة بالدالة SysErrorMessage
فكرة جميلة وتعطي المبتغى سأحاول المعالجة Rolleyesبها شكرا أخي Justnick