كيف ارشفة قاعدة بيانات ابسوليت - نسخة قابلة للطباعة +- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum) +-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3) +--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15) +--- الموضوع : كيف ارشفة قاعدة بيانات ابسوليت (/showthread.php?tid=7798)

كيف ارشفة قاعدة بيانات ابسوليت - fraydoo1 - 05-05-2016 سلام عليكم  مثلا برنامج فواتير في نهاية السنة كيف نقوم بارشفة بيانات الجدول وافراغ الجداول لتسجيل الفواتير السنة الجديدة.  مع كامل احتراماتي RE: ارشفة قاعدة بيانات ابسوليت - said-softdz - 07-05-2016 استعمل مكون zlib ياتي في موقع aboluted database بعد تركيبه with zip do begin FileName:= //صع مسار المجلد أو القائمة '.zip'; BaseDir := // هنا صع مسار الفاعدة التي تريد ضغطها;; // Create a new archive file OpenArchive(fmCreate); ; AddFiles('*.*'); // Test all files and directories in the archive try TestFiles('*.*'); except MessageDlg(' Erreur à aparu dans le dossier ',mtError,[mbOk],0); end; // Close the archive CloseArchive; end;