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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TfrmMain.menuBackupClick(Sender: TObject);
var
  Zielordner: String;
  wjahr, wmonat, wtag: word;
  slProtokoll: TStringList;
begin
  with dmBISaM_SQL do
  begin
    CloseDB;
    ZConnection1.Disconnect;
    IBBackupService1.ServerName := ZConnection1.HostName;
    Zielordner := 'C:\Backup';
    slProtokoll := TStringList.Create();
    if length(Zielordner) > 0 then
      with IBBackupService1 do
      begin
        DecodeDate(date, wjahr, wmonat, wtag);
        BackupFile.clear;
        Zielordner := Zielordner + '\' + Format('%0.4d', [wjahr]) + Format('%0.2d', [wmonat]) + Format('%0.2d', [wtag]) + '_BISAM_SQL.FBK';
        BackupFile.add(Zielordner);
        DatabaseName := ZConnection1.Database;
        attach;
        try
          ServiceStart;  // --> Abfrage Benutzername und Passwort kommt noch, danach Fehlermeldung
          while not eof do
            slProtokoll.add(getnextline);
          if Active = True then
            detach;
        except
          on E: Exception do
          begin;
            slProtokoll.Add(E.Message);
            showMessage(slProtokoll.text);
          end;
        end;
        ShowMessage(Format(rsBackupCompleted, [Zielordner, ServerName]));
        slProtokoll.Free;
        OpenDB;
      end;
  end;
end;