TService и че с ним делать

← →
DenXi © (2006-01-24 01:09) [0]

Дело такое: пишу сервис с использованием TService. Нада, чтобы иногда казал Word и пихал туда текст.
В обычном TApplication работает, в сервисе - нет. Выполнял и в потоке, и по-всякому - не рулит, просто не работает и все!!! Кручу в цикле в Execute(если что). Interactive тож сделал - ничче не помогает!

Хотя нет работает beep :))) и все, доходит до Word.Documents и т.п. - исключение и циклу конец! Че делать????

Заранее благодарен

← →
Atheist (2006-01-24 07:17) [1]

Код дадите?

← →
Digitman © (2006-01-24 08:18) [2]

> исключение

секретное ?)

← →
Anatoly Podgoretsky © (2006-01-24 09:11) [3]

И чего это в сервисе делает показ, кто его увидит то.

← →
Digitman © (2006-01-24 09:26) [4]

CoInitialize(nil);
try
try
WordApp := CreateOleObject("Word.Application");
try
.. работа с объектами Ворда ..
finally
WordApp.Quit;
end;
except
on e:EOleSysError do протоколирование исключения для последующего анализа
end;
finally
CoUninitialize;
end;

← →
DenXi © (2006-01-24 23:57) [5]

Кстати, почему у мя только ComObj.CoInitializeEx, и каким должен быть второй параметр при инициализации/деинициализации, а CoUniti.... у меня ваще нет!

но, все равно спасиба! ошибку свою понял, надо получше с COM разобраться.... Но странно, почему в TAppliaction работало, значит, там уже заранее инициализированный COM?

> почему в TAppliaction работало

Потому что Борланд позаботился о неявной инициализации в контексте основного код.потока VCL-приложения.

В твоем же случае у тебя используется дополнительный код.поток, а в этом случае об инициализации надо заботиться явно.

>
> Digitman ©

Понял, то есть в потоке все проблемы, как в C++, возлагаются на программиста....... Ясно... Спасибо!!!!!!!

TService и че с ним делать Найти похожие ветки