Backup- und Restoretool für Interbase

[hstreicher]

Delphi
die IBX Komponenten bieten eine Sicherungs und Rücksicherungsfunktion

Delphi-Quellcode:

  Try
      With self.IBBackupService1 Do
      Begin
         ServerName  := ServerName;
         protocol    := tcp;
         LoginPrompt := False;
         Params.Add('user_name=sysdba');
         Params.Add('password=' + serverpasswort);
         Options     := []; // [ignorelimbo, ignorechecksums];
      End; //With
      self.IBBackupService1.Active := True;
      self.IBBackupService1.ServiceStart;
      While Not self.IBBackupService1.EOF Do
      Begin
         self.memo1.Lines.add(self.IBBackupService1.GetNextLine);
         application.ProcessMessages;
      End;//while
   Finally
      self.IBBackupService1.Active := False;
   End;//try