Hallo zusammen,
ich habe es jetzt mit TIBBackupService gelößt. Allerdings würde mich mal interesieren, ob das so OK ist. Ich habe in verschiedenen Threads von Problemen mit der Interbase Kompo gelesen. Hier mal meine Code...
Delphi-Quellcode:
procedure TfDBSave.btnSaveTestClick(Sender: TObject);
var
FormCaption :
string;
begin
try
FormCaption := Caption;
Caption:= '
Backup läuft !';
try
with ibBackUpPSSecur
do
begin
ServerName:= '
LOCALHOST';
Params.Add('
user_name=SYSDBA');
Params.Add('
password=masterkey');
LoginPrompt := False;
Active:= True;
try
Verbose:= False;
Options:= [];
DataBaseName:= '
PSSecur';
BackupFile.Clear;
BackupFile.Add(edtExeName.Text+'
\PSSecurdat.bak');
ServiceStart;
finally
Active:= False;
end;
end;
finally
Caption:= FormCaption;
end;
finally
ibBackUpPSSecur.Active := False;
end;
end;
Gruß Jens