Firebird Yedekleme ve Geri Yükleme

[mcuyan]

Merhabalar. Ben FB Bckup ve Restore için FD bileşenlerini kullanıyorum. Kodlarımı alltadır. Restore işlemi de aynı mantıkla çalıştırabilirsiniz.. BCKup alıp Gün_ay_yıl şeklinde isimlendirdiğim için yukarıdaki değişkenler..

Bu arada Formunuza bir TFDIBBackup ve TFDIBRestore bileşeni eklemeniz gerekiyor.


 

  drm := copy(dm1.ib1.DatabaseName, 11, Length(dm1.ib1.DatabaseName) - 10);
   adres := copy(drm, 1, Length(drm) - 8);
   ad := copy(drm, Length(adres) + 1, 8);
   DecodeDate(Date, yil, ay, gun);
   DecodeTime(time, saat, dk, sn, ms);
   gun_ay_yil := IntToStr(yil) + IntToStr(ay) + IntToStr(gun);
   try
     sonuc := ShellWait('cmd.exe', PWideChar('/C ' + 'gfix -validate db\2013.snc -user sysdba -password masterkey'), '\', True, True, True, sonuc1);
     sonuc := ShellWait('cmd.exe', PWideChar('/C ' + 'gfix -kill db\2013.snc -user sysdba -password masterkey'), '\', True, True, True, sonuc1);
     sonuc := ShellWait('cmd.exe', PWideChar('/C ' + 'gfix -sweep db\2013.snc -user sysdba -password masterkey'), '\', True, True, True, sonuc1);
     // Burada bakımlar yapılıyor
   finally
     Sleep(50);
   end;

   FDPhysFBDriverLink1.DriverID := 'FB';
   FDPhysFBDriverLink1.VendorLib := GetCurrentDir() + '\fbclient.dll';
   Backup.UserName := 'SYSDBA';
   Backup.Password := 'masterkey';
   Backup.Database := adres + 'DB_ad_.FBD';
   Backup.Verbose := True;
   Backup.Host := 'localhost';
   Backup.BackupFiles.Clear;

   Backup.BackupFiles.Add(adres + gun_ay_yil + '.fbk');
   Backup.Backup;
   TRY
     zipFile(adres + gun_ay_yil + '.zip', adres + gun_ay_yil + '.fbk');
     FINALLY DeleteFile(adres + gun_ay_yil + '.fbk');

   END;