تصدير fastreport الىpdf وانشاء مجلد ووضع الملف فيه

[h-farid]

و عليكم السلام و رحمة الله
جرب ما يلي :

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;