Архивация БД

← →
Igor_ © (2002-02-28 10:03) [0]

Хочу выполнить архивацию файла БД внешним архиватором
Отключаюсь от базы
DM.Database1.Close;
Архивирую её
s:="Base.gdb"; StrPcopy(qd_rar,"d:\Data\"); StrPcopy(pd_rar," a d:\arh\"+"base.rar "+s); ShellExecute(0, nil, "c:\program files\winrar\rar.exe", pd_rar,qd_rar, SW_SHOW);
Но дело в том, что архивация идет отдельным потоком, и когда я
пытаюсь открыть базу "после архивации"
while not DM.Database1.Connected do begin try DM.Database1.Open; except end;
-она судя по всему еще не началась т.к. архив не создаётся.
А если проходишь все в пошаговом режиме, то архив успевает создаться. Подскажите как поступить.

← →
EAlexander © (2002-02-28 10:05) [1]

Дождаться когда winrar отработает

← →
Igor_ © (2002-02-28 10:17) [2]

А как дождаться, как я узнаю, что он начал работать

Вставь архиватор в программу и не мучайся. http://www.ziptv.com/ - компонент поддерживающий все современные архиваторы.

Архивация БД Найти похожие ветки