Question

我们遇到一个问题，即在负载测试期间，如果我们在某个服务上快速拨打电话，我们就会收到错误

“System.ServiceModel.ServerTooBusyException：RM Destination拒绝了创建可靠会话的请求。服务器'net.tcp：// localhost：10511 / ParameterMonitorService'太忙，无法处理此请求。请稍后再试。频道无法打开。“

我们将maxPendingChannels的值从默认值4增加到128然后超出，并且错误已经消失，但现在，不是抛出异常，服务将停止处理负载下的消息，然后几分钟后重新开始

它似乎没有掉落任何东西，只是挂了一会儿。我们对服务的攻击越多，这种恢复似乎就越长。

该服务配置为Per-Call with ConcurrencyMode Multiple。其他行为设置是：

<serviceThrottling maxConcurrentCalls="100" maxConcurrentSessions="100" maxConcurrentInstances="100"/>

<customBinding>

    <binding name="Services_Custom_Binding" openTimeout="00:00:20" sendTimeout="00:01:00">          
        <reliableSession  ordered="true" inactivityTimeout="00:10:00" maxPendingChannels="128" flowControlEnabled="true" />
        <binaryMessageEncoding>
          <readerQuotas maxDepth="32" maxStringContentLength="8192" maxArrayLength="16384"
            maxBytesPerRead="4096" maxNameTableCharCount="16384" />            
        </binaryMessageEncoding>
        <tcpTransport maxPendingConnections="100" listenBacklog="100" />          
      </binding>
  </customBinding>

我们有点卡住了。任何帮助表示赞赏！

Answer 1

这是一个经典的性能调优故事。通过在可靠会话上重新配置限制，您已经删除了曾经是系统中的瓶颈，并将瓶颈移到了系统中的其他位置。

你真的不能指望人们在没有任何关于你的服务如何托管，硬件，它在做什么或者如何做的事情的细节的基础上进行诊断。它。您需要使用Windows性能监视器计数器全面检测系统，并解释这些计数器以了解系统中现在发生的资源争用。

我的第一个猜测是，删除会话限制后增加的并发性导致了托管线程池线程的争用，但这只是猜测 - 实际上你想要根据证据进行诊断，而不是猜测。

Answer 2

默认情况下，线程池创建8个线程，之后每秒仅添加两个线程。当你同时启动大量工作人员时，WCF会因为线程不够快而启动。

这个解决方案非常适合我，无论何时你要开启大量线程，都可以调用AdjustThreads：

Imports NLog
Public Module AdjustThreads_

Private _Logger As Logger = LogManager.GetCurrentClassLogger
Private _MaxWorkers As Integer = 16
Private _MaxCompletions As Integer = 16
Public Sub AdjustThreads()
    Dim minworkerthreads As Integer = 0
    Dim maxworkerthreads As Integer = 0
    Dim mincompletionthreads As Integer = 0
    Dim maxcompletionthreads As Integer = 0
    Dim activeworkerthreads As Integer = 0
    Dim activecompletionthreads As Integer = 0
    Threading.ThreadPool.GetMinThreads(minworkerthreads, mincompletionthreads)
    Threading.ThreadPool.GetMaxThreads(maxworkerthreads, maxcompletionthreads)
    Threading.ThreadPool.GetAvailableThreads(activeworkerthreads, activecompletionthreads)
    Dim workers As Integer = maxworkerthreads - activeworkerthreads
    Dim completions As Integer = maxcompletionthreads - activecompletionthreads
    If workers > _MaxWorkers Then
        _MaxWorkers = _MaxWorkers
    End If
    If completions > _MaxCompletions Then
        _MaxCompletions = completions
    End If
    ' If current is (initially) 8, new threads only start twice a second.
    ' So, kick off a minimum of 16 and always increase by 50%
    Dim needworkers As Integer = _MaxWorkers * 3 \ 2
    Dim needcompletions As Integer = _MaxCompletions * 3 \ 2

    If needworkers > minworkerthreads OrElse
       needcompletions > mincompletionthreads Then
        _Logger.Info("Threadpool increasing workers to {0}, completions to {1}",
                     needworkers, needcompletions)
        Threading.ThreadPool.SetMinThreads(needworkers, needcompletions)
    End If
End Sub

结束模块

（该死的编辑一直在制作＆＃39;结束模块＆＃39;如果有人可以修复它，那么它就会脱离代码？）

WCF可靠消息：maxPendingChannels增加后的口吃服务

2 个答案: