自托管 WinForms 应用程序中的 WCF TCP 绑定

Question

我决定在我的自托管 wcf 应用程序中进行 net.tcp 绑定（使用传输级加密）。

虽然我在获取有关使自托管 wcf 应用程序工作的主题的信息方面度过了一段有趣的时光，但我当前的工作解决方案并未隐式指定绑定，所以我猜它默认为 BasicHttp。

我不确定如何“添加/更改”与 net.tcp 的绑定和传输级加密？我也对“测试”我的 tcp 安全连接感到好奇。什么将用于运行一些测试安全场景？

工作代码：未指定隐式绑定...

'create URI
        Dim myServiceAddress As New Uri("http://" & LocalIpAddress & ":" & tcp_port & "/" & servicename)

        Dim myservicehost As New ServiceHost(GetType(plutocomm), myServiceAddress)

        ' Enable metadata publishing.
        Dim smb As New ServiceMetadataBehavior()
        smb.HttpGetEnabled = True
        smb.MetadataExporter.PolicyVersion = PolicyVersion.Policy15
        myservicehost.Description.Behaviors.Add(smb)

        myservicehost.Open()

更新

关于这个的更新......真的开始在这里挠我的头......

我现在有：

更改绑定到 tcp 创建、安装和引用自签名证书 跟踪显示没有有用的信息...

这是我的新代码：

 Dim myServiceAddress As New Uri("net.tcp://" & localIpAddress & ":" & tcp_port & "/" & servicename)

        Dim myservicehost As New ServiceHost(GetType(plutocomm))
        'create binding
        Dim myNetTcpBinding = New NetTcpBinding()
        myNetTcpBinding.Security.Mode = SecurityMode.Transport
        myNetTcpBinding.Security.Transport.ClientCredentialType = TcpClientCredentialType.None



        ' Enable metadata publishing.
        Dim smb As New ServiceMetadataBehavior()
        smb.HttpGetEnabled = False
        smb.MetadataExporter.PolicyVersion = PolicyVersion.Policy15
        myservicehost.Description.Behaviors.Add(smb)

        myservicehost.AddServiceEndpoint(GetType(Iplutocomm), myNetTcpBinding, myServiceAddress)
        myservicehost.Credentials.ServiceCertificate.SetCertificate(StoreLocation.LocalMachine, StoreName.My, X509FindType.FindBySubjectName, "louisvantonder")


        myservicehost.Open()

这是我在尝试引用时带有“警告”的痕迹，没有关于原因的真实信息...？

<E2ETraceEvent xmlns="http://schemas.microsoft.com/2004/06/E2ETraceEvent"><System xmlns="http://schemas.microsoft.com/2004/06/windows/eventlog/system"><EventID>262171</EventID><Type>3</Type><SubType Name="Warning">0</SubType><Level>4</Level><TimeCreated SystemTime="2013-05-28T01:16:53.0868677Z" /><Source Name="System.ServiceModel" /><Correlation ActivityID="{a696dcda-b24a-4838-9f23-cd0d67690af7}" /><Execution ProcessName="pluto" ProcessID="8472" ThreadID="3" /><Channel /><Computer>LOUISVANTONDER</Computer></System><ApplicationData><TraceData><DataItem><TraceRecord xmlns="http://schemas.microsoft.com/2004/10/E2ETraceEvent/TraceRecord" Severity="Warning"><TraceIdentifier>http://msdn.microsoft.com/en-ZA/library/System.ServiceModel.Channels.SocketConnectionAbort.aspx</TraceIdentifier><Description>SocketConnection aborted</Description><AppDomain>pluto.exe</AppDomain><Source>System.ServiceModel.Channels.SocketConnection/37489757</Source></TraceRecord></DataItem></TraceData></ApplicationData></E2ETraceEvent>

我仍然无法找到可行的解决方案...这是我当前的代码

Answer 1

您没有在原始代码中指定绑定并且您指定了http 的协议（通过您的地址），这就是您收到BasicHttpBinding 的原因（这是默认为http)。

以下代码 sn-p 应该让您朝着正确的方向前进：

Dim myServiceAddress As New Uri("net.tcp://" & LocalIpAddress & ":" & tcp_port & "/" & servicename)

Dim myservicehost As New ServiceHost(GetType(plutocomm), myServiceAddress)

注意地址中的net.tcp 协议。理论上，这应该足以让您获得默认的NetTCPBinding。如果你想明确定义它，这里有一种方法：

创建一个 NetTCP 端点并将其添加到您的ServiceHost：

Dim myservicehost As New ServiceHost(GetType(plutocomm))

请注意，您尚未创建端点。以下代码将为您的服务创建端点：

Dim myNetTcpBinding = New NetTcpBinding()
myNetTcpBinding.Security.Mode = SecurityMode.Transport
myNetTcpBinding.Security.Transport.ClientCredentialType = TcpClientCredentialType.Certificate
myservicehost.AddServiceEndpoint(typeof(plutocomm), myNetTcpBinding, myServiceAddress)

注意SecurityMode.Transport 是NetTcpBinding 的默认，因此您不需要显式设置它。如果您使用证书，您可能需要告诉绑定在哪里可以找到证书（查看MSDN Example）。

这只是设置绑定的几种方法之一（例如，您也可以在配置文件中进行）。

这里的关键是 WCF（版本 4 和更高版本）具有默认设置，除非您明确指定其他内容，否则它们将发挥作用。