VPF::Помогите разобраться со службой

Dimkostav

Дата 18.6.2010, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 20.1.2009

Репутация: нет
Всего: нет

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

Создал новый проект 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 20.1.2009

Репутация: нет
Всего: нет

Весь аццкий дьвол в мелочах. Во-первых использовал таймер из 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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »