1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

with IBBackupService1 do
  begin
    try
     Protocol:=Local;
     DatabaseName := Input;
     LoginPrompt := False;
     Params.Add('user_name='+edtBenutzer.text);
     Params.Add('password='+edtKennwort.text);
     LoginPrompt := False;
     Active := True;
     Output := Output + '\Backup_'+FormatDateTime('dd/mm/yy_hh_nn_ss', now)+'.gbk';
     log.Lines.Add('Starte Backup .....   '+DateTimeToStr(Now()));
     Verbose := True;
     BackupFile.Clear;
     BackupFile.Add(output);
     ServiceStart;
     Application.ProcessMessages;
     While not Eof do
     begin
     log.Lines.Add(GetNextLine);
     ProgressBar1.StepIt;
     end;
      log.Lines.delete(log.Lines.Count-1);
      log.Lines.Add('Backup erstellt.....');
      log.Lines.Add(' ');
    finally
      Active := False;
    end;
  end;