IB6 Backup/Restore aus Programm (D5) heraus (über BDE)

Hallo,

ich muss die Möglichkeit schaffen, aus meinem Anwendungsprogramm heraus ein Backup-/Restore-Lauf zu starten. Wie gehe ich dabei vor und welche Funktionen stehen mir dafür zur Verfügung? <br>
Der direkte Start der IBConsole soll nicht erfolgen müssen.

Gruß, Heike

[Andreas Kosch]

Hallo,

in diesem Fall würde ich für diese Funktionen zur den IBX-Komponenten <b> TIBBackupService</b> und <b>TIBRestoreService</b> greifen:

Backup:
<pre>
procedure TForm1.ButtonBackupClick(Sender: TObject);
begin
StatusBar1.SimpleText := 'Backup läuft....';
with IBBackupService1 do
begin
Active := True;
Verbose := True;
BackupFile.Add(EditGBK.Text);
DatabaseName := EditGDB.Text;
ServiceStart;
while not Eof do
begin
MemoLog.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
Active := False;
end;
StatusBar1.SimpleText := '';
end;
</pre>
Restore:
<pre>
procedure TForm1.ButtonRestoreClick(Sender: TObject);
begin
with IBRestoreService1 do
begin
Active := True;
Verbose := True;
BackupFile.Add(EditGBK.Text);
DatabaseName.Add(EditGDB.Text);
StatusBar1.SimpleText := 'Restore läuft....';
ServiceStart;
while not Eof do
begin
MemoLog.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
Active := False;
end;
StatusBar1.SimpleText := '';
end;
</pre>
Wenn die IBX-Komponenten nicht in Frage kommen, kann das InterBase-Tool <b>gbak.exe</b> vom eigenen Programm aus gestartet werden

Danke!

Gruß, Heik