Ошибка при вызове метода контекста loadcomponentfromurl

Добрый день! Заранее прошу прощения за возможно детские вопросы.

У меня стоит задача заполнения документа в open office из формы документа 1с. Я создала кнопку «Печать», после чего начала описывать процедуру.

ServiceManager = Новый COMОбъект(«com.sun.star.ServiceManager»);

   
Desktop = ServiceManager.OleFunction(«createInstance», «com.sun.star.frame.Desktop»);

   
Док = Desktop.OleFunction(«LoadComponentFromURL», «C:\…», 0 );

На этом участке кода у меня система выдает ошибку:

«Desktop = ServiceManager.OleFunction(«createInstance», «com.sun.star.frame.Desktop»);»

В режиме отладки проверяла ServiceManager заполняется, а вот Desktop остается неопределенным. Пыталась исправить ошибку, но безуспешно. Надеюсь на Вашу помощь.Заранее спасибо!

Щас, автор выдаст — «Сама я не по 1С, да и не программист вообще, даже не программистка. А всего лишь системный администратор»

…Без фото, солнечный офис не будет работать…

EasyRider вот здесь вроде вычитала.

http://www.ishodniki.ru/art/art_progr/builder/236.html

А сама я начинающий программист, поэтому не пугайте пожалуйста)

Проверила, действительно неправильно определила переменную док,переписала.

Док=Desktop.LoadComponentFromURL(«C:\dvstmp\qqqq.odt», «_blank», 0,Параметры);

Но теперь он пишет:

«{Справочник.ДоговорыКонтрагентов.Форма.ФормаЭлемента.Форма(420)}: Ошибка при вызове метода контекста (LoadComponentFromURL)

     Док=Desktop.LoadComponentFromURL(«C:\advastmp\qqqq.odt», «_blank», 0,Параметры);

по причине:

Произошла исключительная ситуация ([automation bridge] ): [automation bridge] UnoConversionUtilities<T>::dispatchExObject2Sequence

Conversion of dispatch object to Sequence failed!

Произошла исключительная ситуация ([automation bridge] ): [automation bridge] UnoConversionUtilities<T>::dispatchExObject2Sequence

Conversion of dispatch object to Sequence failed!»

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

Я попыталась сделать кусок кода как в этой ссылке, но у меня пока не работает

ServiceManager = Новый COMОбъект(«com.sun.star.ServiceManager»);

   
Desktop = ServiceManager.createInstance(«com.sun.star.frame.Desktop»);

   
НастройкиОткрытия = Новый COMSafeArray(«VT_VARIANT», 1);

PropertyValue = ServiceManager.Bridge_GetStruct(«com.sun.star.beans.PropertyValue»);

   PropertyValue.Name = «Hidden»;

   PropertyValue.Value = Истина;

   НастройкиОткрытия.SetValue(0, PropertyValue);

   ВременныйФайлXLS_какУРЛ = // «file:///» +  СтрЗаменить(«C:\dvstmp\qqqq.odt», «», «/»); // приводим путь к файлу из виндового формата в опен офисный

Document=Desktop.LoadComponentFromURL( ВременныйФайлXLS_какУРЛ, «_blank», 0,НастройкиОткрытия);

На месте определения Document он выдает ошибку:

«{Справочник.ДоговорыКонтрагентов.Форма.ФормаЭлемента.Форма(434)}: Ошибка при вызове метода контекста (LoadComponentFromURL)

     Document=Desktop.LoadComponentFromURL( ВременныйФайлXLS_какУРЛ, «_blank», 0,НастройкиОткрытия);

по причине:

Произошла исключительная ситуация ([automation bridge] ): com.sun.star.lang.IllegalArgumentException: URL seems to be an unsupported one.»

Возможно я неправильно указала URL-адрес

Карась

33 — 26.07.12 — 12:02

1. Как подключиться через COM к ОО 2.3. И какими методами там работать? У кого-нибудь есть пример?

