EOleSysError

[Guest]

function TSampleCode.Connect(): boolean;
begin
if VarIsEmpty(StarOffice) then
StarOffice := CreateOleObject('com.sun.star.ServiceManager') ;
end;
выдает ошибку: "Недопустимая строка с указанием класса"
В чем проблема? Такой пример на нескольких сайтах.
Спасибо.

 

[Barmutik]

А Стар Офис стоит нормально?

Такая ошибка вываливается когда пытаешся создать объект, который не зарагестрирован в системе...

 

[Guest]

<!--QuoteBegin-Barmutik+16:03:2005, 17:38 -->
<span class="vbquote">(Barmutik @ 16:03:2005, 17:38 )</span><!--QuoteEBegin-->А Стар Офис стоит нормально?

Такая ошибка вываливается когда пытаешся создать объект, который не зарагестрирован в системе...[/quote]
Уже выяснено. OpenOffise был инсталирован в другом профиле.
Спасибо.