[es] - Windows services - nekoliko pitanja

cteba
ns

Član broj: 52625
Poruke: 69
82.208.224.*

+1 Profil

^{16.04.2010. u 14:01 - pre 170 meseci}

Napravio sam server koji bi trebao da radi i kad korisnik nije logovan tako da sam ga zapakovao u windows service.

Imam nekoliko pitanja:

Servis je postavljen na Automatic i ja moram rucno da ga pokrenem i onda radi. Nece sam da se pokrene. Da li je moguce pokrenuti servis odma posle instalacije? Ili sta "okida" servis da se on sam pokrene automatski?

Kad ga pokrenem i resetujem racunar servis je nedostupan (ne mogu da pristupam serveru), kad se ulogujem onda radi. Takodje ako se odlogujem i onda radi. Da li ima neko objasnjenje za ovo?

Kako da komuniciram sa servisom tj. ocu da promenim neke parametre (da posaljem neki string)? Da li servis moze da cita Registry ili file? Pokusavao sam neke nacine ali ne uspevam a ne mogu da ga debagujem na klasican nacin.

Odgovor na temu

Boško

Član broj: 32679
Poruke: 62
*.dynamic.isp.telekom.rs.

Profil

Re: Windows services - nekoliko pitanja

^{16.04.2010. u 17:11 - pre 170 meseci}

Windows service je program kao i svaki drugi. Kako komuniciraš sa bilo kojom drugom aplikacijom, tako možeš i sa servisom.

Da bi debagovao servis uradi sledeće

Code:

  ' The main entry point for the process
  <MTAThread()> _
  Shared Sub Main()
#If DEBUG Then
    ' Start the process as a non-service for debugging only.
    ' Stop the debugger to stop the process.

    Dim service As New MyService
    Dim startupParameter As String()
    service.OnStart(startupParameter)

    System.Threading.Thread.Sleep(System.Threading.Timeout.Infinite)
#Else
    Dim ServicesToRun() As System.ServiceProcess.ServiceBase

    ' More than one NT Service may run within the same process. To add
    ' another service to this process, change the following line to
    ' create a second service object. For example,
    '
    '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
    '
    ServicesToRun = New System.ServiceProcess.ServiceBase() {New MyService}

    System.ServiceProcess.ServiceBase.Run(ServicesToRun)
#End If
  End Sub

Što se tiče pokretanja servisa nakon resetovanja računara, verovatno si negde napravio neku grešku. Trebalo bi sve da radi ukoliko je postavljen na automatic.

Inače servis se startuje sa "net start MyService", a prethodno se instalira sa "InstallUtil MyService"

Odgovor na temu