[Мариюшка]

стоит задача в Delphi создавать резервные копии БД (на интербейсе) и последующее восстановление (аналог gbak.exe но приложением, а не консольное). есть ли в делфи компонент, позволяющий осуществить эти действия или придется писать самой? если писать, но какой компонент лучше взять за родительский и как вообще это осуществить?
Заранее большое спасибо!

[xchrom]

обрати внимание на компоненты jcl для interbase
JvUIBBackup
JvUIBRestore
видимо это ты ищешь... хотя думается мне что они пользуют тот же gbak

[lmikle]

Вообще, для интербейза достаточно откопировать файл.
Правда, для этого лучше "положть" сервак, но это, в принципе, не обязательно.

[Мариюшка]

Сообщение от xchrom

хотя думается мне что они пользуют тот же gbak

да мне не принципиально, чтобы было не gbak, просто он консольный, а надо бы, чтоб пользователю это делать было удобно))
Большое спасибо за помощь!!!
вот только... у нас тут Delphi6. в нем нашла IBBackupService на вкладке InterBase Admin. оно ли это? видимо, оно, потому что другого всерн нет))

[Мариюшка]

Сообщение от lmikle

Вообще, для интербейза достаточно откопировать файл.

интербейс эт пока... а должно быть в принципе без разницы, какая база... но эт уже дело десятое))

[xchrom]

Сообщение от Мариюшка

да мне не принципиально, чтобы было не gbak, просто он консольный, а надо бы, чтоб пользователю это делать было удобно))
Большое спасибо за помощь!!!
вот только... у нас тут Delphi6. в нем нашла IBBackupService на вкладке InterBase Admin. оно ли это? видимо, оно, потому что другого всерн нет))

эти компоненты из Jedi, для 6 delphi ставяться отдельно

[AlexSku]

Пример из справки (нужен unit IBServices).

TIBBackupService allows you to back up your database.

Код:

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;

[Мариюшка]

Большое спасибо! теперь буду реализовывать))