Re: Windows Service installed but not working???

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: acool (none_at_sendme.com)
Date: 05/18/04 

Date: Tue, 18 May 2004 10:14:15 -0400

I think I am missing soething here is my code:

Imports System.ServiceProcess
Imports System.IO
Imports System.Diagnostics

Protected Overrides Sub OnStart(ByVal args() As String)
        ' Create a new FileSystemWatcher and set its properties.

        Dim watcher As New FileSystemWatcher
        watcher.Path = "C:\Temp"
        watcher.Filter = "*.xls"

        ' Add event handlers.
        AddHandler watcher.Changed, AddressOf OnChanged
        AddHandler watcher.Created, AddressOf OnCreated
        AddHandler watcher.Deleted, AddressOf OnChanged
        AddHandler watcher.Renamed, AddressOf OnRenamed

        ' Begin watching.
        watcher.EnableRaisingEvents = True

    End Sub

    ' Define the event handlers.
    Private Shared Sub OnChanged(ByVal source As Object, ByVal e As
FileSystemEventArgs)
        ' Specify what is done when a file is changed, created, or deleted.
    End Sub

    Private Shared Sub OnRenamed(ByVal source As Object, ByVal e As
RenamedEventArgs)
        ' Specify what is done when a file is renamed.
    End Sub

    Private Sub OnCreated(ByVal source As Object, ByVal e As
FileSystemEventArgs)
        ' Specify what is done when a file is created.
         File.Create("C:\Temp\OnCreated.txt")
    End Sub

So basically when I drop an excel file in my temp folder I want the
OnCreated event to do something. This works fine in a form but not in my
service. I knw I am missing something I just don't know what.

"Jay B. Harlow [MVP - Outlook]" <Jay_Harlow_MVP@msn.com> wrote in message
news:OniN85NPEHA.3988@tk2msftngp13.phx.gbl...
> Are you doing too much work in the OnStart method?
>
> Have you tried debugging your service:
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vsdebug/html/vxtskdebugginwindowsservice.asp
>
> Specifically:
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon/html/vbtskdebuggingserviceapplications.asp
>
> Normally what I do is include a healthy amount of event log messages (via
> theServiceBase.EventLog property ) especially in any asynchronous events
> that may be raised within the service. Plus I will include Debug.Write &
> Trace.Write in strategic locations.
>
> Something like:
>
> Public Class MyService
> Inherits System.ServiceProcess.ServiceBase
>
> Private WithEvents Timer1 As System.Timers.Timer
>
> Public Sub New()
> MyBase.New()
>
> ' This call is required by the Component Designer.
> InitializeComponent()
>
> ' Add any initialization after the InitializeComponent() call
>
> AddHandler AppDomain.CurrentDomain.UnhandledException, _
> AddressOf AppDomain_UnhandledException
> End Sub
>
> 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.Start()
> End Sub
>
> Protected Overrides Sub OnStop()
> ' Add code here to perform any tear-down necessary to stop your
> service.
> Timer1.Stop()
> End Sub
>
> Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As
> System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
> Try
> EventLog.WriteEntry("Timer elapsed handler started",
> EventLogEntryType.Information)
>
> ' Do work here
>
> EventLog.WriteEntry("Timer elapsed handler finished",
> EventLogEntryType.Information)
> Catch ex As Exception
> EventLog.WriteEntry(ex.ToString(), EventLogEntryType.Error)
> End Try
> End Sub
>
> Private Sub AppDomain_UnhandledException(ByVal sender As Object, _
> ByVal e As UnhandledExceptionEventArgs)
> EventLog.WriteEntry(e.ExceptionObject.ToString(),
> EventLogEntryType.Error)
> End Sub
>
>
> End Class
>
> Note EventLog is inherited from ServiceBase and will be the normal event
log
> for your service, you can override ServiceBase.EventLog if you want to use
a
> different Event log.
>
> I configure Debug & Trace to go to a log file.
>
> In your app.config of your Windows Service project:
> <?xml version="1.0" encoding="utf-8" ?>
> <configuration>
> <system.diagnostics>
> <trace autoflush="true" indentsize="4">
> <listeners>
> <add name="myListener"
type="System.Diagnostics.TextWriterTraceListener"
> initializeData="MyService.log" />
> </listeners>
> </trace>
> </system.diagnostics>
> </configuration>
>
>
> Note the UnhandledException event is not working as I expected in the
above,
> so I put the Elapsed event in its own Try/Catch.
>
> Hope this helps
> Jay
>
>
> "acool" <none@sendme.com> wrote in message
> news:O1uDD1NPEHA.2452@TK2MSFTNGP11.phx.gbl...
> > I managed to get my VB.NET service installed. Now I can't get it to do
> > anything. Tell me how do you debug smething like this if you have to
> > manually install the assembly to run it? the same code works just fine
in
> a
> > VB form but when I initiallize with the WS OnStart event I get nothing.
> Any
> > help is greatly appreciated.
> >
> >
> >
> > TB
> >
> >
>
>

Relevant Pages

  • Re: Losing SelectedIndex on Custom Listbox postback
    ... LoadViewState, and at every stage, the SelectedIndex of the custom ... ListBox is -1, regardless of how it was set on the page. ... > Public Sub New ... > Protected Overrides Sub OnLoad ...
    (microsoft.public.dotnet.framework.aspnet.webcontrols)
  • Re: .Net Services (transfering Data from AS400 into SQL Server)
    ... Imports System.ServiceProcess ... Public Shared Sub Main ... Protected Overrides Sub OnStartAs String) ... 'I belive I HAVE to call the another class that does the Transfering ...
    (microsoft.public.dotnet.general)
  • Re: Windows Services
    ... Another choice is to use the Debug Viewer utility from ... > Normally what I do is include a healthy amount of event log messages (via ... > Public Sub New ... > Protected Overrides Sub OnStartAs String) ...
    (microsoft.public.dotnet.languages.vb)
  • Re: Windows service - what happens if the code takes longer to execute
    ... Protected Overrides Sub OnStartAs String) ... >> time it will take to process the loop below? ... >> Protected Overrides Sub OnStartAs String) ... >> dim obj as New ControllerClass ...
    (microsoft.public.dotnet.languages.vb)
  • Re: Windows Service installed but not working???
    ... partial sample to give you a feel for where to insert EventLog.WriteEntry ... >> Normally what I do is include a healthy amount of event log messages ... >> Public Sub New ... >> Protected Overrides Sub OnStartAs String) ...
    (microsoft.public.dotnet.languages.vb)