Fórum IBBackupService e IBRestoreService #206321

se eu não me engano encontrei um exemplo ou aki no site da revista ou no www.firebase.com.br
se tiver dificuldade de achar me manda um e-mail pelo assilva@pop.com.br q eu te envio, ok?

Olá Sanses.

Segue exemplos de Backup e Restore:

[i:2ccd032a22]procedure TForm1.Button1Click(Sender: TObject);
begin
with IBRestoreService1 do
begin
ServerName := ´Poulet´;
LoginPrompt := False;
Params.Add(´user_name=sysdba´);
Params.Add(´password=masterkey´);
Active := True;
try
Verbose := True;
Options := [Replace, UseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
DatabaseName.Add(´c:\interbase\tutorial\tutorial.gdb´);

BackupFile.Add(´c:\interbase\tutorial\backups\tutor5.gbk´);
ServiceStart;
While not Eof do
Memo1.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;

end;[/i:2ccd032a22]

Se você não quiser guardar os logs em um memo, você pode fazer como abaixo, porém note que é necessario manter a função GetNextLine.
Para o restore, também é necessário que não haja nenhuma conexão com o Banco de Dados.

[i:2ccd032a22]procedure TForm1.Button1Click(Sender: TObject);
begin
with IBRestoreService1 do
begin
ServerName := ´Poulet´;
LoginPrompt := False;
Params.Add(´user_name=sysdba´);
Params.Add(´password=masterkey´);
Active := True;
try
Verbose := True;
Options := [Replace, UseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
DatabaseName.Add(´c:\interbase\tutorial\tutorial.gdb´);

BackupFile.Add(´c:\interbase\tutorial\backups\tutor5.gbk´);
ServiceStart;
While not Eof do
GetNextLine;
finally
Active := False;
end;
end;

end;[/i:2ccd032a22]


Para Fazer o Backup:

[i:2ccd032a22]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;[/i:2ccd032a22]

Espero ter ajudado.