Windows service stop automatiquement

Question

Bonjour, j'ai créer un service windows en vb.net ou je fais des operations en boucle. Le problème est qu'après un certain temps (20 - 30 min) le service stop tout seul sans même passer dans le OnStop et même sans attraper aucune exception, je n'ai meme pas de message dans le event viewer.

J'ai des trycatch sur tout mon code 

J'espere avoir de vos réponses
Merci

Mayzz · Answer

Salut,

Que te dire... t'as un boucle infinie quelque part ..? Tu peux poster un bou de code ?

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

nath31337 · Answer

Bonjour Mayzz , en effet lorsque le timer démarre, le timer se disable et ma fonction est appelée récursivement donc en boucle infinie. voici un peu de code

Protected Overrides Sub OnStart(ByVal args() As String)
        Try
            AddHandler tmrService.Elapsed, AddressOf TimerServiceElapsed
            tmrService.Interval = 1000 * 10

            tmrService.Enabled = True
        Catch ex As Exception
            ClsAllCommonClass.ClsCommon.LogErr(ClsAllCommonClass.ClsCommon.CNTLogErrName, ex.StackTrace, ex.Source, ex.TargetSite.ToString(), ex.Message)
        End Try

    End Sub

    Public Sub TimerServiceElapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
        Try
            tmrService.Enabled = False
            subScan()
        Catch ex As Exception
            ClsAllCommonClass.ClsCommon.LogErr(ClsAllCommonClass.ClsCommon.CNTLogErrName, ex.StackTrace, ex.Source, ex.TargetSite.ToString(), ex.Message)
        End Try
    End Sub

est-ce une bonne pratique?

Mayzz · Answer

Public Sub TimerServiceElapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
        Try
            tmrService.Enabled = False
            subScan()
            'ici !
            tmrService.Enabled = True
        Catch ex As Exception
            ClsAllCommonClass.ClsCommon.LogErr(ClsAllCommonClass.ClsCommon.CNTLogErrName, ex.StackTrace, ex.Source, ex.TargetSite.ToString(), ex.Message)
   End Try
End Sub

Ca devrait aller mieux la...

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Windows service stop automatiquement

3 réponses

Votre réponse

Discussions similaires