Hola a todos.
Ya tengo practicamente acabada mi nueva aplicacion pero para finalizar necesito que determinado usuario pueda realizar copias de seguridad de toda la base de datos IBX. He estado mirando en la ayuda de D7 y he encontrado lo siguiente:
Código Delphi
[-]
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;
Se realiza con un componente llamado IBBackupService que viene integrado en Delphi 7. Pero no me gusta la implementacion. ¿Alguien me puede echar un cable? Muchas gracias.