IBBackUpService ve IBRestoreService bileşenleriyle Inteerbase/Firebird Veritabanını kolayca yedekleyebilir aldığımız Geri yükleyebiliriz.

Öncelikle her iki bileşen için  kullanacağımız özellikleri bir procedure tanımlayalım. Procedremiz aşağıdaki gibi tanımlayalım.

procedure TForm1.OnAyarlar(Service: TIBCustomService);
begin
  with Service do
  begin
    Active := False;
     ServerName :='localhost'; {*pc'nin adı veya ip  adresi. Ağdaki ve ya kendi  pc'niz olabilir. Kendi bilgisayarım olduğu için localhost yazdım*}
    Protocol :=TCP; {*Basğlantı protokol tipi. Diğer seçenekler için    Bileşeni seçip Object Inspectordan bakabilirsiniz.*}
    LoginPrompt := False; {* Şifreyi biz gireceğimiz için False Yapıyoruz.*}
    Params.Clear; // Params özelliğini tyemizle
    Params.Add('user_name=' +'SYSDBA'); //SYSDBA=kullanıcı adı
    Params.Add('password=' + 'masterkey'); //masterkey=Şifre
  end; //with
  // ProgressBar Özelliklerini ayarla
  ProgressBar1.Min:=0;
  ProgressBar1.Max:=10;
  ProgressBar1.Position:=ProgressBar1.Min;
  Panel1.Show;
  application.ProcessMessages;
end;

 ben formumu aşağıdaki şekilde tasarladım. Sizde keyfinize göre formunuzu tasarlayın. Formunuza birer IBBackupService, IBRestoreService, OpenDialog, PageControl (iki tab ekleyin), Panel, ProgressBar,  7 Label, 4 Edit ve iki button ekleyin.



4 Editin OnClick Olayına aşağıdaki ortak kodu yazın.
if opendialog1.Execute then
(sender as tedit).Text:=opendialog1.FileName;

IBBackUpService
BackUp Buttonunun OnClick olayına aşağıdaki kodu yazım. Yedekleme işlemini test edebilirsiniz.
with IBBackupService1 do
  begin
  //procedureyi çağır.
    OnAyarlar(IBBackupService1);
//PrograssBar İçin Gerekli
    Verbose := True;
//yedeklenecek veritanaı yolu
    DatabaseName :=Edit1.text;
    BackupFile.Clear;
{* yedeklemenin yapılacağı konum ve yedek dosyasının adı. ikinci parametre olan =2048 sanırım yedekleme yapılırken verinin kaçar byte olarak kopyalanacağını belirliyor. *}
    BackupFile.Add(Edit2.text+' =2048');
     try
      Active := True;
//      yedeklemeye başla
      ServiceStart;
      while not EOF do
              Begin
//yedekleme durumunu labela yaz
     Label5.Caption:=GetNextLine;
       {*Progresbar özelliklerini ayarla*}
     if ProgressBar1.Position=ProgressBar1.Max then
     ProgressBar1.Position:=0;
     ProgressBar1.Position:=ProgressBar1.Position+1;
     application.ProcessMessages;
End;
    finally
      Active := False;
      Panel1.Hide;
    end; //try
  end; //with
Options Özellikleri
IgnoreChecksum > Veritabanı yedeklenirken hata oluşması sırasında oluşabilecek hataları gözardı  eder.

IgnoreLimbo > Belirsizlik Durumda Transactionları gözardı  eder.
MetadataOnly > Kayıtları yedek almayıp sadece veritabanını yedekler.
NoGarbageCollection > Silinmiş kayıtlarıda yedekler.
NonTransportable > daha hızlı yedekleme yapar ancak yedek başka platformlarda restore edilmez.

IBRestoreService
Restore buttonunun OnClick olayına aşağıdaki kodu yazın.
with IBRestoreService1 do
  begin
  //procedureyi çağır.
    OnAyarlar(IBRestoreService1);
//PrograssBar İçin Gerekli
    Verbose := True;
{* Restore ederken Veritabanının PageeSize
özelliğini ayarla. farklı bir seçeneği seçebilirsiniiz*}
    Pagesize:=2048;
//eski veritabanını sil
    Options := [Replace];
    //yedeklenecek veritanaı yolu
DatabaseName.Clear;
    DatabaseName.Add(Edit4.text);
    BackupFile.Clear;
{* yedeklemenin yapılacağı konum ve yedek dosyasının adı. *}
BackupFile.Add(Edit3.text);
     try
      Active := True;
//      yedeklemeye başla
      ServiceStart;
      while not EOF do
              Begin
