Firebird Yedekleme ve Geri Yükleme

[MuhammedYasir]

Yedeklemeyi şu şekilde yapmışım:

procedure TFYedekleme.BitBtn1Click(Sender: TObject);
var
 s: string;
 IniFile: TIniFile;
 yer: string;
begin
 IBBackupService1 := TIBBackupService.Create(nil);
 ForceDirectories(OnlineEdit2.Text);
 IniFile := TIniFile.Create(ExtractFileDir(Application.ExeName) +
   '\DataBase.ini');
 if IniFile.ReadString(FAna.Sirket, 'Adres', '') <> '' then
   yer := IniFile.ReadString(FAna.Sirket, 'Adres', '');
 s := OnlineEdit2.Text;
 if s[length(s)] <> '\' then
   s := s + '\';
 if FileExists(s + EditDosyaAdi.Text + '.gbk') then
 begin
   ShowMessage('Bu dosya ismi ile yedekleme yapılmış, lütfen dosya ismini değiştiriniz.')
     
 end
 else
 begin
   Memo1.Lines.Add('YEDEKLEME BAŞLADI !..');
   with IBBackupService1 do
   begin
     LoginPrompt := False;
     Params.Add('user_name=' + IniFile.ReadString(FAna.Sirket,
       'User', ''));
     Params.Add('password=' + IniFile.ReadString(FAna.Sirket,
       'Sifre', ''));

     Attach;
     try
       Verbose := True;
       DatabaseName := yer;
       if (OnlineEdit2.Text <> 'C:\') and (OnlineEdit2.Text <> 'c:\') and
         (OnlineEdit2.Text <> 'A:\') and (OnlineEdit2.Text <> 'a:\') and
         (OnlineEdit2.Text <> 'B:\') and (OnlineEdit2.Text <> 'b:\') and
         (OnlineEdit2.Text <> 'D:\') and (OnlineEdit2.Text <> 'd:\') and
         (OnlineEdit2.Text <> 'E:\') and (OnlineEdit2.Text <> 'e:\') and
         (OnlineEdit2.Text <> 'F:\') and (OnlineEdit2.Text <> 'f:\') then
         BackupFile.Add(OnlineEdit2.Text + '\' + EditDosyaAdi.Text + '.gbk')
       else
         BackupFile.Add(OnlineEdit2.Text + EditDosyaAdi.Text + '.gbk');

       ServiceStart;
       Memo1.Lines.Clear;
       Memo1.Lines.Add('YEDEKLEME BAŞLADI !..');
       While not Eof do
         Memo1.Lines.Add(GetNextLine);
     finally
       Active := False;
       Memo1.Lines.Add(s + EditDosyaAdi.Text + '.gbk');
       Memo1.Lines.Add('YEDEKLEME BAŞARI İLE TAMAMLANDI !..');
     end;
   end;
 end;
 IBBackupService1.Free;
end;

Geri yüklemeyi de şu şekilde yapmışım:

procedure TFYedekleme.BitBtn3Click(Sender: TObject);
var
 IniFile: TIniFile;
 yer: string;
begin
 IBRestoreService1 := TIBRestoreService.Create(nil);
 if MessageBox(handle, 'Geri yüklemek istediğinizden emin misiniz?', 'Uyarı',
   MB_YESNO) = mrYes then
 begin
   Memo2.Lines.Add('GERİ YÜKLEME BAŞLADI !..');

   DMVeri.IBVeri.Close;
   DMVeri.IBTVeri.Active := False;
   IniFile := TIniFile.Create(ExtractFileDir(Application.ExeName) +
     '\DataBase.ini');
   with IBRestoreService1 do
   begin

     LoginPrompt := False;
     Options := [Replace, CreateNewDB];
     Params.Add('user_name=' + IniFile.ReadString(FLikaPro.Sirket,
       'User', ''));
     Params.Add('password=' + IniFile.ReadString(FLikaPro.Sirket,
       'Sifre', ''));
     Params.Add('DEFAULT CHARACTER SET WIN1254');
     Attach;
     try
       Verbose := True;
       PageSize := 16384;
       BackupFile.Add(LabeledEdit1.Text);
       if IniFile.ReadString(FLikaPro.Sirket, 'Adres', '') <> '' then
         yer := IniFile.ReadString(FLikaPro.Sirket, 'Adres', '');

       DatabaseName.Add(yer);
       ServiceStart;
       Memo2.Lines.Clear;
       Memo2.Lines.Add('GERİ YÜKLEME BAŞLADI !..');
       While not Eof do
         Memo2.Lines.Add(GetNextLine);
     finally
       if Active then
         Detach;
       Memo2.Lines.Add('GERİ YÜKLEME BAŞARI İLE TAMAMLANDI !..'); 

     end;
   end;
 end;
 IBRestoreService1.Free;
end;