ActiveDelphi

[gtramonte]

Boa Tarde Caros colegas! Alguém tem algum arquivo que explica sobre backup? Uso Delphi 7 e Firebird 1.5 preciso de um artigo que fale sobre como efetuar um backup e sobre como restaurar também. Agradeço muito quem puder me ajudar.

[johnny-walker]

Eis aí amigo:

http://www.devmedia.com.br/desenvolvendo-um-utilitario-de-backup-e-restore-para-banco-de-dados-interbase/12006


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[gtramonte]

Você tem o componente BackupFile?

[johnny-walker]

Amigo, não tem componente backupfiel, mas o que te passei utiliza o componente ibbackupservice do interbase, veja o vídeo abaixo que você vai compreender:

https://www.youtube.com/watch?v=8CeKW6vZlf4



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[gtramonte]

Johnny! Eu uso o Firebird 1.5 no Delphi 7 ok? O Interbase tem que estar instalado na minha maquina? Pq fiz do mesmo jeito que está no exemplo que vce enviou, porém da um erro interno.

[leo_cj]

Amigo, da uma olhada nesses links:

http://www.devmedia.com.br/sistema-completo-para-backup-restore-com-firebird-parte-i/4885
http://www.devmedia.com.br/sistema-completo-para-backup-restore-com-firebird-parte-ii/11716

[johnny-walker]

Não, mas você tem de ter a biblioteca do gds32.dll do firebird na sua aplicação.
Neste caso, você utiliza a gds32.dll de comparabilidade com o interbase e não do interbase.

No próprio instalador do firebird ele instala esta biblioteca.

Se o programa funciona em rede vai necessitar levar também esta biblioteca para cada aplicação cliente.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[gtramonte]

Colegas! Eu Fiz o exemplo certinho e quando mando executar o backup da esse erro:

EIBInterbaseError with message 'internal error'

[leo_cj]

Procure debugar o código para encontrar exatamente o ponto em que ocorre o erro, assim que encontrar, verifique se o componente que está dando o erro está devidamente configurado

[gtramonte]

Feito:

with IBBackupService1 do
begin
Attach;
DatabaseName := Edit1.Text;
BackupFile.Add(Edit2.Text);
Active := True;
ServiceStart;
ShowMessage('Backup realizado com sucesso');


O Erro acontece bem na execução da linha ServiceStart;

[johnny-walker]

Amigo, eu vou lhe enviar o exemplo que citei, veja que funciona perfeitamente.


Mande email por private message que lhe envio.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[gtramonte]

Recebeu meu email?

[johnny-walker]

Já te enviei amigo o link para você baixar.

Acrescente a dll gds32.dll da instalação do firebird.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[gtramonte]

esse email do yahoo é uma beleza. kkkk

[gtramonte]

Agora deu um erro BLOB ID ....