Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Архивация БД 


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]

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



sniknik   (2002-02-28 10:34) [3]

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




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
1-90925           User_                 2002-03-14 08:50  2002.03.28  
Есть TListBox. Есть 2 строки в нем.


1-90957           AVT                   2002-03-13 17:54  2002.03.28  
Как поднять окно своего приложения поверх всех окон в win2k.


3-90794           Vks                   2002-02-26 05:29  2002.03.28  
опять Paradox


1-90944           Voldemar              2002-03-14 15:12  2002.03.28  
Turbo Professional...


1-90821           Alev                  2002-03-08 14:52  2002.03.28  
Как можно создать папку?