08-04-2016, 04:18 PM
السلام عليكم أسال الله ان تكونوا بخير وعافية
هدفي هو كالتالى
اولا انشاء مجلد في المكتب إن لم يكن موجودا واذا كان المجلد موجود فلا داع لانشائه.
ثانيا تصدير ملف fastreport الى pdf الى المجلد أعلاه يحمل الى جانب الاسم تاريخ اليوم .
عندي محاولتين الاولى في انشاء المجلد وهي كالتالي:
المحاولة الثانية تصدير الملف ولم اعرف كيف ان اضيف له التاريخ الى جانب الاسم و كيف أجعله في المجلد اعلاه فقط تمكنت من انشائه في المكتب كالتالى
هدفي هو كالتالى
اولا انشاء مجلد في المكتب إن لم يكن موجودا واذا كان المجلد موجود فلا داع لانشائه.
ثانيا تصدير ملف 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;
في امان الله