WCF：AddressFilterMode.Anyを宣言的に指定する方法

Question

私は自分の質問に答えるために事前に謝罪しますが、WCFの拡張動作を作成できるときにAddressFilterMode.Anyをコード属性として追加する必要があることを多くの回答が示しています同じことをする。多くの場所で同じ質問がされたので、私はその質問に1か所で答える方が有益だろうと思った。

Answer 1

我々がいると仮定するつもりだあなたのWCFの設定 で拡張要素を使用してカスタム構成要素

Imports System.ServiceModel 
Imports System.ServiceModel.Configuration 
Imports Hsb.ServiceModel.Description 

'We're assuming your project declares some default namespace like Org.ServiceModel 
Namespace Configuration 

Public Class AddressFilterModeAnyElement 
    Inherits BehaviorExtensionElement 


#Region "BehaviorExtensionElement Implementation" 
    'The BehaviorExtensionElement base class allows the behavior to be added through configuration 
    'using the system.servicemodel/extensions .config element. 
    <System.Diagnostics.CodeAnalysis.SuppressMessage("Configuration", "Configuration102:ConfigurationPropertyAttributeRule", MessageId:="System.ServiceModel.Configuration.WebScriptEnablingElement.BehaviorType", Justification:="Not a configurable property; a property that had to be overridden from abstract parent class")> _ 
    Public Overrides ReadOnly Property BehaviorType() As System.Type 
     Get 
      Return GetType(AddressFilterModeAnyBehavior) 
     End Get 
    End Property 

    Protected Overrides Function CreateBehavior() As Object 
     Return New AddressFilterModeAnyBehavior() 
    End Function 
#End Region 

End Class 
End Namespace 

を作成してカスタム動作

Imports System.ServiceModel 
Imports System.ServiceModel.Web 
Imports System.ServiceModel.Description 
Imports System.ServiceModel.Dispatcher 
Imports System.ServiceModel.Channels 

'We're assuming your project declares some default namespace like Org.ServiceModel 
Namespace Description 
Public Class AddressFilterModeAnyBehavior 
    Implements IEndpointBehavior 

    Private Const jsPostfix As String = "js" 
    Private Const jsdebugPostFix As String = "jsdebug" 

    Private Const MaxMetadataEndpointBufferSize As Integer = 2048 

    Public Sub AddBindingParameters(ByVal endpoint As System.ServiceModel.Description.ServiceEndpoint, ByVal bindingParameters As System.ServiceModel.Channels.BindingParameterCollection) Implements System.ServiceModel.Description.IEndpointBehavior.AddBindingParameters 

    End Sub 

    Public Sub ApplyClientBehavior(ByVal endpoint As System.ServiceModel.Description.ServiceEndpoint, ByVal clientRuntime As System.ServiceModel.Dispatcher.ClientRuntime) Implements System.ServiceModel.Description.IEndpointBehavior.ApplyClientBehavior 

    End Sub 

    Public Sub ApplyDispatchBehavior(ByVal endpoint As System.ServiceModel.Description.ServiceEndpoint, ByVal endpointDispatcher As System.ServiceModel.Dispatcher.EndpointDispatcher) Implements System.ServiceModel.Description.IEndpointBehavior.ApplyDispatchBehavior 
     If endpointDispatcher Is Nothing Then Return 
     endpointDispatcher.AddressFilter = New MatchAllMessageFilter 
     If (HasWebScriptBehavior(endpoint)) Then 
      HandleWebScriptBehavior(endpoint, endpointDispatcher) 
     End If 
    End Sub 

    Public Sub Validate(ByVal endpoint As System.ServiceModel.Description.ServiceEndpoint) Implements System.ServiceModel.Description.IEndpointBehavior.Validate 

    End Sub 

    Protected Sub HandleWebScriptBehavior(ByVal endpoint As ServiceEndpoint, ByVal endpointDispatcher As EndpointDispatcher) 
     If endpoint Is Nothing OrElse endpointDispatcher Is Nothing Then Exit Sub 
     If Not HasListenUri(endpoint) Then Exit Sub 
     Dim baseAddress As Uri = endpoint.Address.Uri 
     Dim jsUri As Uri = CreateWebScriptUri(baseAddress, False) 
     Dim jsdebugUri As Uri = CreateWebScriptUri(baseAddress, True) 
     Dim host As ServiceHostBase = endpointDispatcher.ChannelDispatcher.Host 
     Dim channelDispatchers As ChannelDispatcherCollection = host.ChannelDispatchers 
     For Each channelDispatcher As ChannelDispatcher In channelDispatchers 
      For Each dispatcher As EndpointDispatcher In channelDispatcher.Endpoints 
       With dispatcher 
        Dim endpointUri As Uri = .EndpointAddress.Uri 
        If (endpointUri.Equals(jsdebugUri) OrElse endpointUri.Equals(jsUri)) Then 
         .AddressFilter = New MatchAllMessageFilter 
        End If 
       End With 
      Next 
     Next 
    End Sub 

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Performance", "CA1822:MarkMembersAsStatic")> 
    Protected Function HasWebScriptBehavior(ByVal endpoint As ServiceEndpoint) As Boolean 
     If endpoint Is Nothing Then Return False 
     Return (From behavior In endpoint.Behaviors Where TypeOf behavior Is WebScriptEnablingBehavior).Any 
    End Function 

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Performance", "CA1822:MarkMembersAsStatic")> 
    Protected Function HasListenUri(ByVal endpoint As ServiceEndpoint) As Boolean 
     If endpoint Is Nothing Then Return False 
     Return Not endpoint.Address.Uri.Equals(endpoint.ListenUri) 
    End Function 

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Performance", "CA1822:MarkMembersAsStatic")> 
    Protected Function CreateWebScriptUri(ByVal baseUri As Uri, ByVal debug As Boolean) As Uri 
     Dim builder As New UriBuilder(baseUri) 
     If (debug) Then 
      builder.Path += If(builder.Path.EndsWith("/", StringComparison.OrdinalIgnoreCase), (jsdebugPostFix), ("/" + jsdebugPostFix)) 
     Else 
      builder.Path += If(builder.Path.EndsWith("/", StringComparison.OrdinalIgnoreCase), (jsPostfix), ("/" + jsPostfix)) 
     End If 
     Return builder.Uri 
    End Function 


End Class 
End Namespace 

を作成します。アセンブリの名前はOrg.ServiceModel

<system.serviceModel> 
<behaviors> 
    <endpointBehaviors> 
    <behavior name="JSON">   
     <enableWebScript /> 
     <addressFilterModeAny /> 
    </behavior>   
    </endpointBehaviors> 
</behaviors> 
<extensions> 
    <behaviorExtensions> 
    <!-- Microsoft Connect Issue ID 216431: The full assembly qualified typename including version, culture and key must be specified.--> 
    <!-- The following endpoint behavior extension element sets the endpoint's address filter mode to any. This allows the service 
    to operate behind an SSL load balancer where externally https is used and internally http is used.--> 
    <add name="addressFilterModeAny" type="Org.ServiceModel.Configuration.AddressFilterModeAnyElement, Org.ServiceModel, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null"/> 
    </behaviorExtensions> 
</extensions> 
</system.serviceModel>