Backup
Pessoal, estou usando o componente IBBackup do Interbase para que meu aplicativo crie o backup do banco.
Coloquei o seguinte código:
begin
with DMSce.IBBackupService1 do begin
ServerName := FormPrincipal.MeuRegistro.ReadString(´Nome do Servidor´); //lê o nome do servidor lá no registro do windows
LoginPrompt := False;
Params.Add(´user_name=sysdba´);
Params.Add(´password=masterkey´);
Active := True;
Screen.Cursor := crHourGlass;
try
DatabaseName := FileListBox1.FileName; //nome do arq. que o usuário escolheu
BackupFile.Add (Edit1.Text); //nome que o usuário escreveu
ServiceStart;
While not Eof do
Memo1.Lines.Add(GetNextLine);
finally
Active := False;
Screen.Cursor := crDefault;
end;
end;
ShowMessage (´Backup finalizado com sucesso!´);
end;
Esse código funciona perfeitamente e cria o backup. O problema é o seguinte: Depois que peço para fazer um backup, se voltar a tela e quiser fazer outro backup ele dá erro ´...error size...´. Para conseguir fazer outro backup eu tenho que fechar o programa e entrar novamente.
Como posso resolver isso?
Coloquei o seguinte código:
begin
with DMSce.IBBackupService1 do begin
ServerName := FormPrincipal.MeuRegistro.ReadString(´Nome do Servidor´); //lê o nome do servidor lá no registro do windows
LoginPrompt := False;
Params.Add(´user_name=sysdba´);
Params.Add(´password=masterkey´);
Active := True;
Screen.Cursor := crHourGlass;
try
DatabaseName := FileListBox1.FileName; //nome do arq. que o usuário escolheu
BackupFile.Add (Edit1.Text); //nome que o usuário escreveu
ServiceStart;
While not Eof do
Memo1.Lines.Add(GetNextLine);
finally
Active := False;
Screen.Cursor := crDefault;
end;
end;
ShowMessage (´Backup finalizado com sucesso!´);
end;
Esse código funciona perfeitamente e cria o backup. O problema é o seguinte: Depois que peço para fazer um backup, se voltar a tela e quiser fazer outro backup ele dá erro ´...error size...´. Para conseguir fazer outro backup eu tenho que fechar o programa e entrar novamente.
Como posso resolver isso?
Barbara.michele
Curtidas 0