Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: 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 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.123 c
3-1284928524
sas-koval
2010-09-20 00:35
2013.03.22
SQLConnection. Как узнать пароль.


15-1336640074
jacksotnik
2012-05-10 12:54
2013.03.22
Можно ли в DesignMode открыть закрыть модуль зная его имя?


15-1338256419
J
2012-05-29 05:53
2013.03.22
скачать видео со станицы в Мазилле.


15-1350926092
Дмитрий С
2012-10-22 21:14
2013.03.22
Электрический натягиватель троссика?


2-1331667977
alex7777
2012-03-13 23:46
2013.03.22
Шлюз