Конференция VBStreets

**Костя** » 14.03.2005 (Пн) 11:43

Сервис, созданный с помощью NTService, не запускается в учётной записи с правами администратора. Говорит, что служба не ответила на запрос своевременно. А в учётной записи с правами обычного пользователя запускается. Никто не знает почему так?

**Konst_One** » 14.03.2005 (Пн) 12:23

у тебя она должна под каким админом запускаться?
если под локальным, то ты не должен быть в домене,
а если под доменным , то на машине он должен быть в группе админов

**Sebas** » 14.03.2005 (Пн) 12:29

А ты обработку запуска то написал?

**Костя** » 14.03.2005 (Пн) 12:29

2KOnst_one По идее она у меня должна под всеми админами запускаться... А никак нельзя сделать так, чтобы она запускалась под локальным, но подключённым к домену?
2Sebas А чего её писать-то? Зарегистрировал с помощью NTService1.Install, потом NTService1.StartService, ну и при выполнении на всякий случай Success = true. Interactive тоже = true.

**Sebas** » 14.03.2005 (Пн) 12:47

у............

-где ты сервис запискаешь(програмно)? Раз!
-безмазы! служба с логином+интерактив не покатит((((

**Костя** » 14.03.2005 (Пн) 13:00

Запускаю в Form_Load. А насчёт интерактива - без него тоже не катит.

**Sebas** » 14.03.2005 (Пн) 13:47

стартовый код пульни...

запуск и обработку запуска

**Костя** » 14.03.2005 (Пн) 14:04

Private sub form_load
Ну, в начале if command = "\install" then ntservice1.interactive = 1 и т.д.
***
ntservice1.startservice
end sub

private sub ntservice1_start(success as Boolean)
success = 1
***
end sub

private sub ntservice1_continue(success as boolean)
success = 1
***
end sub

Вот и, практически, всё.

**Sebas** » 14.03.2005 (Пн) 14:51

а для начала от систем запускал?

**Костя** » 14.03.2005 (Пн) 14:53

И от систем запускал, и вручную. Всё-равно не пашет.

**Sebas** » 14.03.2005 (Пн) 15:34

сделай систем и интерактив

вставь мсжбоксы в лоад и старт

где не работает?

**Костя** » 15.03.2005 (Вт) 7:38

При попытке запустить службу через управление службами даже форма не появляется.

**Sebas** » 15.03.2005 (Вт) 9:21

тоесть даже до точки входа не доходит?

а при запуске из IDE появляется?

**Костя** » 15.03.2005 (Вт) 10:47

Конечно! И при запуске в откомпилированном виде - тоже.

**Konst_One** » 15.03.2005 (Вт) 12:04

из под IDE отладить сервис нельзя
надо запускать откомпиленный
вставляй код отладки после каждой строки кода, отладку выводи в лог-файл, а потом анализируй.

**Sebas** » 15.03.2005 (Вт) 14:06

если при запуске сервера ехе не запускается появляется, значит неправильно инсталил. Путь правильный?

**Костя** » 15.03.2005 (Вт) 14:09

Правильный, и после инсталла оповещение, которое я привязал к свойству NTService1.install, говорит, что это свойство true.

**Sebas** » 15.03.2005 (Вт) 14:11

а имя не менял службы?

**Костя** » 16.03.2005 (Ср) 8:07

Имя службы правильное, соотвествует свойству ServiceName.
Насчёт логфайла. При загрузке формы две первые строчки:
Open "c:\log.log" For Output As #2
Print #2, "загрузка"
Так вот. Файл log.log создаётся, но в него ничего не записывается.

**Sebas** » 16.03.2005 (Ср) 11:22

Костя писал(а):Имя службы правильное, соотвествует свойству ServiceName.
Насчёт логфайла. При загрузке формы две первые строчки:
Open "c:\log.log" For Output As #2
Print #2, "загрузка"
Так вот. Файл log.log создаётся, но в него ничего не записывается.

ёмаё

Открывай как Append и тут же закрывай, а то току не будет))))

**Костя** » 16.03.2005 (Ср) 12:10

Сработало! Правда, непонятно, почему for append работает, а for output нет. Но это не важно. Проблема была в строке
if ntservice1.install then x = beep(40,40)
Какая, ещё не понял. Но разберусь. Спасибо!

**Pantalone** » 31.03.2009 (Вт) 23:32

О, напишу в тему. Мне не понятно, если сервис уже установлен, то при запуске экзешника сервис должен атвоматом запуститься поскольку в форме есть вызов NTService1.StartService?

Т.е.

Код: Выделить всё: Private Sub Form_Load() NTService1.StartService End Sub

Этим получается служба сама себя запускает? Или ее все-таки надо лезть в админку руками запускать?
Просто у меня не запускается служба так нихрена. Она запускается только если руками запустить из остнастки служб и форма тогда открывается и все нормально. А вот если через сам экзешник запускать, служба не стартует. Нафига тогда NTService1.StartService существует?

Вот кстати сам файлик OCX и пример под него от создателей.
У меня ни на 2003 ни на ХР установленная служба не запускается через запуск EXE. У кого-нибудь запускается? Ведь должна!

**jangle** » 01.04.2009 (Ср) 11:47

Ты хоть код свой смотрел? Там же прямо первый строках прописан ключ -install для инсталляции сервиса

**Pantalone** » 01.04.2009 (Ср) 15:29

jangle писал(а):Ты хоть код свой смотрел? Там же прямо первый строках прописан ключ -install для инсталляции сервиса

Вопрос был не об этом. Я поднял старую тему, если ты отвечал на первый пост

**jangle** » 01.04.2009 (Ср) 19:27

Pantalone писал(а):Вопрос был не об этом. Я поднял старую тему, если ты отвечал на первый пост

Я отвечал на твой вопрос.

Конференция VBStreets

Проблемы при использовании NTService.

Проблемы при использовании NTService.

Re: Проблемы при использовании NTService.

Re: Проблемы при использовании NTService.

Re: Проблемы при использовании NTService.

Re: Проблемы при использовании NTService.

Кто сейчас на конференции