Problem while starting windows service

Question

0.00/5 (No votes)

See more:

Hi All,
I have written a Windows Service in VB.Net. It is getting installed properly on machine.
But when i start the service, a message comes as The <servicename> on local computer started and then stopped.some services stop automatically it they are not in use by other services or programs".

After this i wrote same service in C#.Net and it is working very well.

VB.Net code

Public Class EBService : Inherits ServiceBase
    Private tia As System.Timers.Timer
    Dim objExport As clsExport
    Public Sub EBService()
        InitializeComponent()
        tia = New System.Timers.Timer()
        GC.KeepAlive(tia)
        tia.Interval = 100000
        tia.Enabled = True

        AddHandler tia.Elapsed, New System.Timers.ElapsedEventHandler(AddressOf OnTimedEvent)
    End Sub


    Private Sub OnTimedEvent(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs)
        Try
tia.Stop()

            clsGlobal.WriteText("START EB SERVICE" & " " & System.DateTime.Now.ToString("dd/MMM/yyyy hh:mm:ss tt"))

            clsGlobal.WriteText("END EB SERVICE" & " " & System.DateTime.Now.ToString("dd/MMM/yyyy hh:mm:ss tt"))

            tia.Start()
        Catch ex As System.Exception
            ' clsGlobal.WriteText(ex.Message)
        End Try
    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.
        tia.Start()
    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        tia.Stop()
    End Sub

End Class

C#.Net Code

namespace MSPOS.EB.TestService
{
    public partial class MSPOSTestService : ServiceBase
    {
        private System.Timers.Timer Tia;


        public MSPOSTestService()
        {
            InitializeComponent();

            Tia = new System.Timers.Timer();
            GC.KeepAlive(Tia);
            Tia.Interval = 60000;
            Tia.Enabled = true;
            Tia.Elapsed += new System.Timers.ElapsedEventHandler(OnTimedEvent);
        }
        private void OnTimedEvent(object source, System.Timers.ElapsedEventArgs e)
        {
            try
            {
                Tia.Stop();
                clsGlobal.WriteText("START EB SERVICE" + " " + System.DateTime.Now.ToString("dd/MMM/yyyy hh:mm:ss tt"));

                  clsGlobal.WriteText("END EB SERVICE" + " " + System.DateTime.Now.ToString("dd/MMM/yyyy hh:mm:ss tt"));

                Tia.Start();
            }
            catch (System.Exception ex)
            {
                clsGlobal.WriteText(ex.Message);
            }
        }

        protected override void OnStart(string[] args)
        {
tia.Start();
        }

        protected override void OnStop()
        {
tia.Stop();
        }
    }

Can anyone plz tell me what should i do in VB.Net to properly start and stop my service.

Thanks,
Nagendra.

Posted 11-Jul-11 23:55pm

nagendrathecoder

Updated 12-Jul-11 0:20am

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

#realJSOP · Answer 1 · 2011-07-12T00:16:00

The VB version doesn't have tia.Stop() at the top of the tick event handler.

I have to ask why you're stopping/starting the timer like that though. Instead of doing that, set a flag indicating the timer event is busy, and if it is when a timer event comes through, just exit the method:

C#

public partial class MyService
{
    bool isBusy = false;

    private void OnTimedEvent(object source, System.Timers.ElapsedEventArgs e)
    {
        if (!isBusy)
        {
            isBusy = true;
            // ... do some processing
            isBusy = false;
        }
    }

}