| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кто-нибудь пользовался IBBackupService? [D7, XP]

pavel_guzhanov ©   (2006-10-04 11:02:00) 

Попытался использовать этот компонент для бекапирования базы данных InterBase. Установил ему свойства:
BackupFile -  полный путь  к файлу, который должен быть резервным.
DataBaseName - полный путь к файлу БД, который надо бекапить
params - указал имя пользователя и пароль
Protocol - TCP
ServerName - localhost

Остальные свойства по умолчанию. в программе только одна строка:

  IBBackupService1.Active:=true;

программа запускается, не виснет, если я закрываю окно, то все закрывается. Но файл Backup не создается :0((. Попробовал посмотреть в хелпе, но получил сообщение, что данный раздел справки не существует. Подскажите, может быть я не поставил еще какое-нибудь нужное свойство? Или, может быть есть другая причина? Подскажите...

---

pavel_guzhanov   (2006-10-04 11:54:00) [1]

Все, разобрался, заработало.
> Sergey13  
- спасибо за пример. Изначально я не делал ServiceStart, а потом
не надо было указывать в BackupFile localhost. Теперь все работает, спасибо за помощь!

---

pavel_guzhanov   (2006-10-04 11:37:00) [2]

получил в мемо вот такие сообщения:

gbak: readied database localhost:d:\base_pr.gdb for backup
gbak: creating file localhost:D:\base_pr.gbk
gbak: cannot open backup file localhost:D:\base_pr.gbk
gbak: Exiting before completion due to errors

не понятно, почему не может открыться файл бекапа, его что, надо создавать заранее? Если я подключаюсь к базе IBExpert'ом и делаю бекап с его помощью, то все работает нормально... а ведь он использует тот же gbak

---

Sergey13   (2006-10-04 11:22:00) [3]

This example shows a component that backs up a database with the click of a button.  The second example shows how to back up a database to multiple files.

procedure TForm1.Button1Click(Sender: TObject);
begin
with IBBackupService1 do
 begin
   ServerName := 'Poulet';
   LoginPrompt := False;
   Params.Add('user_name=sysdba');
   Params.Add('password=masterkey');
   Active := True;
   try
     Verbose := True;
     Options := [NonTransportable, IgnoreLimbo];
     DatabaseName := 'c:\interbase\examples\database\employee.gdb';
     BackupFile.Add('c:\temp\employee1.gbk');

     ServiceStart;
     While not Eof do
       Memo1.Lines.Add(GetNextLine);
   finally
     Active := False;
   end;
 end;

end;

To back up a database to multiple files:

procedure TForm1.Button2Click(Sender: TObject);
begin
 with IBBackupService1 do
 begin
   ServerName := 'Poulet';
   LoginPrompt := False;
   Params.Add('user_name=sysdba');
   Params.Add('password=masterkey');
   Active := True;
   try
     Verbose := True;
     Options := [MetadataOnly, NoGarbageCollection];
     DatabaseName := 'c:\interbase\examples\database\employee.gdb';
      BackupFile.Add('c:\temp\e1.gbk = 2048');

     BackupFile.Add('c:\temp\e2.gbk' = 4096);
     BackupFile.Add('c:\temp\e3.gbk'); ServiceStart;
     While not Eof do
       Memo1.Lines.Add(GetNextLine);
   finally
     Active := False;
   end;
 end;
end;

---

pavel_guzhanov   (2006-10-04 11:15:00) [4]

> А BackupFile не в сеть указывает?

пробовал указать BackupFile 'D:\base.gbk', пробовал 'Localhost:d:\Base.gbk'

Все равно, файл бекапа не появляется. Кстати, свойства BackupFile и DataBaseName надо указывать с кавычками или без?

---

Sergey13   (2006-10-04 11:07:00) [5]

А BackupFile не в сеть указывает?

---

Наверх