Кто-нибудь пользовался IBBackupService?

← →
pavel_guzhanov © (2006-10-04 11:02) [0]

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

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

IBBackupService1.Active:=true;

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

← →
Sergey13 © (2006-10-04 11:07) [1]

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

← →
pavel_guzhanov © (2006-10-04 11:15) [2]

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

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

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

← →
Sergey13 © (2006-10-04 11:22) [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;

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

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

Кто-нибудь пользовался IBBackupService? Найти похожие ветки