OpenOffice automation - глюк при закрытии приложения

Ответить
  1. 9 г. назад

    #0 andrewks

    14.09.2015 14:19:27

    столкнулся со странным эффектом - если открываю через automation bridge (также известный как Desktop) xls-файл, который уже открыт другим приложением на изменение (или даже в самом OpenOffice) - файл открывается, данные все читаются, никаких ошибок не выскакивает, но далее, после того, как все нужные данные считаны, и пришла пора закрывать OpenOffice, получаем следующую шнягу при выполнении Desktop.Terminate();

    [automation bridge] : com.sun.star.lang.IllegalArgumentException: URL seems to be an unsupported one.

    все ссылки в сети, которые я искал через гугл, приводили меня к проблемам в имени файла (не сконвертированы пробелы и т.п.), но у меня с именем файла всё нормально, и loadComponentFromURL отрабатывает нормально, все данные считываются.

    как должно быть реализовано по-кошерному, чтобы не выкидывало исключение?
    (вариант с игнором исключений от Desktop.Terminate() не предлагать - это не совсем кошерно)

  2. #1 alex_shkut

    14.09.2015 14:38:23

    А чем тебе это не нравится?

    функция ПривестиФайлКУРЛ(ПутьКФайлу)

    ПутьКФайлу = СтрЗаменить(ПутьКФайлу," ","%20");
    ПутьКФайлу = СтрЗаменить(ПутьКФайлу,"\","/");
    Возврат "file:/" + "/localhost/" + ПутьКФайлу;

Конецфункции
    Ответы: (10)

  3. #2 alex_shkut

    14.09.2015 14:39:14

    А, ну да... есть это...

  4. #3 alex_shkut

    14.09.2015 14:40:47

    Вот с Инфостарта, немного допилено. Может чего полезного найдешь:

    Функция ЗагрузитьТЗизФайла(ПутьКФайлу,текЛист=0,Знач endCol=0) Экспорт

	//OpenOffice Calc//
	Попытка
	        ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
	Исключение
	        Предупреждение(ОписаниеОшибки() + Символы.ПС + "программа OpenOffice\LibreOffice не установлена на данном компьютере!");
	Возврат Неопределено;
	КонецПопытки;
	Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
	Свойства = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
	Свойства.Name = "AsTemplate";
	Свойства.Value = Истина;
	Args = Новый COMSafeArray("VT_VARIANT", 2);
	Args.SetValue(0, Свойства);
	Свойства1 = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
	Свойства1.Name = "Hidden";
	Свойства1.Value = Истина;
	Args.SetValue(1,Свойства1);
	Попытка
		Document = Desktop.LoadComponentFromURL(ПривестиФайлКУРЛ(ПутьКФайлу), "_blank", 0, Args);
	Исключение
		ServiceManager = Неопределено;
	КонецПопытки;
	Sheets = Document.getSheets();
	Если Sheets.Count<текЛист Тогда
		Сообщить("Количество страниц в файле меньше, чем запрошено");
		ServiceManager = Неопределено;
		Возврат Неопределено;
	КонецЕсли;
	Sheet = Sheets.getByIndex(текЛист-1);
	Курсор   = Sheet.createCursor();
	Курсор.gotoEndOfUsedArea(Истина);
	endCol   = Курсор.Columns.Count - 1;
	endRow  = Курсор.Rows.Count - 1;
	begCol = 0;
	begRow = 0;
	нКол = 0;
	локТабЗнач = Новый ТаблицаЗначений;
	локТабЗнач.Колонки.Очистить();
    КС = Новый КвалификаторыСтроки(50);
    Массив = Новый Массив;
    Массив.Добавить(Тип("Строка"));
    ОписаниеТиповСтрока = Новый ОписаниеТипов(Массив, , КС);
	Пока нКол <= endCol Цикл
	    ИмяКол = "К"+Строка(нкол+1);
	    локТабЗнач.Колонки.Добавить(ИмяКол,ОписаниеТиповСтрока);
	    нКол = нКол + 1;
	КонецЦикла;
	Range = Sheet.getCellRangeByPosition(begCol, begRow, endCol, endRow);
	МассивКом = Новый COMSafeArray("VT_VARIANT", Range.Columns.Count, Range.Rows.Count);
	МассивКом = Range.getDataArray();
	тмпПростойМассив = МассивКом.Выгрузить();
	Для каждого массив из тмпПростойМассив Цикл
	     ит = 0;
	     НовСтрока = локТабЗНач.Добавить();
	     Для каждого ЭлементМассива из массив цикл
	           НовСтрока[ит] = ЭлементМассива;
	           ит = ит + 1;
	     КонецЦикла;
	КонецЦикла;
	Document.Close(True);
	Document = Неопределено; 
	
	ServiceManager = Неопределено;
	Возврат локТабЗнач;

КонецФункции
    Ответы: (4)

  5. #4 andrewks

    14.09.2015 14:44:13

    (3) это всё уже изучено и освоено.

    короче, отладка показала, что виноват не опенофис, а 1сина.
    подробности позже

  6. #5 andrewks

    14.09.2015 14:45:28

    исключение вываливается, всё-таки, не на Desktop.Terminate(); а на loadComponentFromURL()

    Ответы: (6)

  7. #6 Идун

    14.09.2015 14:51:38

    (5) а накой тебе Terminate?
    Document.Close(True);
    Document=Неопределено;
    Фсьо, даже
    ServiceManager = Неопределено; не в обязы.

    Ответы: (8)

  8. #7 andrewks

    14.09.2015 14:52:37

    итак, причина в следующем:

    когда опенофис открываем файл, он рядом создаёт файл блокировки с именем типа
    .~lock.ИмяИсходногоФайла#

    что в случае, например, с файлом example.xls даёт имя
    .~lock.example.xls#

    задача 1с-обработки загрузка данных из всех xls-файлов в указанной папке.
    перебор был реализован при помощи штатных функций 1с 7
    ФС.НайтиПервыйФайл()
    ФС.НайтиСледующийФайл()
    поиском по маске "*.xls"

    так вот, внимание, теперь самый изюм:
    тупая 1сина считает файл с именем ".~lock.example.xls#" соответствующим маске "*.xls"

    соответственно, обработка пыталась стянуть данные и из этого служебного файла.

    занавес

    Ответы: (9)

  9. #8 andrewks

    14.09.2015 14:53:20

    (6) мне как-то Terminate() ближе

  10. #9 alex_shkut

    14.09.2015 14:55:33

    (7) ну а чего не так? "*.xls" прекрсно помещается в "*.xls#".
    А Терминатор как мне видится прибивает модуль в памяти.

    Ответы: (11)

  11. #10 andrewks

    14.09.2015 14:55:36

    alex_shkut А чем тебе это не нравится?

    вот, как раз, и выявились слабые места этого решения. многие служебные символы не учитываются.

    правильный вариант:

    FileProvider=ServiceManager.createInstance("com.sun.star.ucb.FileContentProvider");
URL=FileProvider.getFileURLFromSystemPath("",ИмяФайла);

  12. #11 andrewks

    14.09.2015 14:56:11

    alex_shkut ну а чего не так?

    я против. указанное имя файла не соответствует маске "*.xls"

  13. #12 andrewks

    14.09.2015 14:56:52

    кстати, лень проверять, может, это даже и не 1сина тупая, а сама винда

    Ответы: (13)

  14. #13 Идун

    14.09.2015 14:59:48

    (12) ну дык добавь проверку на lock в имени файла, если уж так некошерно в попытку завернуть

    Ответы: (14)

  15. #14 andrewks

    14.09.2015 15:00:36

    (13) да теперь-то понятно. просто не ожидал такой подлянки

    Ответы: (15)

  16. #15 Идун

    14.09.2015 15:05:35

    (14) это еще не подлянка, хуже бывает, когда вроде и не "держит" файл никто (unlocker-ом смотрю, им же после снимаю), а дискриптор взведен, хрен откроешь. (на от семерки до 8,1 виндов наблюдалось, навертели что-то они там, или я тупой, на каком-то форуме советовали паузы делать, я их не понял).

    Ответы: (16) (17)

  17. #16 alex_shkut

    14.09.2015 15:09:29

    (15) Может все-таки Терминатор?

  18. #17 andrewks

    14.09.2015 15:17:16

    (15) на хр я такое тоже иногда встречал

  19. #18 smaharbA

    14.09.2015 16:49:11
    14.09.2015 16:50:28 отредактировано smaharbA

    77 или 8.х ?

    "*.xls|*.xlsx" не канает ?

    Ответы: (19)

  20. #19 andrewks

    14.09.2015 17:34:01

    smaharbA 77 или 8.х ?

    глюк конкретно воспроизводится на 7.7, на 8 не проверял

    smaharbA "*.xls|*.xlsx" не канает ?

    нет

    Ответы: (20)

  21. #20 smaharbA

    14.09.2015 17:52:42
    14.09.2015 17:53:32 отредактировано smaharbA

    (19) проверил на 2012 с маской "*.xls" - xls# в выборку не попал, хотя помню что то такое в 77, что попадают файлы с совпадающим началом расширения, а по сабжу - открывать в режиме чтения ?

    Ответы: (21)

  22. #21 andrewks

    14.09.2015 19:32:18

    smaharbA открывать в режиме чтения ?

    да без разницы, в каком режиме открывает automation, затык был в том, что если кто-то (другой пользователь) открыл xls-файл из нашей папки опенофисом, то в этой папке создавался файл блокировки xls#, который, по мнению 1с 7.7, подходит к маске *.xls

    Ответы: (22)

  23. #22 smaharbA

    14.09.2015 23:31:25

    (21) Знаю как обернуть ситуацию без фильтра на решетку, но теперь нет смысла.

или зарегистрируйтесь чтобы ответить!