IBRestoreService (erro)

Delphi

21/01/2005

Programadores amigos,

Fiz um modulo de backup/restore em meu sistema. A rotina para ´IBBackupService´ está perfeita.
Mas ao tentar utilizar o ´IBRestoreService´ no modo padrão como já descritos aqui em outros tópicos, aparece as seguintes mensagens:
--> ´Cannot perform operation -- service is not attached´. Então coloco ´IBRestoreService1.Attach´ e aparetemente resolve.

Logo após ao executar aparece outra mensagem:
--> ´requires both input and output filesnames´

Por favor, agradeço se puderem me ajudar com informações objetivas.

Estou utilizando os seguintes códigos:

IBRestoreService1.ServerName :=´C:\SISTEMA\DB\DB.GDB´
IBRestoreService1.Options :=[Replace, UseAllSpace];
IBRestoreService1.Params.Add(´user_name=´+FrmPrincipal.DBConexao.User);
IBRestoreService1.Params.Add(´password=´+FrmPrincipal.DBConexao.Password);

IBBackupService1.BackupFile.Clear;
IBRestoreService1.DatabaseName.Clear;

IBBackupService1.BackupFile.Add( ´C:\SISTEMA\BKP\DB.GBK´ );
IBRestoreService1.DatabaseName.Add(´C:\SISTEMA\DB\DB.GDB´);
IBBackupService1.Active := True;

IBRestoreService1.ServiceStart; //(o erro ocorre aqui)

While not IBRestoreService1.Eof do
Begin
Memo1.Lines.Add(IBRestoreService1.GetNextLine);
Application.ProcessMessages;
End;
IBRestoreService1.Active := False;
Memo1.Lines.Add(´**** FIM ****´);
.[size=9:67fad71156][/size:67fad71156][i:67fad71156][/i:67fad71156]


Isoft

Isoft

Curtidas 0
POSTAR