Loop in Window Service

[Li Pang]

Hi,

I wrote a window service in VB6, where I used a loop to continue check
something. Now, I transfer it into vb.NET. I can setup service with a mis
file, but when I start the service, it takes a while to complete and gives at
the end an error. As long as I remove the loop (a single run) it works
properly. Anyone can give an explanation and solution. How to a window
service in a continue way.

Thanks

[Li Pang]

This is a bug of FW 1.1 I found this link to fix
http://support.microsoft.com/?kbid=839174

"Li Pang" wrote:

Hi,

I wrote a window service in VB6, where I used a loop to continue check
something. Now, I transfer it into vb.NET. I can setup service with a mis
file, but when I start the service, it takes a while to complete and gives at
the end an error. As long as I remove the loop (a single run) it works
properly. Anyone can give an explanation and solution. How to a window
service in a continue way.

Thanks

[Phill. W]

"Li Pang" <Li****@discussions.microsoft.com> wrote in message
news:AF**********************************@microsof t.com...

when I start the service, it takes a while to complete and gives at
the end an error.

Your service should do /as little as possible/ in the OnStart routine,
preferably just starting a [one-off] Timer from whose Timer Event the
Real Work gets started.
This allows the OnStart routine to return (to the Service Control
Manager) more quickly, preventing this error.

Sub OnStart()
tmrRunner.Interval = 500
tmrRunner.Enabled = True
End Sub

Sub tmrRunner_Timer
tmrRunner.Enabled = False

Do While True
' Do the Real Job
End Do

End Sub

HTH,
Phill W.

[Li Pang]

Hi Phill. W,
FW 1.1 SP1 can't help to resolve the problem, but using a timer seems very
useful. Thanks for your suggestion.

"Phill. W" wrote:

"Li Pang" <Li****@discussions.microsoft.com> wrote in message
news:AF**********************************@microsof t.com...

when I start the service, it takes a while to complete and gives at
the end an error.

Your service should do /as little as possible/ in the OnStart routine,
preferably just starting a [one-off] Timer from whose Timer Event the
Real Work gets started.
This allows the OnStart routine to return (to the Service Control
Manager) more quickly, preventing this error.

Sub OnStart()
tmrRunner.Interval = 500
tmrRunner.Enabled = True
End Sub

Sub tmrRunner_Timer
tmrRunner.Enabled = False

Do While True
' Do the Real Job
End Do

End Sub

HTH,
Phill W.