Ajuda com IBBACKUPSERVICE

Delphi

20/10/2014

Povo Delphiano,

Na falta de um bom programa para backups programados dos meus softwares, resolvi criar o meu próprio módulo de backup automático!
O problema é que no momento do Backup está ocorrendo a seguinte mensagem:

'connection rejected by remote interface'

Aqui o bloco onde eu processo isso:

Backup.LoginPrompt := False;
Backup.BufferSize := 3000;

Backup.BackupFile.Add(Registro.ReadString('Software', 'LocalBackup', 'Erro') + 'Banco_' +
FormatDateTime('dd-mm-yyyy', Date) + '_' + FormatDateTime('hh-mm-ss', Time) + '.fbk');
Backup.DatabaseName := Registro.ReadString('Software', 'LocalBanco', 'Local');
Backup.Params.Values['User_Name'] := Registro.ReadString('Software', 'Usuario', 'Usuario');
Backup.Params.Values['Password'] := Registro.ReadString('Software', 'Senha', 'Senha');
Backup.ServerName := Registro.ReadString('Software', 'Servidor', 'Servidor');

try
Backup.Active := True;
Backup.ServiceStart;

while not Backup.Eof do
begin
Memo1.Lines.Add(Backup.GetNextLine);
Application.ProcessMessages;
end;

Backup.Active := False;
Memo1.Lines.Add('Backup finalizado com sucesso...');
Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy', Date) + ' | ' + FormatDateTime('hh:mm:ss', Time));
Memo1.Lines.Add('');
Memo1.Lines.Add('Arquivo gerado:');
Memo1.Lines.Add(Backup.BackupFile.Strings[0]);
Memo1.Lines.Add('---------------------------------');
MessageDlg('Backup efetuado com sucesso!', mtInformation, [mbOk], 0);
except
Memo1.Lines.Add('Houve uma falha no backup...');
Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy', Date) + ' | ' + FormatDateTime('hh:mm:ss', Time));
Application.MessageBox('Falha ao efetuar o backup.', 'Help Desk', MB_OK + MB_ICONSTOP);
Memo1.Lines.Add('---------------------------------');
exit;
end;

Debugando o programa, o erro ocorre na linha -> Backup.Active := True;

Estou usando o Firebird 2.5 e, aparentemente, está tudo funcionando certo aqui!

Máquina com Windows 8.1 Professional!

Delphi XE6!

Ps.: Descarto erros nas configurações, pois o nome do banco está certo, o servidor como é local estou usando LOCALHOST (também tentei com o IP da minha máquina - 192.168.1.25/3050). A porta é a default do Firebird (3050). O nome do arquivo de backup também está correto (caminho e tudo mais). Achando que podia ser algum parâmetro, coloquei uns showmessage antes de passar os dados para o IBBACKUPSERVICE !!!

Alguém sabe se está faltando alguma outra coisa aí?!?
Adilson Júnior

Adilson Júnior

Curtidas 0

Respostas

Adilson Júnior

Adilson Júnior

20/10/2014

Resolvido!
Para quem se interessar, o problema era um conflito entre diferentes versões do Firebird rodando na máquina!
GOSTEI 0
POSTAR