2. 
   

   Offline

   BabySG
   Администраторы
   Команда форума
   Администратор

   Регистрация:

   10 июн 2007

   Сообщения:

   11.853

   Симпатии:

   18

   Баллы:

   29

   Перем Аргументы;  // Массив аргументов для создания приложения
   
   СервисОО = Новый COMОбъект("com.sun.star.ServiceManager"); // Создаём доступ
   Десктоп = СервисОО.createInstance("com.sun.star.frame.Desktop"); // Создаём десктоп
   // Создаем документ приложения Writer
   Документ = Десктоп.LoadComponentFromURL("private:factory/swriter", "_blank", 0, Аргументы); 
   
   

   Подробно можно почитать по этой ссылке (1,5Mb), начиная с главы Введение в OpenOffice.org API, если знаком с любым яхыком программирования — будет очень просто все.

3. Спасибо. А можно простой пример. Перебор строк и получение значений из нескольких колонок? Заранее благодарен.

4. 
   

   Offline

   BabySG
   Администраторы
   Команда форума
   Администратор

   Регистрация:

   10 июн 2007

   Сообщения:

   11.853

   Симпатии:

   18

   Баллы:

   29

   Я так понимаю, разговор про Calc уже?
   Вот, примерно так можно:

   Листы = Документ.getSheets();
   Лист = Листы.getByIndex(0);
   Для Позиция = 0 По 10 Цикл
   Лист.getCellByPosition(0, Позиция).value = 2;
   КонецЦикла;
   
   
   

5. 
   

   Offline

   minute

   Регистрация:

   28 мар 2007

   Сообщения:

   13

   Симпатии:

   0

   Баллы:

   1

   Такой вопрос: а как получить доступ к уже открытому документу Calc?

6. 
   

   Offline

   BabySG
   Администраторы
   Команда форума
   Администратор

   Регистрация:

   10 июн 2007

   Сообщения:

   11.853

   Симпатии:

   18

   Баллы:

   29

   Т.е. подключиться к процессу?
   Методологически неправильно так делать.

7. 
   

   Offline

   minute

   Регистрация:

   28 мар 2007

   Сообщения:

   13

   Симпатии:

   0

   Баллы:

   1

   Почему? В Exel’е, например, с этим вообще никаких проблем:

   ехель=СоздатьОбъект("Excel.Application");
   //взять контрагента и поместить его в поле комментарий  
   Если флНестандарт=0 Тогда
   Ячейка=ехель.Cells(10,2);
   иначе
   Ячейка=ехель.Cells(15,2);
   КонецЕсли;
   
   
   
   

   В ячейке будет содержаться текст открытого в данный момент документа Excel, с активного листа.
   А в Open Office? :unsure:

8. 
   

   Offline

   Саша82
   Активный ученик

   Регистрация:

   11 окт 2007

   Сообщения:

   307

   Симпатии:

   0

   Баллы:

   26

   А как можно сделать проверку орфографии в УТ для почтовых сообщений?
   Еще у меня при запуске вот такого кода:

   FileName= "file:///C:/Documents and SettingsСашаРабочий стол1.ods";	
   
   СервисОО = Новый COMОбъект("com.sun.star.ServiceManager"); 
   Десктоп = СервисОО.createInstance("com.sun.star.frame.Desktop"); 
   
   :unsure: Документ = Десктоп.LoadComponentFromURL(FileName, "_blank", 0, Аргументы);
   
   Листы = Документ.getSheets();
   Лист = Листы.getByIndex(0);
   Для Позиция = 0 По 10 Цикл
   Лист.getCellByPosition(0, Позиция).value = 2;
   

   Вот в этом месте выдает вот такую ошибку:
   {Обработка.BioЗагрузкаXML.Форма.Форма1(246)}: Ошибка при вызове метода контекста (LoadComponentFromURL): Типы не совпадают (1)
   Документ = Десктоп.LoadComponentFromURL(FileName, «_blank», 0, Аргументы);

   На самом деле это написано вот так: «file:///C:/Documents and SettingsСашаРабочий стол1.ods»
   При выделение здесь в код почему то неправильно показывает.

9. 
   

   Offline

   BabySG
   Администраторы
   Команда форума
   Администратор

   Регистрация:

   10 июн 2007

   Сообщения:

   11.853

   Симпатии:

   18

   Баллы:

   29

   Что-то не так с именем файла

