Уважаемые специалисты (особенно smaharbA :) ), подскажите пожалуйста, как заставить ОО отдавать данные в 1С, не ставя полную версию? Попробовал использовать загрузку из OO, описанную в книге знаний: www.kb.mista.ru/article.php?id=180, но столкнулся с тем, что строка ServiceManager = СоздатьОбъект( "com.sun.star.ServiceManager" ) выдает ошибку "Неудачная попытка создания объекта", скорей всего из-за того, что установлен портабельный OO.

(0) если тебе эксель нужен, то поставь yoksel если не хочешь целиком офис ставить

(1)+ в смысле файлы .xls

(0) да именно, с некоторыми и не портаблами то же самое
но с ними надо было просто запустить "интерактивно" экземпляр
к примеру так

ШелСкрипт=СоздатьОбъект("WScript.Shell");
Шелскрипт.Run(ПутьДоСоффице,0);

а после уже через некоторое время цепляться

сейчас проверю

(1) Эксель грузится нормально - я его через АДО открываю, ОО требуется для открытия ODS - стали присылать заявки и в таком виде. Если не получится, подумаю над пересохранием документа с помощью autoit.

(3) спасибо за идею, щас попробую.

p.s. название прикольное у переменно. Шел скрипт и пришел :)

+(5) наличие в памяти открытого OpenOfficeCalcPortable.exe не помогло. Похоже, где-то в реестре инсталлятор что-то прописывает - придется скачать полный ОО и под виртуалкой экспериментировать.

+(6) похоже вся мякотка описана в http://wiki.services.openoffice.org/wiki/Documentation/DevGuide/ProUNO/Bridge/The_Service_Manager_Component

В общем есть решение и для портабла + 1с самое оно

Можно его (решение) узнать?

(5) А если не через com, а просто xml-структуру документа разбирать? Оно же стандарт, описано.

(10) перед этим надо еще и разархивировать.

(11) Ну и это не проблема. Там зипом заархивировано.

(10) можно попробовать, но боюсь, что там будет проблематичнее, (чем, к примеру, по ОЛЕ из МСО) - наверняка будут разные версии формата и т.п.

(13) ну поставь к МСО приблуду для открытия ODT

(13) >> наверняка будут разные версии формата и т.п.

Формат стандартизирован, надо почитать, что там может меняться, что не может. Но читать, ессно, на аглицком придется, сомневаюсь, что перевод на великомогучий найдешь.

Портабельная версия любого ПО изначально ущербна. Вследствие неопределенности наличия оного ПО на компе (т. к. портабельный софт создан для таскания с собой), то регистрация его на компе как системного объекта не производится. Остается функционал чисто для юзания экзешника. Сие есть фича.

(9) вот и всего то (модифицировать для универсальности будет не сложно)

