Timer in a Window Service not "ticking"

[Chris Hayes]

I'm trying to create a nifty Windows Service that will perform tasks at a
predetermined interval.

To make sure I understand the timing correctly I have set an emailer utility
to email me on the start and stop of the service...this works fine. However,
I am trying to test the "ticking" of the timer control and have an emailer
in the sub that handles the timer tick, unfortunately it does not appear to
be ticking...

Can anyone tell me what I'm doing wrong here? (Code below)

Thanks Chris,

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.

'load settings xml file

Dim xmlSettings As New XmlDocument()

xmlSettings.Loa d("c:\carrotink \nexus\nexusser vice\settings.x ml")

'set connection string carrot patch node

Dim nodeConnectionS tringCarrotPatc h As XmlNode =
xmlSettings.Doc umentElement.Se lectSingleNode( "./settings/connectionStrin gs/c
arrotPatch")

'set connection string commerce node

Dim nodeConnectionS tringCommerce As XmlNode =
xmlSettings.Doc umentElement.Se lectSingleNode( "./settings/connectionStrin gs/c
ommerce")

'set smtp server node

Dim nodeSMTPServer As XmlNode =
xmlSettings.Doc umentElement.Se lectSingleNode( "./settings/notification/smtpSe
rver")

'set smtp server node

Dim nodeEmailSender As XmlNode =
xmlSettings.Doc umentElement.Se lectSingleNode( "./settings/notification/emailS
ender")

'instantiate settings object

_settings = New NexusService.Se ttings(nodeSMTP Server.InnerTex t,
nodeEmailSender .InnerText, nodeConnectionS tringCarrotPatc h.InnerText,
nodeConnectionS tringCommerce.I nnerText)

'start the timer

timerMain.Inter val = 5000

timerMain.Enabl ed = True

timerMain.Start ()

'send an email that service has started

Dim notifier As New NexusService.No tification(Me.S ettings)

notifier.Email. Notify("chris", "Service - STARTED - " + Now(), "Service -
STARTED at " + Now(), Web.Mail.MailPr iority.Normal)

End Sub

Private Sub timerMain_Tick( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles timerMain.Tick

Dim notifier As New NexusService.No tification(Me.S ettings)

notifier.Email. Notify("chris", "Service RUNNING - " + Now(), "Service -
RUNNING at " + Now(), Web.Mail.MailPr iority.Normal)

End Sub

Protected Overrides Sub OnStop()

' Add code here to perform any tear-down necessary to stop your service.

timerMain.Stop( )

Dim notifier As New NexusService.No tification(Me.S ettings)

notifier.Email. Notify("chris", "STOPPED - " + Now(), "Service - STOPPED at "
+ Now(), Web.Mail.MailPr iority.Normal)

End Sub

[Tom Shelton]

In article <#w************ **@TK2MSFTNGP12 .phx.gbl>, Chris Hayes wrote:

<snip>

Chris,

Without looking to closely :), it is my guess that your timer is a
System.Windows. Forms.Timer. That will not work without a message pump
on the thread. You will want to use either the System.Timers.T imer or
the System.Threadin g.Timer.

--
Tom Shelton
MVP [Visual Basic]

[Chris Hayes]

Thanks Tom!

I didn't realize that.

Setting it up as a System.Timers.T imer works like a champ!

I hereby proclaim you a guru.

Thanks again,

Chris
"Tom Shelton" <to*@mtogden.co m> wrote in message
news:Ow******** ******@TK2MSFTN GP09.phx.gbl...

In article <#w************ **@TK2MSFTNGP12 .phx.gbl>, Chris Hayes wrote:

<snip>

Chris,

Without looking to closely :), it is my guess that your timer is a
System.Windows. Forms.Timer. That will not work without a message pump
on the thread. You will want to use either the System.Timers.T imer or
the System.Threadin g.Timer.

--
Tom Shelton
MVP [Visual Basic]

[Rafael Pivato]

"I hereby proclaim you a guru."
(Chris Hayes)
That's nice Tom Shelton... ;-)
"Tom Shelton" <to*@mtogden.co m> escreveu na mensagem
news:Ow******** ******@TK2MSFTN GP09.phx.gbl...

In article <#w************ **@TK2MSFTNGP12 .phx.gbl>, Chris Hayes wrote:

<snip>

Chris,

Without looking to closely :), it is my guess that your timer is a
System.Windows. Forms.Timer. That will not work without a message pump
on the thread. You will want to use either the System.Timers.T imer or
the System.Threadin g.Timer.

--
Tom Shelton
MVP [Visual Basic]