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:
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.