Как я могу заставить службу прослушивателя TCP прекратить работу правильно?

Question

Я пишу службу Windows, которая запускает прослушиватель TCP. Основной код работает отлично, но у меня есть несколько проблем с механикой службы Windows.

Прямо сейчас, когда мой сервис запускается, он создает поток и запускает прослушиватель TCP в потоке. Затем, когда служба останавливается, она завершает эту резьбу:

Public Class txnSocketService 
    Inherits System.ServiceProcess.ServiceBase 

    Private listenerThread As Thread 


    Public Sub New() 
     Me.ServiceName = "txnSocketService" 
     Me.CanStop = True 
     Me.CanPauseAndContinue = True 
     Me.AutoLog = True 
    End Sub 

    Shared Sub Main() 
     System.ServiceProcess.ServiceBase.Run(New txnSocketService) 
    End Sub 

    Protected Overrides Sub OnStart(ByVal args() As String) 
     listenerThread = New Thread(AddressOf pmtListener.Main) 
     listenerThread.IsBackground = True 
     listenerThread.Start() 
    End Sub 

    Protected Overrides Sub OnStop() 
     listenerThread.Abort() 
    End Sub 

    Private Sub InitializeComponent() 
     ' 
     'txnSocketService 
     ' 
     Me.ServiceName = "txnSocketService" 

    End Sub 
End Class 

Ввод работ прекращается. Однако, если я остановлю службу, процесс обслуживания не завершается. Что я делаю не так?

[Кстати, я сейчас делаю это на VS2010 Beta 2, если это имеет значение.]

Answer 1

Вместо прекращение нити с Thread.Abort() вы должны осуществить некоторые отключения() метод, который грациозно закрывает сокет.

например.

Public Class pmtListener 
    Protected shutingdown As Boolean = False 
    ' [...] ' 
    Public Sub Shutdown() 
    shutingdown = True 
    socketListen.Close() 
    End Sub 
    Sub Main() 
    Dim socketAccepted As Socket 
    shutingdown = False 
    socketListen.Listen(3) 
    While Not shutingdown 
     Try 
     socketAccepted = socketListen.Accept() 
     ' do something with socketAccepted ' 
     socketAccepted.Close() 
     socketAccepted = Nothing 
     Catch ex As SocketException 
     If shutingdown Then 
      ' ignoring it ' 
     End If 
     End Try 

    End While 
    End Sub 

Когда Shutdown() вызывает socketListen.Close() и рабочий поток в настоящее время ждет новое соединение будет поднят SocketExcpetion. Мы просто игнорируем это.
В вашем методе OnStop() вы сначала даете экземпляру pmtListener возможность законно завершить работу, вызывая myListener.Shutdown() (который затем устанавливает флаг shootdown и закрывает сокет), а затем ждет (до) определенного промежутка времени (например, одна секунда). Если поток все еще жив, попробуйте его прекратить.

Public Class txnSocketService 
    Inherits System.ServiceProcess.ServiceBase 

    Protected myListener as pmtListern 
    Protected listenerThread As Thread 

    ' [...] ' 
    Protected Overrides Sub OnStart(ByVal args() As String) 
    myListener = new pmtListener 
    listenerThread = New Thread(AddressOf myListener.Main) 
    listenerThread.IsBackground = True 
    listenerThread.Start() 
    End Sub 

    Protected Overrides Sub OnStop() 
    myListener.Shutdown() 
    listenerThread.Join(1000) ' give it a second ' 
    If listenerThread.IsAlive Then 
     listenerThread.Abort() 
    End If 
    End Sub