IBRestoreService (erro)
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]
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
Curtidas 0