10. 
    

    Offline

    Саша82
    Активный ученик

    Регистрация:

    11 окт 2007

    Сообщения:

    307

    Симпатии:

    0

    Баллы:

    26

    Ну я в общем то тоже так подумал. Ну что же тогда может быть?
    Там есть что то типо функций ConvertToURL и ConvertToURL.
    Еще GetPathSeparator() но я не знаю как это использовать из 1С и в обще нужно ли это?
    Потом я попробовал использовать такой путь «file:///C:/1.ods» но это не помогло.
    Что в обще такое private:factory/scalc?

11. 
    

    Offline

    Саша82
    Активный ученик

    Регистрация:

    11 окт 2007

    Сообщения:

    307

    Симпатии:

    0

    Баллы:

    26

    Как сделать Нужно сделать массив аргументов для создания приложения? Вот так не получается:

    СервисОО = Новый COMОбъект("com.sun.star.ServiceManager"); 
    Десктоп = СервисОО.createInstance("com.sun.star.frame.Desktop"); 
    a=  СервисОО.createInstance("com.sun.star.beans.PropertyValue");
    Документ=Десктоп.LoadComponentFromURL("file:///c:/1.ods","_blank",0, a);
    

    Вот в этих: http://community.i-rs.ru/index.php/topic,9…2.html#msg59152 http://community.i-rs.ru/index.php?topic=8…w;topicseen#new
    темах написано что его можно создать с помощью MSScriptControl.

12. 
    

    Offline

    Саша82
    Активный ученик

    Регистрация:

    11 окт 2007

    Сообщения:

    307

    Симпатии:

    0

    Баллы:

    26

    Можно этот массив создать с помощью 1С?
    Может можно создать проверку орфографии с помощью самой 1С? В ней ведь есть вроде база слов?

13. 
    

    Offline

    BabySG
    Администраторы
    Команда форума
    Администратор

    Регистрация:

    10 июн 2007

    Сообщения:

    11.853

    Симпатии:

    18

    Баллы:

    29

    :unsure:
    Я не успеваю за тобой, автор

14. 
    

    Online

    nomad_irk
    Гуру в 1С

    Регистрация:

    20 окт 2008

    Сообщения:

    9.675

    Симпатии:

    1.011

    Баллы:

    204

    Подниму тему.

    интересует каким образом запустить Сalc невидимым?
    каким образом добавить «hidden» True в массив аргументов запуска?

    Scr = Новый COMОбъект(«MSScriptControl.ScriptControl»);
    Scr.language = «javascript»;
    Scr.eval(«Arr = new Array()»);
    Scr.AddObject(«ServiceManager», СервисОО);
    Array = Scr.eval(«Arr»);

    Array[0].Name = «Hidden»;
    Array[0].Value = Истина;

    не робит

Description

Shestakov Dmitriy

2012-02-27 17:36:31 MSK

1с 8.2 (8.2.14.533)
OpenOffice.org 3.3 

Конфигурация значения не имеет, думаю, что и версия платформы роли не играет.

Нужно установить OpenOffice в WINE@.

Обработка находится тут: /var/ftp/pvt/Windows/Testing/RT/23134.

Способ воспроизведения:
1. Открываете 1с в рабочем режиме.
2. Файл-Открыть и указать обработку.
3. Выбрать каталог, только не корень диска.

Все, в итоге должна создаться таблица опенофис Test_oo_via_NX.ods со
строкой "Тестовое сообщение".

Comment 1

Svetlana Zhukova

2012-02-28 12:06:51 MSK

eterhack bottle 1c82/8241
2.0.0-eter2.18/8


Установила ОО,  calc запускается,работает.
При выполнении обработки в консоли:

Usually, you can find it in the winbind package of your distribution.
fixme:file:MoveFileWithProgressW MOVEFILE_WRITE_THROUGH unimplemented
err:ole:CoInitializeEx Attempt to change threading model of this apartment from apartment threaded to multi-threaded
err:ole:marshal_object object doesn't expose interface {00000126-0000-0000-c000-000000000046}, failing with error 0x80004002
err:ole:ClientIdentity_QueryMultipleInterfaces IRemUnknown_RemQueryInterface failed with error 0x80004002
-\-\-\-повторяется
err:ole:CoGetClassObject class {6c736db1-bd94-11d0-8a23-00aa00b58e10} not registered
err:ole:CoGetClassObject no class object {6c736db1-bd94-11d0-8a23-00aa00b58e10} could be created for context 0x1


