Backup mittels TIBBackupService funktioniert unter XE2 nicht mehr

**TheFrog**

Wir haben unsere Applikation von Delphi 7 auf XE 2 umgestellt. Unter Delphi 7 funktionierten die IBX-Komponenten bisher einwandfrei. Unter XE 2 habe ich jedoch Probleme mit TIBBackupService.

Ich dachte zuerst, dass es an FB 2.5 liegt, jedoch erhalte ich den gleichen Fehler auch, wenn ich eine FB 1.5 verwende. Wie gesagt unter Delphi 7 hat es noch funktioniert.

Hier mal der Code für den Backup:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.btnBackupDBClick(Sender: TObject);

var

  FBackupFile: string;

  IBBackup: TIBBackupService;

begin

  FBackupFile := GetBackupFileName;

  IBBackup := TIBBackupService.Create(nil);

  try

    IBBackup.Params.Add('user_name=SYSDBA');

    IBBackup.Params.Add('password=masterkey');

    IBBackup.Verbose := True;

    IBBackup.LoginPrompt := False;

    IBBackup.Active := True;

    IBBackup.DatabaseName := FIBDatabase.DatabaseName;

    IBBackup.BackupFile.Add(FBackupFile);

    IBBackup.ServiceStart;

  finally

    IBBackup.Active := False;

    IBBackup.Free;

  end;

end;

Der Absturz geschieht beim Setzen der Property Active auf True. Die Komponente stürzt mit einer access violation ab.

Hat irgendwer eine Ahnung, an was es liegen kann.

Danke im Voraus, Hans.

Backup mittels TIBBackupService funktioniert unter XE2 nicht mehr

Backup mittels TIBBackupService funktioniert unter XE2 nicht mehr

Forumregeln