//yedekleme durumunu labela yaz
     Label5.Caption:=GetNextLine;
       {*Progresbar özelliklerini ayarla*}
     if ProgressBar1.Position=ProgressBar1.Max then
     ProgressBar1.Position:=0;
     ProgressBar1.Position:=ProgressBar1.Position+1;
     application.ProcessMessages;
              End;
    finally
      Active := False;
      Panel1.Hide;
    end; //try
  end; //with

Options Özellikleri
DeactivateIndexes > İndexleri tekrar oluşturmaz.
NoValidityCheck > kısıtlamaları oluşturmaz.
Replace > Restore edilen yerde veritabanı varsa üstüne yazar

Merhaba.Evet Firebird veya interbase veritabanlarında Backup Restore yaptıgın zaman database deki tmp ler silinir.Boş ve gereksiz kayıtlar silinir.Bu da vt nin boyutunun küçülmesine neden olur.Bir sorun olmaz yani. Mesela ben büyük bir hastanenin bilgi işlem yöneticisiyim.1010 MB olan vt yi backup restore yapınca 907 MB düşüyor. Ama veri kaybım yok.Rahatça kullanabilirsin.Kolay gelsinn

bu hata ile hiç bir şey anlaşılmıyor. projeyi delphi dışında çalıştırıp verdiği hatayı yazar mısınız?

Selam arkadaşlar,

Yeni bir konu açmak istemedim. Benim sorunum Yedekleme işlemini yapıyor ama Geri Yükleme işlemi sırasında bir hata veriyor. Verdiği hata,



Forumda paylaşılan "Adres Defteri" programını delphide açıp çalıştırıyorum çok güzel çalışıyor. Yani IB bileşenlerini güncellememe gerek yok sanırım.

Aşağıda yazdığım kodlar bulunmaktadır.

Yardımlarınızı bekliyorum. Şimdiden teşekkürler...


BackUp Kodları:

IBBackupService1.Params.Clear;
 IBBackupService1.Params.Add(dm.dbsTaha.Params.Strings[0]);
 IBBackupService1.Params.Add(dm.dbsTaha.Params.Strings[1]);
 IBBackupService1.BackupFile.Clear;
 IBBackupService1.BackupFile.Add('C:\Deneme\Veri Yedek\taha.gbk =2048');
 IBBackupService1.DatabaseName:=Label1.Caption; {Label1.Caption:='C:\Deneme\Veri\TAHA.FDB'}
 Dm.dstBurscu.Close;
 Dm.dstBurslar.Close;
 Dm.dbsTaha.Connected:=False;
 with IBBackupService1 do
   begin
  Active := True;
     try
       ServiceStart;

     finally
       Active := False;
       Application.MessageBox('İşlem Tamam','Uyarı',MB_OK);
     end;
   end;
 Dm.dbsTaha.Connected:=True;
 Dm.dstBurscu.Open;
 Dm.dstBurslar.Open;
ReStore Kodları;

IBRestoreService1.Params.Clear;
 IBRestoreService1.Params.Add(Dm.dbsTaha.Params.Strings[0]);
 IBRestoreService1.Params.Add(Dm.dbsTaha.Params.Strings[1]);
 IBRestoreService1.BackupFile.Clear;
 IBRestoreService1.BackupFile.Add('C:\Deneme\Veri Yedek\taha.gbk');
 IBRestoreService1.DatabaseName.Add('C:\Deneme\Veri\TAHA.FDB');
 Dm.dstBurscu.Close;
 Dm.dstBurslar.Close;
 Dm.dbsTaha.Connected:=False;
 with IBRestoreService1 do
   begin
  Active := True;
     try
       ServiceStart;

     finally
       Active := False;
       Application.MessageBox('İşlem Tamam','Uyarı',MB_OK);
     end;
   end;
 Dm.dbsTaha.Connected:=True;
 Dm.dstBurscu.Open;
 Dm.dstBurslar.Open;

1.Mesajındaki sorunu çözmek içiin:
IBRestoreService1.DatabaseName.Add('C:\Deneme\Veri\TAHA.FDB');
kodundan aşağıdaki kodu yaz
IBRestoreService1.DatabaseName.Clear;
2.Mesajındaki sorun ise veritabannın kullanımda olmasından kaynaklanıyor

Yedeklenen veritabanı ile kullandığıız Firebird sürümü uyuşmuyor. 2.1 ile yedekkleyip, 1.5 ile geri yüklemeye çalıştığınızda böyle bir hata alabilirsiniz.