Вниз
Скачать: CL | DM;

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.... у меня ваще нет!


← →
DenXi ©   (2006-01-25 00:05) [6]

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


← →
Digitman ©   (2006-01-25 08:40) [7]


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


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

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


← →
DenXi ©   (2006-01-25 13:52) [8]


>
> Digitman ©  


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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c
1-1136939802
plop
2006-01-11 03:36
2006.02.12
Visio + Delphi


15-1138145684
braynt
2006-01-25 02:34
2006.02.12
Работа с word


15-1137792665
DICK
2006-01-21 00:31
2006.02.12
Помогите найти исходники


15-1137672308
Digitman
2006-01-19 15:05
2006.02.12
ReactOS - хотелось бы услышать имхи


2-1137927805
Compton's G
2006-01-22 14:03
2006.02.12
Как создать массив TBitmap




   Наверх