delphi4arab منتديات دلفي للعرب

ما هو الكود المستعمل للنسخ الإحتياطي لقواعد البيانات
مثلاً لديا قاعدتين وهما :
doc.db
fiche.db
المطلوب عندما نضغط على زر النسخ الإحتياطي يتم نسخ هذه الملفات إلى مجلد داخل برنامجي وليكن هذا المجلد إسمه Archive تكون هذه الملفات على هذا الشكل :
أي يضاف لكل ملف تاريخ النسخ مثلاً :
ملف doc.db بعد إتمام عملية النسخ يصبح doc02022009.db
و ملف fiche.db يصبح fiche02022009.db

ربما أكون قد وفقت في الطرح

لنسخ ملف استخدم CopyFile
http://www.delphi4arab.net/forum/showthread.php?tid=737
لمعرفة التاريخ استخدم Date
لتكتبه بشكل 02022009 استخدم FormatDateTime
حاول ان تكتب الكود بنفسك

هنالك طريقة جميلة و بسيطة تعتمد على مكون ZipForge (وهو مجاني للإستعمال الشخصي) ، نصنع به ملف zip يحتوي على كل الملفات المراد أرشفتها.

الموقع : http://www.componentace.com/download/dow...itionid=12

طريقة الإستعمال :

كود :
with ZipForge1 do
      begin
      FileName :=ExtractFilePath(application.exename)+'archive\'+'arch.'+FormatDateTime('dd.mm.yy',Date)+'.zip';
      // Create a new archive file
      OpenArchive(fmCreate);
      // Set path to folder with some text files to BaseDir
      BaseDir :=ExtractFilePath(application.ExeName);
      AddFiles('*.db');    // set filter
      CloseArchive;
      MessageDlg('L''archive '+QuotedStr(Zipforge1.FileName)+' a été créée avec succès.', mtInformation, [mbOK], 0);
      end;

مشكورين على تعاونكم معنا

بارك الله فيكم

medreg

محمد عبد العزيز

sandokhane

medreg

كمال المجاني