Релиб / Программирование / .NET / VB.NET / Запуск windows службы / Latest Posts

RE: Запуск windows службы

bazile — Mon, 02 Jul 2007 17:41:15 GMT

[quote][b]babken76 (02.07.2007)[/b][hr]Убрал вообще таймер из проекта. Результат тот же.[/quote]

Любопытно. А что будет если закоментировать код в процедурах OnStart/OnStop/OnPause/OnContinue? То есть оставить голый скелет без реального кода. Если и такой вариант будет слетать, то проблема явно не в твоем коде.

Кстати, почему у тебя закоментировано наследование от ServiceBase?

RE: Запуск windows службы

bazile — Mon, 02 Jul 2007 17:36:46 GMT

У меня нет Visual Basic чтобы кинуть сюда проверенный код поэтому объясню на словах.

Объяви в классе private переменную типа System.Threading.Timer. Создай два метода StartTimer и StopTimer. Добавь вызов StartTimer в методы OnStart и OnContinue, а вызов StopTimer в OnStop и в OnPause.

Создай метод c кодом из Timer1_Tick

Private Sub OnTimerTick(Object state)
...
End Sub

В методе StartTimer напиши код создающий экземпляр System.Threading.Timer. Надо вызывать конструктор с 4 аргументами: 1) адрес функции OnTimerTick 2) доп. аргумент для функции таймера (Nothing) 3) 0 4) 1000.

В методе StopTimer надо сделать вызов метода Timer.Change(Timeout.Infinite) - чтобы остановить таймер и присвоение переменной класса значения Nothing чтобы ее подобрал сборщик мусора.

Вроде все.

RE: Запуск windows службы

babken76 — Mon, 02 Jul 2007 17:25:45 GMT

Убрал вообще таймер из проекта. Результат тот же.

С уважением,

RE: Запуск windows службы

babken76 — Mon, 02 Jul 2007 16:37:29 GMT

Как использовать в службе System.Threading.Timer сам не разобрался. Если можно пример.

С уважением,

RE: Запуск windows службы

bazile — Mon, 02 Jul 2007 15:17:19 GMT

Рискну предположить что это происходит из-за использования класса System.Windows.Forms.Timer (переменная Timer1). Этот тип таймеров предназначен для использования только в GUI приложениях так как работает через механизм оконнных сообщений. Попробуй использовать класс System.Threading.Timer.

Запуск windows службы

babken76 — Mon, 02 Jul 2007 14:40:02 GMT

Прочел в книге А. Гарнаева о создании служб в 2003 студии.
в vs 2005 сделал по аналогии:
1.
[code]
Imports System.IO
Imports System.ServiceProcess

Public Class FPDServ
'Inherits System.ServiceProcess.servisebase

Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.
Dim f As TextWriter = New StreamWriter("c:\test.txt")
f.WriteLine("on")
f.Close()
Timer1.Enabled = True
Timer1.Interval = 1000
EventLog.WriteEntry("FPDServe on")
End Sub

Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
Timer1.Enabled = False
Dim f As TextWriter = New StreamWriter("c:\test.txt")
f.WriteLine("off")
f.Close()
EventLog.WriteEntry("FPDServe off")
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim f As IO.StreamWriter = New IO.StreamWriter("c:\test.txt", True)
f.WriteLine("PerformanceCounter " & PerformanceCounter1.NextValue.ToString _
& TimeOfDay.ToLongTimeString)
f.Close()
End Sub

Protected Overrides Sub OnContinue()
MyBase.OnContinue() 'auto gen
Dim f As TextWriter = New StreamWriter("c:\test.txt")
f.WriteLine("Continue")
f.Close()
EventLog.WriteEntry("FPDServe Continue")
End Sub

Protected Overrides Sub OnPause()
MyBase.OnPause() 'auto gen
Dim f As TextWriter = New StreamWriter("c:\test.txt")
f.WriteLine("Pause")
f.Close()
EventLog.WriteEntry("FPDServe Paused")
End Sub

End Class
[/code]

2. Добавил Installer.
ServiceInstaller.Name = FPDServe ' ИмяМоегоСервиса
ServiceProcessInstaller.Account = LocalSystem
Успешно откомпилировал.

3. Успешно установил.
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\InstallUtil.exe FPDServe.exe

При попытке запуска службы из оснастки выдается сообщение
An unhandled exception ('System.InvalidOperationException') occured in FPDServe.exe [968] с предложением отладки в VS 2005
Затем выдается сообщение:
Ошибка 1053: Служба не ответила на запрос своевременно.

Использую WinXP,
.NET Framework 2.0 Configuration
(version 2.0.50727.42)

С уважением,