Сервис в Windows2000Server

← →
Weare © (2002-09-02 12:40) [0]

Уважаемые мастера, я написал небольшую прогу, которая в определенное время копирует данные на другой диск. Подскажите, пожалуйста, как сделать мне ее сервисом. Т.е., чтобы при завершении сеанса она все равно срабатывала. Буду очень благодарен.

← →
neg2001 (2002-09-02 13:24) [1]

В Delphi можно создавать сервисы. File->New->Other->Service Application. Создаёшь новый проект в который включен некоторй сервис. Далее, обрабатываешь события OnStart, OnStop, OnPause и OnContinue. Например в OnStart создаёшь некий TDataModule или какой либо другой объект, а в OnStop его удаляешь. Единственная проблема - в сервисе объект Application совсем другой, нежели в обыкновенной программы, напремер нет ExeName.

← →
Turalyon © (2002-09-02 13:27) [2]

А не проще ли будет воспользоваться простым шедуллером? Если программа делает простые действия в определенное время? Зачем ей постоянно висеть в памяти?

← →
Ученик © (2002-09-02 13:27) [3]

>neg2001 (02.09.02 13:24)

Есть Forms.Application.ExeName :-)

← →
neg2001 (2002-09-02 13:29) [4]

Ученику.
Спасибо, теперь буду знать.

← →
Weare © (2002-09-02 14:07) [5]

Спасибо, попробую. А вопрос задавал, так как нужно еще одну прогу написать, так вот там нужен сервис.
Еще раз огр. спасибо.

← →
Weare © (2002-09-04 19:27) [6]

Люди добрые. В написании сервисов под NT я полный чайник. Вот neg20001 подсказал идею, но у меня ничего не получается. Почитал хэлп, но мне там не все ясно, т.е. мне не совсем понятно что куда приатачить (Run/Attach to Process). Наверое я вообще что-то не то делаю. Если Вам не трудно, то пожалуйста опишите что за чем нужно выполнять, за какие события и свойства хвататься, или код какой показательный (а то что-то совсем мозги не варят). Может быть ссылку на какой-то показательный пример. Ведь мне всего навсего нужно, чтобы прога висела, когда пользователь завершил сеанс.
Меня уже время поджимает, буду очень признателен.

← →
TTCustomDelphiMaster © (2002-09-04 21:31) [7]

http://www.delphi.xonix.ru/article/?id=makeservice

← →
Weare © (2002-09-05 13:32) [8]

> TTCustomDelphiMaster

Спасибо, но это немножко не то, вернее там предлагается все самому писать. Но ведь в Delphi5 есть готовый инструмент Service Application. И мне бы вот с ним научиться работать.
Мастера, может кто подскажет как, а то у меня уже мозга за мозгу заехала.

>Weare © (05.09.02 13:32)
Хочешь я тебе на мыло скину мой примерчик сервис?
А вообще когда этим занимался то в инете дельного почит ничего не нашел к сожалению... по этому и сервис у меня кривоватый немного, но зато работает :)

> Turalyon ©
> А вообще когда этим занимался то в инете дельного почит
> ничего не нашел к сожалению...

Я вот тоже искал, результат тотже.
А примерчик скинь (буду очень благодарен), и если не трудно может хоть какие-нибудь сущесвенные комменты. А то я тут в хелпе уже все облазил, и только еще более запутался.

Послушайте, что никто больше про это ничего не знает? Ну может ли кто чем-нибудь помочь???

В "Примерах" к MSDN (они по умолчанию не копируются на диск) есть пример реализации сервиса.
Microsoft Visual Studio\MSDN98\98VS\1033\SAMPLES\VC98\SDK\WINBASE\WINNT\SERVICE\

Посмотрите, как там все сделано. А по поводу TService и ему подобных, ...

... Так ведь не сошелся же свет клином только на одних компонентах и VCL. Прежде всего учите матчасть. :-)))

Сервис в Windows2000Server Найти похожие ветки