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

[Exclaim Tecnologia]

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