Discussion :

[thierry007]

Bonjour a tout le monde
J’espère que ce temps maussade n’ampute pas votre humeur
Ci dessous le code d'un test pour mettre en place un service, mais mon fichier qui devrait apparaitre dans le rép c:\intel\ n'apparait pas
Quelqu'un voit la faute , ou autre chose, sachant que la mise en place du service se fait correctement et que le service démarre bien.
Le service est en mode démarrage " mode manuel " et utilisateur LocalService.
Merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Imports System.IO.File
Public Class TDGServices
 
      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.Enabled = True
            Timer1.Interval = 15000
 
      End Sub
 
      Protected Overrides Sub OnStop()
            ' Add code here to perform any tear-down necessary to stop your service.
            Timer1.Enabled = False
 
      End Sub
 
      Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
            FileOpen(1, "c:\intel\TESTFILE.txt", OpenMode.Output) ' Open file for output.
            Write(1, "This is a test.")  ' Print text to file.
            FileClose(1)
 
      End Sub
 
End Class

[Pol63]

les timers sont à éviter dans les services windows
il y en a plusieurs types en .net, et la plupart ne fonctionnent pas dans les services
dans un service tu rentres sur un thread dans le onstart, et tu as peu de temps pour en sortir, ce thread doit s’arrêter en sortie de onstart, sur un service il faut donc un ou plusieurs threads pour le garder en route

un thread avec une boucle ca donne ca :

onstart :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim th as new thread(addressof maboucle)
th.Start

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
private sub maboucle()
    while true
       'do something, or call a method
       system.threading.thread.sleep(15000) ' attente en ms, équivalent du timer du coup
    end while
end sub

avec un peu de try catch et de log d'erreur ^^

[thierry007]

Merci pour le début d"explication , car dans les recherche il parle souvent du timer, je m'était donc mis sur cette façon de faire

Petite question supplémentaire:
Puis-je lancé des programme winform a l'aide d'un service ( type notepad.exe ) ou cela ne peut se faire

[Pol63]

un service windows est un programme à instance unique
windows est multi session
les services sont donc non liés à l'interface utilisateur, et il est impossible d'ouvrir une fenetre

démarrer un programme non graphique ca peut se faire aussi, mais il sera exécuté dans le même contexte que le service au niveau des droits


par contre ce qui se fait dans ce cas là, c'est de faire un exe winforms ou autre, qui se lance à l'ouverture de session et qui se place en bas dans le systray
et de faire une communication entre les 2 apps (canaux nommés, tcp/ip local ...) pour dire à l'exe qui est dans la session active de lancer un programe
c'est plus lourd certes

[thierry007]

Ok Merci Pol63

Au moins cela est clair