Windows Service HttpListener memoria Problema

StackOverflow https://stackoverflow.com/questions/2743628

Domanda

Im un principiante alle "best practice", ecc di scrivere in qualsiasi codice. Io tendo a basta scrivere una se funziona, perché risolvere il problema.

Bene, questo modo di lavorare è me sbarco in po 'd'acqua calda. Sto scrivendo un servizio di Windows semplici per server di una singola pagina web. (Questo servizio sarà incorperated in un altro progetto che monitora i servizi e alcune cartelle su un gruppo di server.)

Il mio problema è che ogni volta che una richiesta è ricevuto, l'utilizzo della memoria salta da pochi K per ogni richiesta e mantiene qoing su ogni richiesta.

Ora Ive ha trovato che mettendo GC.Collect nella miscela si ferma a un certo numero, ma sono sicuro che la sua non è pensato per essere utilizzato in questo modo. Mi chiedevo se mi manca qualcosa o non fare qualcosa che dovrei per liberare la memoria.

Ecco il codice: 

Public Class SimpleWebService : Inherits ServiceBase
    'Set the values for the different event log types.
    Public Const EVENT_ERROR As Integer = 1
    Public Const EVENT_WARNING As Integer = 2
    Public Const EVENT_INFORMATION As Integer = 4
    Public listenerThread As Thread
    Dim HTTPListner As HttpListener
    Dim blnKeepAlive As Boolean = True

    Shared Sub Main()
        Dim ServicesToRun As ServiceBase()
        ServicesToRun = New ServiceBase() {New SimpleWebService()}
        ServiceBase.Run(ServicesToRun)
    End Sub

    Protected Overrides Sub OnStart(ByVal args As String())
        If Not HttpListener.IsSupported Then
            CreateEventLogEntry("Windows XP SP2, Server 2003, or higher is required to " & "use the HttpListener class.")
            Me.Stop()
        End If
        Try
            listenerThread = New Thread(AddressOf ListenForConnections)
            listenerThread.Start()
        Catch ex As Exception
            CreateEventLogEntry(ex.Message)
        End Try
    End Sub

    Protected Overrides Sub OnStop()
        blnKeepAlive = False
    End Sub

    Private Sub CreateEventLogEntry(ByRef strEventContent As String)
        Dim sSource As String
        Dim sLog As String
        sSource = "Service1"
        sLog = "Application"
        If Not EventLog.SourceExists(sSource) Then
            EventLog.CreateEventSource(sSource, sLog)
        End If
        Dim ELog As New EventLog(sLog, ".", sSource)
        ELog.WriteEntry(strEventContent)
    End Sub

    Public Sub ListenForConnections()
        HTTPListner = New HttpListener
        HTTPListner.Prefixes.Add("http://*:1986/")
        HTTPListner.Start()
        Do While blnKeepAlive
            Dim ctx As HttpListenerContext = HTTPListner.GetContext()
            Dim HandlerThread As Thread = New Thread(AddressOf ProcessRequest)
            HandlerThread.Start(ctx)
            HandlerThread = Nothing
        Loop
        HTTPListner.Stop()
    End Sub

    Private Sub ProcessRequest(ByVal ctx As HttpListenerContext)
        Dim sb As StringBuilder = New StringBuilder
        sb.Append("<html><body><h1>Test My Service</h1>")
        sb.Append("</body></html>")
        Dim buffer() As Byte = Encoding.UTF8.GetBytes(sb.ToString)
        ctx.Response.ContentLength64 = buffer.Length
        ctx.Response.OutputStream.Write(buffer, 0, buffer.Length)
        ctx.Response.OutputStream.Close()
        ctx.Response.Close()
        sb = Nothing
        buffer = Nothing
        ctx = Nothing
        'This line seems to keep the mem leak down
        'System.GC.Collect()
    End Sub
End Class

Non esitate a critisise e strappare il codice a parte, ma si prega di essere gentile. Ho ammesso io non tendono a seguire la migliore pratica quando si tratta di codifica.

È stato utile?

Soluzione

Hai ragione, si dovrebbe non essere in questo modo. Rimuovere la chiamata Collect () e farlo funzionare per una settimana. Qualsiasi libro decente .NET parlerà come funziona il garbage collector e come lo fa non rilasciare immediatamente la memoria quando si imposta un oggetto a Nothing. Essa non calci fino a quando hai consumato da qualche parte tra 2 e 8 megabyte. Questa non è una perdita, solo un uso efficace di una risorsa abbondante.

Si utilizza un nuovo thread per ogni singola connessione, che è abbastanza costoso e scale molto male quando si ottiene un sacco di connessioni. Considerare l'utilizzo di ThreadPool.QueueUserWorkItem invece. Threadpool fili sono molto economici e loro distribuzione e l'esecuzione siano ben controllati dal gestore ThreadPool.

Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow
scroll top