Вниз
Скачать: 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.03 c
2-1138280829
Trilon1
2006-01-26 16:07
2006.02.12
EOleException


6-1131124608
S_T_E_P_A_N___
2005-11-04 20:16
2006.02.12
Подсчет трафика по сети


15-1138080476
Antip
2006-01-24 08:27
2006.02.12
Пишется ли в exe-шник лицензионная инфа о Delphi?


3-1134459185
ANB
2005-12-13 10:33
2006.02.12
Посоветуйте тип блокировки записи (оракл)


15-1137657018
Kostik
2006-01-19 10:50
2006.02.12
Delphi 8




   Наверх