Default path for Windows Service

[Anil Gupte]

I wrote my Windows Service first as a regular Windows Exe because it is
easier to debug. In that I used

AppDir = Application.Exe cutablePath.Sub string(0,
Application.Exe cutablePath.Las tIndexOf("\")) ' Where this application
Excutable sits

Now, when I am converting it to a Service, what path can I use? Or can I
specify a path in the service to always use as a data path? I would prefer
the former because I do not know the layout of the target computer.

--
Anil Gupte
www.keeninc.net
www.icinema.com

[Omar Abid]

On Sep 13, 11:39 am, "Anil Gupte" <[e-mail] mwrote:

I wrote my Windows Service first as a regular Windows Exe because it is
easier to debug. In that I used

AppDir = Application.Exe cutablePath.Sub string(0,
Application.Exe cutablePath.Las tIndexOf("\")) ' Where this application
Excutable sits

Now, when I am converting it to a Service, what path can I use? Or can I
specify a path in the service to always use as a data path? I would prefer
the former because I do not know the layout of the target computer.

--
Anil Guptewww.keenin c.netwww.icinem a.com

Try the WMI class to get Windows Default path

Imports System.Manageme nt
Public Class wmi
Private objOS As ManagementObjec tSearcher
Private objCS As ManagementObjec tSearcher
Private objMgmt As ManagementObjec t
Private m_strComputerNa me As String
Private m_strManufactur er As String
Private m_StrModel As String
Private m_strOSName As String
Private m_strOSVersion As String
Private m_strSystemType As String
Private m_strTPM As String
Private m_strWindowsDir As String
Public Sub New()

objOS = New ManagementObjec tSearcher("SELE CT * FROM
Win32_Operating System")
objCS = New ManagementObjec tSearcher("SELE CT * FROM
Win32_ComputerS ystem")
For Each objMgmt In objOS.Get
m_strOSName = objMgmt("name") .ToString()
m_strOSVersion = objMgmt("versio n").ToString ()
m_strComputerNa me = objMgmt("csname ").ToString ()
m_strWindowsDir = objMgmt("window sdirectory").To String()
Next

For Each objMgmt In objCS.Get
m_strManufactur er = objMgmt("manufa cturer").ToStri ng()
m_StrModel = objMgmt("model" ).ToString()
m_strSystemType = objMgmt("system type").ToString
m_strTPM = objMgmt("totalp hysicalmemory") .ToString()
Next
End Sub

Public ReadOnly Property ComputerName()
Get
ComputerName = m_strComputerNa me
End Get

End Property
Public ReadOnly Property Manufacturer()
Get
Manufacturer = m_strManufactur er
End Get

End Property
Public ReadOnly Property Model()
Get
Model = m_StrModel
End Get

End Property
Public ReadOnly Property OsName()
Get
OsName = m_strOSName
End Get

End Property

Public ReadOnly Property OSVersion()
Get
OSVersion = m_strOSVersion
End Get

End Property
Public ReadOnly Property SystemType()
Get
SystemType = m_strSystemType
End Get

End Property
Public ReadOnly Property TotalPhysicalMe mory()
Get
TotalPhysicalMe mory = m_strTPM
End Get

End Property

Public ReadOnly Property WindowsDirector y()
Get
WindowsDirector y = m_strWindowsDir
End Get

End Property
Public ReadOnly Property FontDirectory()
Get
FontDirectory = m_strWindowsDir & "\font".ToU pper
End Get
End Property
End Class

[Stephany Young]

Well that might be all very well if the OP wanted the path to the Windows
directory.

But he doesn't. He wants the path of the directory where the
application/service executable resides.
"Omar Abid" <om***********@ gmail.comwrote in message
news:11******** **************@ g4g2000hsf.goog legroups.com...

On Sep 13, 11:39 am, "Anil Gupte" <[e-mail] mwrote:

>I wrote my Windows Service first as a regular Windows Exe because it is
easier to debug. In that I used

AppDir = Application.Exe cutablePath.Sub string(0,
Application.Ex ecutablePath.La stIndexOf("\")) ' Where this application
Excutable sits

Now, when I am converting it to a Service, what path can I use? Or can I
specify a path in the service to always use as a data path? I would
prefer
the former because I do not know the layout of the target computer.

--
Anil Guptewww.keenin c.netwww.icinem a.com

Try the WMI class to get Windows Default path

Imports System.Manageme nt
Public Class wmi
Private objOS As ManagementObjec tSearcher
Private objCS As ManagementObjec tSearcher
Private objMgmt As ManagementObjec t
Private m_strComputerNa me As String
Private m_strManufactur er As String
Private m_StrModel As String
Private m_strOSName As String
Private m_strOSVersion As String
Private m_strSystemType As String
Private m_strTPM As String
Private m_strWindowsDir As String
Public Sub New()

objOS = New ManagementObjec tSearcher("SELE CT * FROM
Win32_Operating System")
objCS = New ManagementObjec tSearcher("SELE CT * FROM
Win32_ComputerS ystem")
For Each objMgmt In objOS.Get
m_strOSName = objMgmt("name") .ToString()
m_strOSVersion = objMgmt("versio n").ToString ()
m_strComputerNa me = objMgmt("csname ").ToString ()
m_strWindowsDir = objMgmt("window sdirectory").To String()
Next

For Each objMgmt In objCS.Get
m_strManufactur er = objMgmt("manufa cturer").ToStri ng()
m_StrModel = objMgmt("model" ).ToString()
m_strSystemType = objMgmt("system type").ToString
m_strTPM = objMgmt("totalp hysicalmemory") .ToString()
Next
End Sub

Public ReadOnly Property ComputerName()
Get
ComputerName = m_strComputerNa me
End Get

End Property
Public ReadOnly Property Manufacturer()
Get
Manufacturer = m_strManufactur er
End Get

End Property
Public ReadOnly Property Model()
Get
Model = m_StrModel
End Get

End Property
Public ReadOnly Property OsName()
Get
OsName = m_strOSName
End Get

End Property

Public ReadOnly Property OSVersion()
Get
OSVersion = m_strOSVersion
End Get

End Property
Public ReadOnly Property SystemType()
Get
SystemType = m_strSystemType
End Get

End Property
Public ReadOnly Property TotalPhysicalMe mory()
Get
TotalPhysicalMe mory = m_strTPM
End Get

End Property

Public ReadOnly Property WindowsDirector y()
Get
WindowsDirector y = m_strWindowsDir
End Get

End Property
Public ReadOnly Property FontDirectory()
Get
FontDirectory = m_strWindowsDir & "\font".ToU pper
End Get
End Property
End Class

[Anil Gupte]

Thanx, I will try that.

--
Anil Gupte
www.keeninc.net
www.icinema.com

"Stephany Young" <noone@localhos twrote in message
news:el******** *****@TK2MSFTNG P06.phx.gbl...

An easier way than using the SubString and LastIndexOf methods is:

AppDir = System.IO.Path. GetDirectoryNam e(Application.E xecutablePath)

If you include a reference to System.Windows. Forms in your service then
you can still use that. You can include that reference without having to
include a form.

An alternative is:

System.Reflecti on.Assembly.Get ExecutingAssemb ly().Location

which, with some Imports ... can be written as:

AppDir =
Path.GetDirecto ryName([Assembly].GetExecutingAs sembly().Locati on)
"Anil Gupte" <an*******@icin ema.comwrote in message
news:eH******** ******@TK2MSFTN GP03.phx.gbl...

>>I wrote my Windows Service first as a regular Windows Exe because it is
easier to debug. In that I used

AppDir = Application.Exe cutablePath.Sub string(0,
Application.Ex ecutablePath.La stIndexOf("\")) ' Where this application
Excutable sits

Now, when I am converting it to a Service, what path can I use? Or can I
specify a path in the service to always use as a data path? I would
prefer the former because I do not know the layout of the target
computer.

--
Anil Gupte
www.keeninc.net
www.icinema.com

[Stephany Young]

An easier way than using the SubString and LastIndexOf methods is:

AppDir = System.IO.Path. GetDirectoryNam e(Application.E xecutablePath)

If you include a reference to System.Windows. Forms in your service then you
can still use that. You can include that reference without having to include
a form.

An alternative is:

System.Reflecti on.Assembly.Get ExecutingAssemb ly().Location

which, with some Imports ... can be written as:

AppDir = Path.GetDirecto ryName([Assembly].GetExecutingAs sembly().Locati on)
"Anil Gupte" <an*******@icin ema.comwrote in message
news:eH******** ******@TK2MSFTN GP03.phx.gbl...

>I wrote my Windows Service first as a regular Windows Exe because it is
easier to debug. In that I used

AppDir = Application.Exe cutablePath.Sub string(0,
Application.Exe cutablePath.Las tIndexOf("\")) ' Where this application
Excutable sits

Now, when I am converting it to a Service, what path can I use? Or can I
specify a path in the service to always use as a data path? I would
prefer the former because I do not know the layout of the target computer.

--
Anil Gupte
www.keeninc.net
www.icinema.com

[Phill W.]

Anil Gupte wrote:

I wrote my Windows Service first as a regular Windows Exe because it is
easier to debug.

Better still, put your "processing " into a class. Then you can
instantiate and run it from either a Service or, say, a Console
application. Even /easier/ to debug. :-)

In that I used

AppDir = Application.Exe cutablePath.Sub string(0,
Application.Exe cutablePath.Las tIndexOf("\"))

Have you come across System.IO.Path yet?

Now, when I am converting it to a Service, what path can I use?

I use this:

Dim sExeFile as String _
= System.Reflecti on.Assembly.Get EntryAssembly() .Location
Dim sExeDir as String _
= System.IO.Path. GetDirectory( sExeFile )

I would prefer the former because I do not know the layout
of the target computer.

HTH,
Phill W.

[Anil Gupte]

Better still, put your "processing " into a class. Then you can

instantiate and run it from either a Service or, say, a Console
application. Even /easier/ to debug. :-)

I am having a problem getting the service to start and I cannot debug it. I
installed it on a different computer using installutil.exe In the Services
list, it appears, and I can hit start. However, I get a message saying
something to the effect that ther service started and then stopped and that
this was typical of services that "have nothing to do". Mine should do
something! My code looks like this:

Imports System.ServiceP rocess
Imports System.Data.Ole Db
Imports WMEncoderLib

#Region " Component Designer generated code "

Public Class MediaEncoderSer vice
Inherits System.ServiceP rocess.ServiceB ase
Dim WithEvents MediaEncoder As WMEncoder
Protected Overrides Sub OnStart(ByVal args() As String)
MediaEncode()
End Sub
Private Sub MediaEncode()
etc...
End Sub
End Class

So, I can't debug it because it won't even start. The install gives no
errors. I am stumped.....
P.S. The onstop event is empty...

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com

"Phill W." <p-.-a-.-w-a-r-d-@-o-p-e-n-.-a-c-.-u-kwrote in message
news:fc******** **@south.jnrs.j a.net...

Anil Gupte wrote:

>I wrote my Windows Service first as a regular Windows Exe because it is
easier to debug.

Better still, put your "processing " into a class. Then you can
instantiate and run it from either a Service or, say, a Console
application. Even /easier/ to debug. :-)

>In that I used

>AppDir = Application.Exe cutablePath.Sub string(0,
Application.Ex ecutablePath.La stIndexOf("\"))

Have you come across System.IO.Path yet?

>Now, when I am converting it to a Service, what path can I use?

I use this:

Dim sExeFile as String _
= System.Reflecti on.Assembly.Get EntryAssembly() .Location
Dim sExeDir as String _
= System.IO.Path. GetDirectory( sExeFile )

>I would prefer the former because I do not know the layout
of the target computer.

HTH,
Phill W.

[Phill W.]

Anil Gupte wrote:

I am having a problem getting the service to start and I cannot debug it. I
installed it on a different computer using installutil.exe In the Services
list, it appears, and I can hit start. However, I get a message saying
something to the effect that ther service started and then stopped and that
this was typical of services that "have nothing to do".

Some thoughts about Services:

When they are started, the Service Control infrastructure calls your
OnStart method. This must return within a fixed time interval, or the
Service gets reported as "failing to start".
Don't call your "main processing" directly from OnStart.

You [normally] have to provide a loop construct to keep the service
running. This doesn't happen automatically as it does in a Windows
Forms app.

If you have large "units of work", watch out for OnStop.
The Service Control infrastructure calls your OnStop routine, which
allows you to "clean up" what the service is doing. When you return
from OnStop, the infrastructure tears down your service process, no
matter what it might still be doing.

Here's how I do it:

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

Private Sub tmrStarter_Elap sed( ...
' Kill the Timer - we don't need it again
tmrStarter.Stop ()

m_bShutdownComp lete = False
Do While Not m_bShutdownRequ ested
DoProcessing()
System.Threadin g.Thread.Sleep( a_while )
Loop
m_bShutdownComp lete = True
End Sub

Sub OnStop()
m_bShutdownRequ ested = True
Do While Not m_bShutdownComp lete
System.Threadin g.Thread.Sleep( 1000 )
Loop
' Return from OnStop and your process gets torn down!
End Sub

Private m_bShutdownRequ ested as Boolean
Private m_bShutdownComp lete as Boolean

Private Sub DoProcessing()
' Do the useful work here

' If you have any loop constructs, you can include tests of
' m_bShutdownRequ ested, so that your service can respond
' quickly to stop requests.
End Sub

HTH,
Phill W.

[Anil Gupte]

Hmm, OK, a couple of issues.

1. My service will not even start. I tried putting a msgbox in the OnStart
event to see if would do anything at all, but even that did not show. That
means it is not even reaching the OnStart event. I am sure it will run my
main process fine if it gets there or at least I can start debugging -
question is how to make it get there.

2. I do have a timer in the code, but I am not sure I want to kill it. I
want the timer to start the main process every 10 minutes (it checks to see
if a file has been uploaded and if found, runs the encoder on it). Another
thing, do I have to start the timer in the OnStart even of the service?

Thanx,
--
Anil Gupte
www.keeninc.net
www.icinema.com

"Phill W." <p-.-a-.-w-a-r-d-@-o-p-e-n-.-a-c-.-u-kwrote in message
news:fc******** **@south.jnrs.j a.net...

Anil Gupte wrote:

>I am having a problem getting the service to start and I cannot debug it.
I installed it on a different computer using installutil.exe In the
Services list, it appears, and I can hit start. However, I get a message
saying something to the effect that ther service started and then stopped
and that this was typical of services that "have nothing to do".

Some thoughts about Services:

When they are started, the Service Control infrastructure calls your
OnStart method. This must return within a fixed time interval, or the
Service gets reported as "failing to start".
Don't call your "main processing" directly from OnStart.

You [normally] have to provide a loop construct to keep the service
running. This doesn't happen automatically as it does in a Windows Forms
app.

If you have large "units of work", watch out for OnStop.
The Service Control infrastructure calls your OnStop routine, which allows
you to "clean up" what the service is doing. When you return from OnStop,
the infrastructure tears down your service process, no matter what it
might still be doing.

Here's how I do it:

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

Private Sub tmrStarter_Elap sed( ...
' Kill the Timer - we don't need it again
tmrStarter.Stop ()

m_bShutdownComp lete = False
Do While Not m_bShutdownRequ ested
DoProcessing()
System.Threadin g.Thread.Sleep( a_while )
Loop
m_bShutdownComp lete = True
End Sub

Sub OnStop()
m_bShutdownRequ ested = True
Do While Not m_bShutdownComp lete
System.Threadin g.Thread.Sleep( 1000 )
Loop
' Return from OnStop and your process gets torn down!
End Sub

Private m_bShutdownRequ ested as Boolean
Private m_bShutdownComp lete as Boolean

Private Sub DoProcessing()
' Do the useful work here

' If you have any loop constructs, you can include tests of
' m_bShutdownRequ ested, so that your service can respond
' quickly to stop requests.
End Sub

HTH,
Phill W.

[Phill W.]

Anil Gupte wrote:

1. My service will not even start. I tried putting a msgbox in the OnStart
event to see if would do anything at all, but even that did not show. That
means it is not even reaching the OnStart event.

Not necessarily.
If a Windows Service displays a MsgBox, it gets shown on a "virtual
desktop" that is reserved for system processes. No user can get to see
this "desktop", so the service process would seem to hang (this is why
ASP doesn't have a MsgBox function).
At least it used to - Windows may be "clever" enough now to catch the
MsgBox and write it into the Event log instead.

I am sure it will run my main process fine if it gets there or at least
I can start debugging - question is how to make it get there.

Put a Sleep(15000) into OnStart. That will give you enough time to
attach the debugger to the running [service] process when you start it.

2. I do have a timer in the code, but I am not sure I want to kill it.
I want the timer to start the main process every 10 minutes.

And if your "real" processing takes longer than 10 minutes, what then?
Do you want two instances of the routine running at the same time?
it will.

Personally, I /only/ use the Timer to "sidestep" out of OnStart and to
launch a continuously running process with Sleep call in it for the
"gaps" between bouts of doing stuff. I've had problems where a missing
dependent assembly can cause the Timer-invoked routine to fail to load
but, since this method is invoked from the innards of the Framework,
there's no easy way to catch the resulting Exception.
With a coded loop, a simple Try .. Catch does the job.

Another thing, do I have to start the timer in the OnStart even of
the service?

Yes. Start and Stop timers explicitly; that way you can clearly see
what's going on.

HTH,
Phill W.