архивация открытого документа

← →
Xmen (2012-02-05 21:04) [0]

Привет мастерам!.
Есть документ в Excelе нужно его архивировать при закрытие.
procedure TForm.ExcelWorkbook1Deactivate(Sender: TObject); begin path:= ExtractFilePath(Application.ExeName); ExecAndWait(path+"rar.exe"," a -r -ep1 text.rar temp\*",SW_HIDE); DM.dtsProject.Edit; TBlobField(DM.dtsProject.FieldByName("prodoc")).LoadFromFile(path+"text.rar"); DM.dtsProject.Post; DM.TR.CommitRetaining; end;
при анализе проблемы выяснил причину ручным методом
D:\Projects\temp\text.rar: Cannot open D:\Projects\temp\WorkDoc\text.xls
Процесс не может получить доступ к файлу, так как этот файл занят другим процессом.
Как можно архивировать папку если в нем есть активный документ или как с начало его закрыть а патом архивировать ?

← →
Забаненный (2012-02-05 21:26) [1]

открывай не монопольно

> Как можно архивировать папку если в нем есть активный документ
> или как с начало его закрыть а патом архивировать ?

а ТЗ что требует?

← →
Xmen (2012-02-05 21:36) [2]

Есть папка для каждого клиента (шаблоны бланков в ворде и экселе).
Открываю для каждого клиента и заполняю основной документ на экселе а остолное ворд файлы берут данные от эксел документа и при закрытие запускается этот код procedure TForm.ExcelWorkbook1Deactivate(Sender: TObject); Работаю с компонентами ExcelApplication. Интересный момент в том что архивация наченается до закрытия эксел документа и получается архив без основного документа из за того что он был открыт в процессе архивации.

← →
Забаненный (2012-02-05 22:01) [3]

это не ТЗ.

← →
QAZ (2012-02-06 10:24) [4]

а смысл рарить файл в десяток килобайт?

> Как можно архивировать папку если в нем есть активный документ

Я тоже задаюсь этим вопросом. Как вообще такое в голову приходит?

архивация открытого документа Найти похожие ветки