Тема: Axapta+OpenOffice
Показать сообщение отдельно
Старый 20.02.2007, 12:50   #3  
mmm is offline
mmm
Участник
 
33 / 43 (2) +++
Регистрация: 10.07.2002
Адрес: Ukraine
Вот два варианта кода один для
1С:
Код:
OpenOffice = СоздатьОбъект("com.sun.star.ServiceManager");
        
scr=СоздатьОбъект("MSScriptControl.ScriptControl");
   
scr.language="javascript";
scr.eval("Массив=new Array()");
Массив=scr.eval("Массив");
scr.AddObject("OpenOffice",OpenOffice);
scr.eval("Массив[0]=OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");
scr.eval("Массив[0].Name='Hidden'");
scr.eval("Массив[0].Value=false");
   
DeskTop = OpenOffice.CreateInstance("com.sun.star.frame.Desktop");  
   
Document = DeskTop.LoadComponentFromURL("private:factory/scalc", "_blank", 0, Массив);
И второй вариант для Borland C++ Builder:
Код:
ServiceManager = CreateOleObject("com.sun.star.ServiceManager");
	
Desktop = ServiceManager.OleFunction("createInstance","com.sun.star.frame.Desktop");
Document = Desktop.OleFunction("LoadComponentFromURL", "private:factory/scalc", "_blank", 0, VariantArray );