//*******************************************
Процедура Сформировать()
   Перем Имя,Путь,Шел,ФСО,Файл;
   Перем Ошибка,СервисМанагер,ШелСкрипт,Стр,ЗапускОО,Запуск,Версия,КласИд,Сп,База,Заголовок;
   Попытка
       СервисМанагер=СоздатьОбъект("com.sun.star.ServiceManager");
   Исключение
       Ошибка=1;
   КонецПопытки;
   Если Ошибка=1 Тогда
       Если ФС.ВыбратьФайл(0,Имя,Путь,"Выберете Носимый офис...","Файл Настройки Офиса (*.ini)|*.ini","ini")=0 Тогда
           Возврат;
       КонецЕсли;
       Текст=СоздатьОбъект("Текст");
       Текст.Открыть(Путь+Имя);
       Для Сч=1 По Текст.КоличествоСтрок() Цикл
           Стр=СокрЛП(Текст.ПолучитьСтроку(Сч));
           Если Найти(Врег(Стр),Врег("OpenOfficeDirectory"))=1 Тогда
               Файл=Путь+"\"+СокрЛП(Сред(Стр,Найти(Стр,"=")+1))+"\program\soffice.exe";
               Прервать;
           КонецЕсли;
       КонецЦикла;
       Если ФС.СуществуетФайл(Файл)=0 Тогда
           Сообщить("Фигня какая то!!! Нету пускалки.","!!!");
           Возврат;
       КонецЕсли;
       ФСО=СоздатьОбъект("Scripting.FileSystemObject");
       Шел=СоздатьОбъект("Shell.Application");
       Путь=Шел.NameSpace(ФСО.GetFile(Файл).ParentFolder.Path);
       Файл=Путь.ParseName(ФСО.GetFile(Файл).Name);
       Сообщить(Путь.GetDetailsOf(Файл,35));
       Если Найти(Врег(Путь.GetDetailsOf(Файл,35)),"OPENOFFICE")=0 Тогда
           Сообщить("Фигня какая то!!! Пускалка то не та вроде.","!!!");
           Возврат;
       КонецЕсли;
       ШелСкрипт=СоздатьОбъект("WScript.Shell");
       ЗапускОО=""""+Файл.Path+""" -nodefault -nologo";
       ШелСкрипт.exec(ЗапускОО).Terminate();
       Запуск=ШелСкрипт.exec(ЗапускОО);
       Ожидание=20000;
       Нач=_GetPerformanceCounter();
       Пока (Запуск.Status=0) или (_GetPerformanceCounter()-Нач>Ожидание) Цикл
           ВвестиСтроку("Ждем...","Ждем...",7,,1);
       КонецЦикла;
       //КлассИд=Лев(СкриптЛет.GUID,38);
       //КлассИд="{096FA06A-0374-5F54-C4F6-BDCEAAE420ED}";
       Стр="com.sun.star.ServiceManager.OOPortable";
       Версия=1;
       КлассИд="{82154420-0FBF-11d4-8313-005004526AB4}";
       Сп=СоздатьОбъект("СписокЗначений");
       СкриптЛет=СоздатьОбъект("Scriptlet.TypeLib");
       База="HKCU\Software\Classes";
       Путь=База+"\CLSID\" + КлассИд;
       Заголовок="OpenOffice.org Service Manager (Ver 1.0 OOPortable)";
       Сп.ДобавитьЗначение(Заголовок,Путь);
       Сп.ДобавитьЗначение(ЗапускОО,Путь+"\LocalServer32\");
       Сп.ДобавитьЗначение("",Путь+"\NotInsertable\");
       Сп.ДобавитьЗначение(Стр+"."+Версия,Путь+"\ProgID\");
       Сп.ДобавитьЗначение("",Путь+"\Programmable\");
       Сп.ДобавитьЗначение(Стр,Путь+"\VersionIndependentProgID\");
       Путь=База+"\"+Стр;
       Сп.ДобавитьЗначение(Заголовок,Путь+"\");
       Сп.ДобавитьЗначение(КлассИд,Путь+"\CLSID\");
       Сп.ДобавитьЗначение(Стр+"."+Версия,Путь+"\CurVer\");
       Сп.ДобавитьЗначение("",Путь+"\NotInsertable\");
       Сп.ДобавитьЗначение(Заголовок,Путь+"."+Версия+"\");
       Сп.ДобавитьЗначение(КлассИд,Путь+"."+Версия+"\");
       Сп.ДобавитьЗначение("",Путь+"."+Версия+"\NotInsertable\");
       Для Сч=1 По Сп.РазмерСписка() Цикл
           Зн=Сп.ПолучитьЗначение(Сч,Стр);
           ШелСкрипт.RegWrite(Стр,Зн);
       КонецЦикла;
       СервисМанагер=СоздатьОбъект("com.sun.star.ServiceManager.OOPortable");
   КонецЕсли;
   Сообщить(СервисМанагер);
КонецПроцедуры


(16) а (17) тогда что ?

(18) теперь Сообщить(СервисМанагер) возвращает OLE, но

Document = Desktop.LoadComponentFromURL( ServiceManager.convertToURL( ФайлПрайса ), "_blank", 0, Массив )

возвращает Поле агрегатного объекта не обнаружено (convertToURL).

Можно ли узнать, как с этим бороться?

(18) Имитация регистрации. "Как бы наличествует". Может работать, может не работать. Самый прикол будет после удаления/перебазирования сабжа. Костыли могут быть, но это уже не ноги... К сожалению пройдено не только на ОО.
.
ПС У меня, собственно, одна непонятка - нафига портабельный офис? Я понимаю, если носить нужный софт на винте по точкам/клиентам. А если потребно постоянное нахождение? ИМХО проще вставить обычный и не геморроиться.

(20) бред

(19)

Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language="javascript";
Это=Скрипт.Eval("this");
Сообщить("file:///"+Это.encodeURI(СтрЗаменить(ФайлПрайса,"\","/")));


Мусью нравятся извращения - флаг в руки.

(22) хочется, чтобы оно работало, не заводя в папках  и реестре реестре лишнего, особенно при переходе на новую версию. Я не считаю это извращением.

(23) - а что там нового?

(24) а что там старого ?

(25) Огромное спасибо, smaharbA!!! Все работает как надо!