Я тут недавно захотел запустить запустить OpenOffice.org Writer 2.0.2
из программы, проблем нет - в Internet'e нашлел 3 строки кода на VBS:
Dim objServiceManager, objDesktop, objDocument
Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter","_blank",0,Array())
работает без проблем.
Почитал Help, порылся в форуме и переписал эту красоту на Clarion:
objServiceManager Long
objDesktop CString(64)
objDocument CString(64)
Code
objServiceManager = Create(0,Create:Ole)
objServiceManager{Prop:ReportException} = True
objServiceManager{Prop:Create} = 'com.sun.star.ServiceManager'
objDesktop = objServiceManager{'createInstance("com.sun.star.frame.Desktop")'}
objDocument = objServiceManager{objDesktop & '.loadComponentFromURL("private:factory/swriter","_blank",0,Array())'}
и не работает
![Sad :(](./images/smilies/icon_sad.gif)
Вопрос даже не об этом примере, а скорее о том в чем здесь ошибка
и как вообще можно работать с OLE из Clarion ?
Или вообще все неправильно, и лучше забыть и запускать VBS скрипт ... ? Блин ! Среда все та же: С6.3 9051 & WinXP SP2.