Сервисная служба в Windows NT

← →
sdw_syscoder (2004-08-25 19:15) [0]

Кто-нибудь имеет опыт кодинга сервисных приложений для NT в Delphi или на WinAPI. Пока конкретных вопросов не имею, а вот принципы построения (желательно в примерах) таких программ хотелось бы узнать. В Инете, кстати, ничего путного не нашёл.

← →
Ega23 © (2004-08-25 19:21) [1]

Пока конкретных вопросов не имею, ...

"Чего тебе надобно, старче?" (с) А.С.Пушкин

← →
sdw_syscoder (2004-08-25 19:53) [2]

Дык, примерчик бы работающий кто-нибудь подогнал ... за спасибо.

← →
Ega23 © (2004-08-25 19:55) [3]

Примерчик чего?

← →
Mim1 © (2004-08-25 19:58) [4]

В диалоге создания вы можете получить работаюший ничего не делаюший сервис (ала службу).

"ч:\Program Files\Borland\Delphi7\Demos\WebServices\EchoService\"
"ч:\Program Files\Borland\Delphi7\Demos\WebServices\SOAPHeaders\"

← →
sdw_syscoder (2004-08-25 20:42) [5]

> Ega23 © (25.08.04 19:55) [3]
> Примерчик чего?
ПРИМЕР НАПИСАНИЯ СЛУЖБЫ, ПОЖАЛУЙСТА!

> Mim1 © (25.08.04 19:58) [4]
A нЕ МОГЛИ БЫ ВЫ СКИНУТЬ НА МЫЛО ЭТИ ПРОЕКТЫ А ТО В ШЕСТЕРКЕ ИХ НЕТ. (rdsgoldx%penza.com.ru).СПАСИБО!

← →
sdw_syscoder (2004-08-25 23:06) [6]

И теперь назрел конкретный вопрос, почему здесь возникает exception:

If Not StartServiceCtrlDispatcher(dispatchTable^) Then
Raise Exception.Create("StartServiceCtrlDispatcher failed.");

← →
sdw_syscoder (2004-08-25 23:46) [7]

Удалено модератором
Примечание: Создание пустых сообщений

← →
jack128 © (2004-08-26 00:12) [8]

есть у меня предположение - потому что функция StartServiceCtrlDispatcher возвращает False

> [7] sdw_syscoder (25.08.04 23:46)
> АУ!

Цирк, думаете после этого ктото будет отвечать?

А ник-то SysCoder...

← →
sdw_syscoder (2004-08-26 10:24) [11]

C добрым утром мужики!

> Mim1 © (26.08.04 07:51) [9]
За цирк извеняюсь и хотел, чтобы Вы прислали два исходничка из D7, находящиеся по этим путям, которые Вы мне и дали.
"X:\Program Files\Borland\Delphi7\Demos\WebServices\EchoService\"
"X:\Program Files\Borland\Delphi7\Demos\WebServices\SOAPHeaders\"

> Ega23 © (26.08.04 09:22) [10]
... А внешность всегда обманчива ... но когда-то им надо всё-таки становится, не правда ли? - "У знающих учись, а незнающих сам учи!"

> jack128 © (26.08.04 00:12) [8]
Функция StartServiceCtrlDispatcher, как я понял, должна приконнектить мой процесс к менеджеру служб. Что она возвращает False, я догадывался, спрашивается - "А почему"?

Спасибо за "информативные" ответы!

> Что она возвращает False, я догадывался, спрашивается -
> "А почему"?

Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Сервисная служба в Windows NT Найти похожие ветки