احتجت إلى نسخ ملف باستخدام الـ SaveDialog
فكتبت الكود التالي :
procedure TForm1.Button1Click(Sender: TObject);
Var
Ok:Boolean;
begin
if SaveDialog1.Execute then
begin
CopyFile('C:\NFX.cab',[SaveDialog1.filename],ok);
end;ولكن البرنامج أظهر لي خطأ
وبما أنني مستجد في الدلفي أولاً
وعندي أخوه في الله مجتمعين في منتدى arabteam2000-forum جزاهم الله خيراً ثانياً
فأرجوا منكم أخوتي في الله أن تصححوا لي الكود أو أن تضعوا لي كود بديل ترونه مناسباً
وجزاكم الله خيراً والسلام عليكم ورحمة الله وبركاته
********************************************************************************
آخر وصايا سيدنا محمد صلى الله عليه وسلم:الصلاة الصلاة وما ملكت أيمانكم
هاجر اللذائذ وانبـرى ليثـاً بادغـال الشـرا
بـاع الحيـاة رخيـصـة لله والله اشـتـرى
خذو مني فؤادي وامنحوني سلاحي أمتطي صهو المنون
فإني لم أعش لأذوق ذلاً ولا لأذوب في حضن حنون
موقع الفريق الاسلامي المتحد للبرمجة والإلكترونيات
إيميلي هو:Aboalnoor@maktoob.com
ياهو :adnanalabuo@yahoo.com
هوت ميل:AdnanAlabuo@hotmail.com
الخطأ هو أن CopyFile تحتاج الى اسم ملف على شكل LPCTSTR أوPAnsiChar
و ليس String Tfilename
أكتبcopyfile('C:\fgg',Pchar(Savedialog1.FileName),true) M
true ادا كان ملف بنفس الإسم أفشل العملية
False ادا كان نفس الملف أكتب فوقه
و المعذرة على اللغة ان كانت خاطئة
المشكلة في كتابة اللغة العربية مع الأجنبية
الحرف M زائد في الرد
'C:\NFX.cab' بدل 'C:\fgg' لانه مثال فقط
مشكور أخوي وجزاك الله كل خير
********************************************************************************
آخر وصايا سيدنا محمد صلى الله عليه وسلم:الصلاة الصلاة وما ملكت أيمانكم
هاجر اللذائذ وانبـرى ليثـاً بادغـال الشـرا
بـاع الحيـاة رخيـصـة لله والله اشـتـرى
خذو مني فؤادي وامنحوني سلاحي أمتطي صهو المنون
فإني لم أعش لأذوق ذلاً ولا لأذوب في حضن حنون
موقع الفريق الاسلامي المتحد للبرمجة والإلكترونيات
إيميلي هو:Aboalnoor@maktoob.com
ياهو :adnanalabuo@yahoo.com
هوت ميل:AdnanAlabuo@hotmail.com
هذا الموضوع مغلق.