+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تصدير fastreport الىpdf وانشاء مجلد ووضع الملف فيه (/showthread.php?tid=7702)
تصدير fastreport الىpdf وانشاء مجلد ووضع الملف فيه - wadoud - 08-04-2016
السلام عليكم أسال الله ان تكونوا بخير وعافية
هدفي هو كالتالى
اولا انشاء مجلد في المكتب إن لم يكن موجودا واذا كان المجلد موجود فلا داع لانشائه.
ثانيا تصدير ملف fastreport الى pdf الى المجلد أعلاه يحمل الى جانب الاسم تاريخ اليوم .
عندي محاولتين الاولى في انشاء المجلد وهي كالتالي:
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
If not DirectoryExists('مجلد') then
MKdir('مجلد') ;
MkDir(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + 'مجلد');
هذه نجحت ولكن يظهر رسالة خطأ اذا كان الملف موجودكود :
frxReport1.PrepareReport;
frxPDFExport1.FileName := 'c:\Users\Public\Desktop\test.pdf';
frxReport1.Export(frxPDFExport1);
end;
في امان اللهRE: تصدير fastreport الىpdf وانشاء مجلد ووضع الملف فيه - h-farid - 08-04-2016
و عليكم السلام و رحمة الله
جرب ما يلي :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
path: string;
begin
path := GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + 'مجلد';
if not DirectoryExists(path) then
MKdir(path);
frxReport1.PrepareReport;
frxPDFExport1.FileName := path + '\test.pdf';
frxReport1.Export(frxPDFExport1);
end;
RE: تصدير fastreport الىpdf وانشاء مجلد ووضع الملف فيه - wadoud - 09-04-2016
بارك الله فيك أستاذنا الكريم
لقد اشتغل الكود على التمام , أما وأنك أبدعت الجواب فأتم الشطر الثاني منه ليكون خيرك تاما كاملا غير ناقص
كيف أضيف التاريخ الحالى لاسم الملف ؟ ليكن على هذا الشكل مثلا
09.04.2016
حاولت ولكنني لم أفلح اشكرك مرة اخرى
RE: تصدير fastreport الىpdf وانشاء مجلد ووضع الملف فيه - h-farid - 09-04-2016
و فيك فليبارك الله.
بالنسبة لاضافة التاريخ لاسم الملف, فهذه أسهل من تلك!
PHP كود :
frxPDFExport1.FileName := path + '\test-' + (formatdatetime( 'dd mm yyyy', date ) + ' - ' + formatdatetime( 'hh mm', time )) + '.pdf';
لاحظ ما يلي :
-اضفت لك التاريخ و الوقت لتعم الفائدة
-عند استخدام التاريخ أو الوقت في اسماء الملفات عليك الأخذ بالحسبان الحروف الخاصة التي تستعمل في فصل أجزاء التاريخ و تمنع في أسماء الملفات و المجلدات, مثل : / أو النقطة (.) و التي قد تغير لاحقة الملف
RE: تصدير fastreport الىpdf وانشاء مجلد ووضع الملف فيه - wadoud - 09-04-2016
السلام عليكم
أشكرك أخي فريد, لقد كنت كريما أسأل الله أن يجزيك عنا كل خير.