Программа зависает.

Comment 2

Svetlana Zhukova

2012-03-13 11:15:22 MSK

Установила unioffice. Теперь при выполнении обработки появляетя сообщение,что на компьютере не установлен OO, при этом открывается стартовое окно OO.

Comment 3

Константин Кондратюк

2012-04-03 18:32:24 MSK

Зачем устанавливался UniOffice, я не понял - обработка изначально работает с объектами OpenOffice.

Пересоздал бутылку:
eterhack bottle bugs/8241

1С 8.2.15.301, LibreOffice 3.5.1

На первый взгляд: запускается обработка, открывается LibreOffice, создаётся файл по указанному пути. Файл, кажется, пустой. LibreOffice, запустившись, остаётся открытым - не понятно, влияет это как-нибудь на работу обработки или нет.

Comment 4

Константин Кондратюк

2012-04-03 18:53:08 MSK

В обработке есть такой код:

ServiceManager=новый COMОбъект("com.sun.star.ServiceManager");   

Граница = ServiceManager.Bridge_GetStruct("com.sun.star.table.BorderLine");
Граница.lineDistance =  0;
Граница.innerLineWidth = 0;
Граница.outerLineWidth = 1;
	
scr = новый COMОбъект("MSScriptControl.ScriptControl");
scr.language = "javascript";
scr.eval("Массив=new Array()");
Массив = scr.eval("Массив");
scr.AddCode("function SetItem(ind,val){Массив[ind]=val}");    
scr.AddObject("ServiceManager",ServiceManager);  
		scr.eval("Массив[0]=ServiceManager.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");
scr.eval("Массив[0].Name='Hidden'");
scr.eval("Массив[0].Value=true");


Судя по результатам построчного выполнения, работа замораживается на строчке
Массив = scr.eval("Массив");

При этом никаких ошибок выполнение непосредственно этой инструкции в консоль не валит.

Comment 5

Константин Кондратюк

2012-04-03 19:19:13 MSK

OpenOffice вообще не имеет никакого отношения к проблеме. Проблема возникает при работе с объектом MSScriptControl из Windows Scripting. С чем связано, пока не ясно.

Comment 6

Константин Кондратюк

2012-04-03 19:22:49 MSK

Created attachment 2472 [details]
простой тест

Тестовая обработка: создаём объект, создаём массив, пытаемся переменной Массив присвоить значение - в этот момент возникает ошибка.

scr = новый COMОбъект("MSScriptControl.ScriptControl");
scr.language = "javascript";
scr.eval("Массив=new Array()");
Массив = scr.eval("Массив");
scr.AddCode("function SetItem(ind,val){Массив[ind]=val}");

Comment 7

Константин Кондратюк

2012-04-03 19:36:47 MSK

Как и ожидалось, на Windows такая обработка успешно выполняется.

Comment 8

Константин Кондратюк

2012-04-03 19:43:36 MSK

И в 1.0.12 простая обработка выполняется

Comment 10

Константин Кондратюк

2012-04-03 20:08:03 MSK

Дотестировал 1.0.12 - в дальнейшем появляется ошибка при вызове LoadComponentFromURL()

То есть в качестве временного решения не подойдёт.

Comment 11

Константин Кондратюк

2012-04-03 20:09:17 MSK

Точный текст ошибки в 1.0.12:
{Форма.Форма.Форма(61)}: Ошибка при вызове метода контекста (LoadComponentFromURL)
	Document = Desktop.LoadComponentFromURL(convertToURL(ИмяФайла), "_blank", 0, Массив);
по причине:
Типы не совпадают (1)

Comment 12

Константин Кондратюк

2012-04-04 16:41:06 MSK

В 1.0.12 тоже есть ошибка. Только при выполнении проблемной строки кода валятся fixme и, по всей видимости, возвращается ошибка. В итоге результат работы такой же, как и при Массив = 0;

Не работает ни в одной из версий, но в 2.0 ведёт к зависанию, тогда как у 1.0.12 недостаточно функционала для достижения ошибки.

