Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сервисная служба в Windows NT [D6, WinXP]

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

Digitman (2004-08-26 10:30:00) [1]

> Что она возвращает 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.

sdw_syscoder (2004-08-26 10:24:00) [2]
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, я догадывался, спрашивается - "А почему"?

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

Ega23 (2004-08-26 09:22:00) [3]
А ник-то SysCoder...

Mim1 (2004-08-26 07:51:00) [4]

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

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

jack128 (2004-08-26 00:12:00) [5]
есть у меня предположение - потому что функция StartServiceCtrlDispatcher возвращает False

sdw_syscoder (2004-08-25 23:46:00) [6]
Удалено модератором
Примечание: Создание пустых сообщений

sdw_syscoder (2004-08-25 23:06:00) [7]
И теперь назрел конкретный вопрос, почему здесь возникает exception:

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

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

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

Mim1 (2004-08-25 19:58:00) [9]
В диалоге создания вы можете получить работаюший ничего не делаюший сервис (ала службу).

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

Ega23 (2004-08-25 19:55:00) [10]
Примерчик чего?

sdw_syscoder (2004-08-25 19:53:00) [11]
Дык, примерчик бы работающий кто-нибудь подогнал ... за спасибо.

Ega23 (2004-08-25 19:21:00) [12]
Пока конкретных вопросов не имею, ...

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »