|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.12.2007, 20:38 | #1 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
Пишу службу... Есть ли там(в службах) что-то подобное Application.ProcessMessages? Просто как только вставляю в код безконечный цикл служба перестает реагировать на остановку/паузу, вообщем виснет. Помогите плиз!
Да, и ещё: как сделать, чтобы служба была постоянно запущена? То есть, если она ничего не делает, то при запуске пишет: Служба была запущена и затем остановлена. Некоторые службы автоматически останавливаются, если им нечего делать... |
01.01.2008, 14:05 | #2 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
Неужели никто не пожет мне помочь? Пожалуйста! Очень надо
|
02.01.2008, 02:13 | #3 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Во-первых :
application.ProcessMessages; В модуле Forms, добавь его в список. Во-вторых : делай так: Код:
Будут вопросы говорите.
Всё гениальное - просто!
|
02.01.2008, 06:49 | #4 |
Программист и
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,266
|
без комментариев
Код:
Последний раз редактировалось Simply-Art; 02.01.2008 в 06:52. Причина: забыл application.ProcessMessages; |
03.01.2008, 13:03 | #5 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
2 Simply-Art & Air:
Спасибо, но я так пробовал! Проблема в том, что из-за этого бесконечного цикла служба НЕ выключается из управления службами, а надо... Если не использовать бесконечный цикл, то она запускается и сразу же закрывается. И как тогда быть? |
03.01.2008, 18:21 | #6 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Вот подработал код.
Код:
Может это и наворочено, но пока это единственное решение. Будут вопросы говорите.
Всё гениальное - просто!
Последний раз редактировалось Air; 03.01.2008 в 18:39. Причина: Модификация кода |
07.01.2008, 13:49 | #7 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
2 Air:
Спасибо тебе огромное!!! Всё отлично работает! |
07.01.2008, 13:52 | #8 |
Форумчанин
Регистрация: 15.08.2007
Сообщений: 118
|
А как можно организовать общение программы со службой? Поясню:
надо, чтобы при запуске программы запускалась служба и ей(службе) передавались 2 строковых параметра... |
26.01.2008, 21:09 | #9 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,239
|
Консультация
Эта программа, всеголишь тест для проверки правильности кода. Мне надо знать как правильно использовать TServise.
Устанавливаю сервис батником, запускаю вручную в сервисах. Но прога неделает, то что надо( должна менять заголовок у блокнота ). Посмотрите, что не так. ___________________________________ _______________________ Используйте для вложений не ZIP, а непрерывные RAR архивы. Экономит место и трафик. Последний раз редактировалось Alter; 27.01.2008 в 01:16. |
26.01.2008, 21:58 | #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 |