Zitat von
theomega:
...Gebackupt habe ich über den Komponenten TIBBackupService (
Standart von Delphi 7 Enterprise) via diesem Code:
... Eine Fehlerursache könnte sein: evtl ist TIBBackupService nicht mit Firebird 1.5 kompatible.
Mann o Mann,
TIBBackupService ist IBX. Also die
DB-Zugriffskomponenten von Borland. Die werden einen Teufel tun, ihre Konkurrenz zu stärken. 8) Mit
FB 1.0 gabs damit schon Ärger. Mit
FB 1.5 traue ich mich damit an eine
DB nicht mehr dran. Ich kann nur sagen, daß es mit FIBplus als Ersatz für IBX immer funktioniert hat. Und zwar so :
Delphi-Quellcode:
procedure TfrmBackup.Button1Click(Sender: TObject);
begin
CloseB.Enabled := False;
StatusBox.Lines.Clear;
with pFIBBackupService1 do begin
ServerName := ServerE.Text;
LoginPrompt := False;
Params.Add('user_name='+UserE.Text);
Params.Add('password='+PasswordE.Text);
Active := True;
try
Verbose := True;
Options := [NonTransportable, IgnoreLimbo];
DatabaseName := DBNameE.Text;
BackupFile.Clear;
BackupFile.Add(BackupE.Text);
ServiceStart;
finally
Active := False;
ShowMessage ('lokale Datensicherung beendet !'#10#13'Die Daten sollten aber noch auf ein externes Medium kopiert werden!');
end;
end;
CloseB.Enabled := True;
end;