Скачать: CL | DM;

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

← →
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]

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

---

← →
Dimka Maslov ©   (2012-02-06 10:38) [5]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.046 c