Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB .NET > Помогите разобраться со службой


Автор: Dimkostav 18.6.2010, 12:19
Здравствуйте!
Пытаюсь написать свою первую службу. Не получается никак заставить её выполнять хоть какие-нибудь действия. А именно:

Создал новый проект Windows Service. Затем поместил в поле дизайнера элемент Timer1.
Далее 
Код

Public Class Service1

    Dim myLog As New EventLog()

    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.
        Timer1.Interval = 600
        Timer1.Enabled = True

        If Not EventLog.SourceExists("MySource") Then
            EventLog.CreateEventSource("MySource", "MyNewLog")
        End If

        ' Create an EventLog instance and assign its source.
        myLog.Source = "MySource"
        ' Write an informational entry to the event log.    
        myLog.WriteEntry("Writing to event log.")
    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        myLog.WriteEntry(DateTime.Now.ToShortDateString.ToString)
        MsgBox(DateTime.Now.ToShortDateString.ToString, MsgBoxStyle.OkOnly, )
    End Sub

End Class


Добавил инсталятор. В ServiceProcessInstaller1 Account = LocalSystem. Собрал решение. Установил службу с помощью VS 2010 command prompt. После запуска службы из оснастки "Службы" в созданную ветку журнала MyMewLog добавляется новая запись
 
Код

 myLog.WriteEntry("Writing to event log.")

и в журнале событий гаписано, что служба запущена, т.е. всё норм вроде с запуском службы и остановкой. А вот таймер что-то не работает и MsgBox не выдаёт, и в MyNewLog ничего не пишет. Почему? Как заставить его писать в журнал соответственно коду и выдавать сообщения?
Спасибо.

Автор: Dimkostav 18.6.2010, 12:46
Весь аццкий дьвол в мелочах. Во-первых использовал таймер из System.Timers.Timer, во-вторых ошибки были в коде. Вот правильный код:
Код

Public Class Service1

    Dim myLog As New EventLog()

    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.
        Timer2.Interval = 10000
        Timer2.Enabled = True

        If Not EventLog.SourceExists("MySource") Then
            EventLog.CreateEventSource("MySource", "MyNewLog")
        End If

        ' Create an EventLog instance and assign its source.
        myLog.Source = "MySource"
        ' Write an informational entry to the event log.    
        myLog.WriteEntry("Writing to event log.")
    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        Timer2.Enabled = False
    End Sub


    Private Sub Timer2_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer2.Elapsed
        myLog.Source = "MySource"
        myLog.WriteEntry(DateTime.Now.ToShortDateString.ToString)
        MsgBox(DateTime.Now.ToShortDateString.ToString, MsgBoxStyle.OkOnly, "Сообщение службы")
    End Sub
End Class

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)