Fórum Backup FireBird #56150

 with IBBackupService1 do
      begin
        ServerName := servidor;
        LoginPrompt := snLogin;
        Params.Add(´user_name=´+usuario);
        Params.Add(´password=´+senha);
        Active := True;
        try
          Verbose := snVerbose;
          // Options :=[]; //Estas já foram setadas nos eventos OnClick dos CheckBoxes
          DatabaseName := arquivoBase;
          BackupFile.Clear;
          BackupFile.Add(arquivoBackup); // ARQUIVOBACKUP armazenado o caminho de onde salvar o arquivo 
          ServiceStart;
          RichEdit1.Lines.Add(´ * * * * * INICIANDO O BACKUP * * * * * ´);
          While not Eof do
            RichEdit1.Lines.Add(GetNextLine);
          RichEdit1.Lines.Add(´ * ´);
          RichEdit1.Lines.Add(´ * * * * * FIM DO BACKUP * * * * * ´);
          RichEdit1.Lines.Add(´ * ´);
          lblAviso.Caption := ´BACKUP realizado com sucesso!´;
        finally
          Active := False;
          btnBackup.Enabled := true;
        end;
      end;