[firebase-br] Backup no Delphi com FB 1.5?

[Exclaim Tecnologia]

Falei besteira, desculpa, agora que eu vi o true antes, deixa eu dar uma
olhada aqui, que compo0nente vc ta usando??? eu uso o da ibx

----- Original Message -----
From: "Exclaim Tecnologia" <exclaimtecnologia em yahoo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Wednesday, June 08, 2005 8:51 PM
Subject: Re: [firebase-br] Backup no Delphi com FB 1.5?


> Active:=False;
>
> coloca  true
> ----- Original Message -----
> From: "Zottis" <zottis em irapida.com.br>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Wednesday, June 08, 2005 8:26 AM
> Subject: [firebase-br] Backup no Delphi com FB 1.5?
>
>
>
> Sei que a lista não é de Delphi, mas não consigo resolver.
>  Trabalho com o Delphi7 e FB 1.5 e estou com um problema.
>
> Criei a rotina:
> Fiz esta rotina mas não faz o backup.
> Alguém poderia me ajudar?
>
> Valeu.
>
> PS ele traz a mensagem de Backup realizado com sucesso, mas não cria o
> arquivo de backup.
>
> Procedure TPrincipal.FazerBackup;
> var
>   ini:TiniFile;
>   CaminhoBackUp: string;
> begin
>   try
>   DadosZce.BackUp.Active:= False;
>     ini:=TiniFile.Create('C:\Arquivos de programas\Zottis\Config.zce');
>         CaminhoBackUp :=
> ini.ReadString('Backup','BackupPath',CaminhoBackup);
>         DadosZce.BackUp.DatabaseName    :=
Dadoszce.IBDatabase.DatabaseName;
>         DadosZce.Backup.BackupFile.Clear;
>         DadosZce.Backup.BackupFile.Add(ChangeFileExt(CaminhoBackup + '\' +
> FormatDateTime('yyyymmddnnhh', now), '.zbk'));
>         caminhofinal  :=  dadoszce.Backup.BackupFile.Text;
>           ForceDirectories(CaminhoBackUp);
>           DadosZce.Backup.Active := true;
>           DadosZce.Backup.ServiceStart;
>           DadosZce.Backup.Active := false;
>           ini.free;
>           MessageDlg('Backup realizado com sucesso', mtInformation,
[mbOK],
> 0);
>           except
>           MessageDlg('Falha ao realizar o Backup', mtError, [mbOK], 0);
>           end;
> end;
>
> e chamo assim:
>
> procedure TPrincipal.FormCloseQuery(Sender: TObject;
>   var CanClose: Boolean);
> begin
> if autoiniciar1.Checked =true then
> begin
> MessageBeep(32);
> if (MessageDlg(' Deseja Fazer o BackUp ?'+#13+#10+'(Altamente
recomendável)'
> , mtConfirmation, [mbYes,mbNo], 0) = mrYes) then
> begin
> FazerBackup;
> canclose:=True;
>  application.Terminate;
> end else
> canclose:=True;
> end else
> canclose:=True;
> end;
>
>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>
>
>
>
> ____________________________________________________
> Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa



	
	
		
____________________________________________________
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br