![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
![]()
Пишу службу... Есть ли там(в службах) что-то подобное Application.ProcessMessages? Просто как только вставляю в код безконечный цикл служба перестает реагировать на остановку/паузу, вообщем виснет. Помогите плиз!
Да, и ещё: как сделать, чтобы служба была постоянно запущена? То есть, если она ничего не делает, то при запуске пишет: Служба была запущена и затем остановлена. Некоторые службы автоматически останавливаются, если им нечего делать... |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
![]()
Неужели никто не пожет мне помочь? Пожалуйста! Очень надо
|
![]() |
![]() |
![]() |
#3 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
![]()
Во-первых :
application.ProcessMessages; В модуле Forms, добавь его в список. Во-вторых : делай так: Код:
Будут вопросы говорите.
Всё гениальное - просто!
![]() |
![]() |
![]() |
![]() |
#4 |
Программист и
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,265
|
![]() Код:
Последний раз редактировалось Simply-Art; 02.01.2008 в 06:52. Причина: забыл application.ProcessMessages; |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
![]()
2 Simply-Art & Air:
Спасибо, но я так пробовал! Проблема в том, что из-за этого бесконечного цикла служба НЕ выключается из управления службами, а надо... Если не использовать бесконечный цикл, то она запускается и сразу же закрывается. И как тогда быть? |
![]() |
![]() |
![]() |
#6 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
![]()
Вот подработал код.
Код:
Может это и наворочено, но пока это единственное решение. Будут вопросы говорите.
Всё гениальное - просто!
![]() Последний раз редактировалось Air; 03.01.2008 в 18:39. Причина: Модификация кода |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
![]()
2 Air:
Спасибо тебе огромное!!! Всё отлично работает! |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
![]()
А как можно организовать общение программы со службой? Поясню:
надо, чтобы при запуске программы запускалась служба и ей(службе) передавались 2 строковых параметра... |
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
Эта программа, всеголишь тест для проверки правильности кода. Мне надо знать как правильно использовать TServise.
Устанавливаю сервис батником, запускаю вручную в сервисах. Но прога неделает, то что надо( должна менять заголовок у блокнота ). Посмотрите, что не так. ___________________________________ _______________________ Используйте для вложений не ZIP, а непрерывные RAR архивы. Экономит место и трафик. Последний раз редактировалось Alter; 27.01.2008 в 01:16. |
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
![]()
2 Alter:
Поставь свойство Interactive у Service в значение true или пропиши где-нить в коде Service1.Interactive:=true; и всё будет ок |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
application.ProcessMessages; | UROKSAN | Общие вопросы Delphi | 2 | 10.04.2008 13:32 |
Аналог Application.ProcessMessages() | Alter | Общие вопросы Delphi | 10 | 10.02.2008 00:58 |
Application.ProcessMessages | KAMASUTR | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 3 | 11.08.2007 23:38 |
Как остановить цикл без Application.ProcessMessages | Alar | Общие вопросы Delphi | 0 | 29.10.2006 20:18 |