Hi,

Zitat von
Hansa:
Das unwichtige drumrum habe ich weggemacht. Wo ist da ein Fehler ? Momentan kommt der Fehler "Service not attached". Das wird aber wohl an meiner Fummelei im
OI liegen. 8) Wie gesagt vorher kam entweder "
DB not open" oder "
DB is in use".
In dem Fall solltest Du mal ein Attach versuchen:
Code:
try
Attach; //hier
Verbose := True;
BackupFile.Clear;
BackupFile.Text := DBgbk;
DatabaseName.Text := DBgdb;
ServiceStart;
finally
Ich habe hier gerdae keine Möglichkeit das nachzustellen, aber Du musst den Backup und Restore-Service erst mal mit der
DB verbinden (Attach), Detach nicht vergessen!
hier mal der code aus meinem Tutorial:
http://www.delphi-tutorials.de/Tutor...2_tutorial.zip
Delphi-Quellcode:
with IBBackupService1 do
begin
if Active then
Detach;
BackupFile.Clear;
BackupFile.Add(FilePath+'backup.gbk');
DatabaseName:=FilePath+'db1.gdb';
Attach;
Screen.Cursor:=crSQLWait;
lblService.Caption:='Service is running';
try
ServiceStart;
while isServiceRunning do
begin
Application.ProcessMessages;
end;
finally
Application.ProcessMessages;
lblService.Caption:='Service finished';
Detach;
Screen.Cursor:=crDefault;
end;
end;