Re: Changing an application to a service...

[David]

"David" <da*********@yo owhoo.comwrote in message
news:3d******** *************** *******@comcast .com...

>
"Steve Gerrard" <my********@com cast.netwrote in message
news:VZ******** *************** *******@comcast .com...

>David wrote:

>>Hi,

I am trying to change an application to a service and am having a few
problems. Here are the steps I've been performing:

- Exclude all forms from project and delete all associated files.
- Disable use framework (.net application?) in project properties
- Switch application type to Service
- Add a service class to the project
- Add an installer to the service class and configure properties of
components for localservice and automatic startup
- Add a setup project
- Add primary output to setup project
- Set all custom actions to primary output

At this point I receive an error stating that there is no Main
subroutine. I did not have this problem last time I switched an
application to a service, years ago.

...

>>>
How should this program begin running? Through Main() or the
service's OnStart event? Do I need to use both? Can I use both?

I would suggest you start a new project, make it a windows service, and
go from there. I believe the service class has a designer file with it,
and a fairly convoluted bit of code dealing with starting the service. I
would not want to recreate that from scratch. Once you get that template
in place, from your point of view, an instance of your service class is
created for you, and you first get control in the OnStart event.

If you start it that way, you should be able to copy and paste, or copy
files over, to build up the rest of your application in the service.

Thanks Steve,

I'll give that a try.

david

No luck yet. I created a service from scratch but keep getting the "service
on local computer started and then stopped," error. I commented almost all
of the code in my OnStart subroutine yet the error persists. Any ideas why
this might be?

[Phill W.]

David wrote:

No luck yet. I created a service from scratch but keep getting the "service
on local computer started and then stopped," error.

Unlike Windows Applications, Services don't keep themselves "alive" all
by themselves. You usually have to code a simple loop construct to keep
the processing "going" otherwise they just get started (by the Service
Controller), call your OnStart routine and then, with nothing else to
do, curl up their toes and die.

I'd recommend a routine with a loop construct and some Sleep() calls,
initiated from a Timer that you start in onStart and that only ever
fires once (this allows OnStart to return quickly so that Service
Controller doesn't get upset that your service "isn't responding").

Sub OnStart()
tmrStarter.Star t()
End Sub

Private ServiceShutdown Requested as Boolean = False
Private ServiceShutdown Complete as Boolean = False

Sub tmrStarter_Elap sed( ... )
tmrStarter.Stop ()
Do While ( Not ServiceShutdown Requested )

DoSomethingUsef ul()

' Lots of little sleeps rather than one BIG one
' makes for a more better behaved Service
For i As Integer = 1 To 5
Thread.Sleep( 1000 )
Next
Loop
ServiceShutdown Complete = True
End Sub

Sub OnStop()
ServiceShutdown Requested = True
Do While ( Not ServiceShutdown Complete )
Thread.Sleep( 1000 )
Loop
End Sub
Note the extra bit in OnStop to handle Service "stop" requests cleanly.

As soon as you return from OnStop, the Service Controller will tear down
your Service process, no matter /what/ it's doing. The above construct
should let your "DoSomethingUse ful" routine complete before the service
collapses.

HTH,
Phill W.