Comment 13

Константин Кондратюк

2012-04-04 18:21:09 MSK

Не возвращается управление из функции ITypeInfo2_fnGetContainingTypeLib()

Зависание где-то в районе выполнения строки:
    *pIndex = This->typeinfo->typekind >> 16;
(до неё трейсится, после - нет)

Comment 14

Константин Кондратюк

2012-04-04 18:22:22 MSK

Путём экспериментов с параметрами упростил запуск обработки:
$ wine 1cv8.exe enterprise /F"D:\DemoAcc" /execute "C:\SimpleTest.epf"

Comment 15

Константин Кондратюк

2012-04-04 19:11:56 MSK

(В ответ на comment #13)
> Зависание где-то в районе выполнения строки:
>     *pIndex = This->typeinfo->typekind >> 16;

Всё потому, что приходящий pIndex == NULL.
Если игнорировать нулевой указатель, то обработка выполняется, а затем успешно выполняется и большая обработка по выгрузке в OpenOffice.

В качестве экстренной меры добавил проверку на нулевой указатель - хуже точно не будет, а 1ске (как минимум) становится лучше.

Comment 17

Константин Кондратюк

2012-04-06 11:11:22 MSK

Пришёл отзыв пользователя: в новой сборке всё работает.

Muthuvel

Posts: 12

Joined: Sat Jun 20, 2020 7:42 pm

Doc.storeAsURL(Url, FileProperties()) 

sub SaveAsTest
Dim Doc 
Dim Dummy() 
Dim Url As String
Dim SearchFlags As Long
 
SearchFlags = com.sun.star.frame.FrameSearchFlag.CREATE + _
              com.sun.star.frame.FrameSearchFlag.ALL
Url = "file:///C:/temp/test.odt"
Doc = StarDesktop.loadComponentFromURL(Url, "MyFrame", SearchFlags, Dummy)
Dim FileProperties(0) As New com.sun.star.beans.PropertyValue

' ... Initialize Doc 
 
Url = "file:///c:/temp/test3.odt"
FileProperties(0).Name = "Overwrite"
FileProperties(0).Value = True
Doc.storeAsURL(Url, FileProperties()) 
end sub

Zizi64

Volunteer

Posts: 11075

Joined: Wed May 26, 2010 7:55 am

Location: Budapest, Hungary

Muthuvel

Posts: 12

Joined: Sat Jun 20, 2020 7:42 pm

sub SaveAsTest
Dim Doc 
Dim Dummy() 
Dim Url As String
Dim SearchFlags As Long
 
SearchFlags = com.sun.star.frame.FrameSearchFlag.CREATE + _
              com.sun.star.frame.FrameSearchFlag.ALL
Url = "file:///C:/temp/test.odt"
Doc = StarDesktop.loadComponentFromURL(Url, "MyFrame", SearchFlags, Dummy)
Dim FileProperties(0) As New com.sun.star.beans.PropertyValue

' ... Initialize Doc 
 
Url = "file:///c:/temp/test3.odt"
FileProperties(0).Name = "Overwrite"
FileProperties(0).Value = True
Doc.storeAsURL(Url, FileProperties()) 
end sub

Zizi64

Volunteer

Posts: 11075

Joined: Wed May 26, 2010 7:55 am

Location: Budapest, Hungary

Muthuvel

Posts: 12

Joined: Sat Jun 20, 2020 7:42 pm

Doc = StarDesktop.loadComponentFromURL(Url, "MyFrame", SearchFlags, Dummy)

FileProp(0).Name = "Password"
  FileProp(0).Value = "tmb"
Doc = StarDesktop.loadComponentFromURL(Url, "MyFrame", SearchFlags, FileProp())

Файлы для самостоятельного тестирования на 1С:Профессионал распространяются в виде xls, с включенными макросами, которые нормально работают только в MS Excel. Однако у меня нет возможности использовать MS Excel, зато есть OpenOffice, но вот незадача — не «отрабатывают» эти файлы в нем… Поэтому возникла идея создать конфу, которая бы всасывала инфу с ИТС, и складывала бы удобном для тестирования виде, ну и тестировала за одно.