Fórum Ajuda com IBBACKUPSERVICE #498520
20/10/2014
0
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í?!?
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
Curtir tópico
+ 0
Responder
Posts
22/10/2014
Adilson Júnior
Resolvido!
Para quem se interessar, o problema era um conflito entre diferentes versões do Firebird rodando na máquina!
Para quem se interessar, o problema era um conflito entre diferentes versões do Firebird rodando na máquina!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)