[oodisc] Help me

[Alexej Kryukov]

On Tuesday 30 November 2004 15:10, Lika Vovk wrote:
> Добрый день всем.
>
> Если кто-нибудь знает как открыть файл OpenOffise writer
> на Delphi пожалуйста сообщите (или ссылку пришлите)
> а то
>   StarDesctop : Variant;
>   Document : Variant;
>   StarDesctop:=createUnoService('com.sun.star.frame.Desktop');
>   Document:=StarDesctop.LoadComponentFromURL('file:///имя
> файла','_blank',0,NOARGS); {NOARGS - массив [0,-1]VarVariant}
>
> НЕ РАБОТАЕТ (ругается на createUnoService)

Я мало что понимаю в DELPHI, но, AFAIK, это работать и не должно.

> хотя пример взяла из мануала (правда пришлось паравести с Бейсика)

Вот то-то и оно, что с Бейсика. createUnoService -- это оператор
StarBasic, предназначенный для упрощения структуры программы. В
других языках мы всегда должны первым делом получить ServiceManager,
а от него уже производить всё, что угодно. В Вашем случае это
должно выглядеть примерно так:


StarOffice := CreateOleObject('com.sun.star.ServiceManager');           
StarDesktop := StarOffice.createInstance('com.sun.star.frame.Desktop');      

Собственно, пример взят из образца кода на Delphi, который имеется
в OOo SDK, можете сами там посмотреть.


-- 
Regards,
Alexej Kryukov <akrioukov at newmail dot ru>

Moscow State University
Historical Faculty