Главная страница
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.058 c
15-1346349689
alexdn
2012-08-30 22:01
2013.03.22
Теория чисел


2-1328888801
Каныбек
2012-02-10 19:46
2013.03.22
Ссылка на web страницу


15-1351946151
xayam
2012-11-03 16:35
2013.03.22
Производство магнитов в России


15-1343893780
Wadimka
2012-08-02 11:49
2013.03.22
Подскажите куда копать


15-1352825506
>|<
2012-11-13 20:51
2013.03.22
Определение границ максимальной плотности точек